Minulla on teksti tyyliin:
aaa aaa aaa aaaxyz
aaa aaa aaa aazxyzäö
.... .... ...
Miten saan 1.riviltä zyz:n omaksi sarakkeeksi taulukkoon? Entä miten samoin 2. riviltä zxyzäö:n?
Onko nopeampaa keinoa kuin lisätä pari välilyöntiä halutun tekstin eteen (todella hidasta!), jotta excel älyää sen omaksi sarakkeeksi?
Tekstin muutos excel-taulukoksi?
Nörtti
8
840
Vastaukset
- paavali
Jos haluat poimia z ja kaikki merkit sen jälkeen, se onnistuu:
Solussa B7 teksti: aaa aaa aaa aazxyzäö
=POIMI.TEKSTI(B7;KÄY.LÄPI("z";B7);20)
palauttaa 20 merkkiä z alkaen - Replace
miten olisi replace -toiminto: etsi aa* korvaa aa * ?
sitten voit etsiä aa * (2 välilyöntiä) ja korvata sen aa *
Tämän saisi loistavasti tehtyä jollain kunnon ohjelmointikielellä (Perl,Python..?) yhdellä rivinpätkällä. Luultavasti myös MS Wordin find & replace onnistuu, vaikka office on kyllä säälittävän huono työkalu tuon tyyppiseen teksinkäsitelyyn..
Harkise myös VBA-skriptin tekoa (Record, muuta hieman, esim. voisit etsiä ascii-koodina erikseen välilyönnit ja sitten play)
siten save as .csv ja importtaus exceliin.- töppö
tuli luettua kysymys huonosti: siellä siis on aabcd ja aaabcd -pätkiä. Tällöin esittämäni haku tuhoaa jälkimmäisen, jossa on kolme a:ta.
Menee siis ehkä ascii -tason jutuksi, jolla voidaan erotella 1 n a-kirjainta. Joku Perl-guru esittää sinulle ratkaisun (esim sfnet.atk.ohjelmointi) kun kysyt sopivan kauniisti, jos et muuten saa tehtyä. Vaatii toki ilmaisen Perl-asennuksen koneellesi.
- Seija
Haluatko Z kirjaimen ja sen jälkeiset omaan sarakkeeseen, niin kuin paavali on ymmärtänyt. vai miten?
- Nörtti
Kyllä, ymmärsit oikein. Tosin omaksi sarakkeeksi haluttu teksti voi vaihdella sisällöltään ja pituudeltaan. Muutama säännöllisyys on onneksi olemassa eli jollain makrolla onnistunee ongelman ratkaisu?
Siis teksti on tyyliä:
aaa aaa aaa aaaxyz
aaa aaa aaa aazxyzäö
aaa aaa aaa aaaaakjhlt
1. riviltä omaksi sarakkeeksi: xyz
2. riviltä omaksi sarakkeeksi: zxyzäö
3. riviltä omaksi sarakkeeksi: kjhlt - Seija
Nörtti kirjoitti:
Kyllä, ymmärsit oikein. Tosin omaksi sarakkeeksi haluttu teksti voi vaihdella sisällöltään ja pituudeltaan. Muutama säännöllisyys on onneksi olemassa eli jollain makrolla onnistunee ongelman ratkaisu?
Siis teksti on tyyliä:
aaa aaa aaa aaaxyz
aaa aaa aaa aazxyzäö
aaa aaa aaa aaaaakjhlt
1. riviltä omaksi sarakkeeksi: xyz
2. riviltä omaksi sarakkeeksi: zxyzäö
3. riviltä omaksi sarakkeeksi: kjhltJos tekstissä on vain a , välilyöntejä ja teksti jonka haluat omaan sarakkeeseen.
poista a ja välilyönnit: Muokkaa - korvaa : Etsittävä a korvaava tyhjäksi ja valitse korvaa kaikki. Sama välilyönnin kanssa. - Nörtti
Seija kirjoitti:
Jos tekstissä on vain a , välilyöntejä ja teksti jonka haluat omaan sarakkeeseen.
poista a ja välilyönnit: Muokkaa - korvaa : Etsittävä a korvaava tyhjäksi ja valitse korvaa kaikki. Sama välilyönnin kanssa.Find-Replacea tässä ehdoteltiin ja sillähän tästä selvisin. Tein makron:
Find "xyz"
Replace All " xyz"
Find "zxyzäö"
Replace All " zxyzäö"
Find "kjhlt"
Replace All " kjhlt"
Ja sitten import:lla exceliin, johon määrittelin että välilyönnit ymmärretään sarakkeiksi. Homma bueno! - Kerava
Nörtti kirjoitti:
Find-Replacea tässä ehdoteltiin ja sillähän tästä selvisin. Tein makron:
Find "xyz"
Replace All " xyz"
Find "zxyzäö"
Replace All " zxyzäö"
Find "kjhlt"
Replace All " kjhlt"
Ja sitten import:lla exceliin, johon määrittelin että välilyönnit ymmärretään sarakkeiksi. Homma bueno!Huomasin kyllä että olet jo ratkaissut asian, mutta en malta pitää kynttilää vakan alla.
Jos olet jo tuonut tekstin Exceliin ja levittänyt tiedot sarakkeisiin, jää viimeiseen sarakkeeseen.
aaazyx
aaxyäok
aakljhy
aahhy
Tein makron joka jättää aa:t tähän sarakkeeseen J ja siirtää muun tekstin seuraavaan K.
Sub aa()
For Each m In _
Worksheets("Taul1").Range("J2:J40").Cells
m.Offset(0, 3).FormulaR1C1 = _
"=SUBSTITUTE(RC[-3],""a"","""")"
m.Offset(0, 2).FormulaR1C1 = _
"=LEFT(RC[-2],LEN(RC[-2])-LEN(RC[1]))"
m.Offset(0, 3).Copy
m.Offset(0, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
m.Offset(0, 2).Copy
m.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
m.Offset(0, 2).ClearContents
m.Offset(0, 3).ClearContents
Next
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kansalla on oikeus tietää miksi persut pettävät
Koko kulunut hallituskausi on kysytty persuilta, minkä vuoksi he ovat pettäneet käytännössä jokaisen vaalilupauksen, ain617520Venäjän armeijan evp-upseeri: Armeija surkeassa tilassa, jonka läpäisee kaiken kattava
valehtelu. Venäläiset alkaneet pohtia julkisesti maan todellisia tappioita. Z-bloggari ja 3. luokan kapteeni (evp.) Mak1232946- 1421776
Kansalla on oikeus tietää mikä on SDP:n talousohjelma jolla maan talous
saadaan nousuun? Miksi puolue piilottelee sitä, vai eikö sitä ole? Tähän asti olemme vaan saaneet kuulla hallituksen ha651659Ammattiliitto 900 euroa/vuosi - Työttömyyskassa 72 euroa/vuosi
Ammattiliitosta eroamalla voi säästää jopa 800 euroa vuodessa. Mitä enemmän tienaat, sitä enemmän maksat liitolle. Esim1151468Miten voit olla niin tyhmä
että et tajunnut että sua vedätettiin? Tietäisitpä miten hyvät naurut on saatu. Naiselle1691419- 1311163
- 77863
Kyriake=Kirkko
Kirkko, Kyriake Kirkko-sana tulee kreikankielen sanasta Kyriake=Herran omat, Kristuksen omaksi kastettujen suuri joukko47812- 52755