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?
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?
Vastaukset 8
Vanhimmat
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
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.
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.
Haluatko Z kirjaimen ja sen jälkeiset omaan sarakkeeseen, niin kuin paavali on ymmärtänyt. vai miten?
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
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!
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