Kuinka purkaa sana tekstimerkkijonosta Excelissä

Sanojen erottamista Excel-tekstijonoista kutsutaan jäsentämiseksi.

Avaa Excel ja kirjoita sitten vähintään kolme sanaa sisältävä lause mihin tahansa ensimmäisen laskentataulukon soluun. Purat tämän lauseen yksittäisiksi sanoiksi.

Napsauta "Data"-valikon otsikkoa ja napsauta sitten "Teksti sarakkeisiin" -painiketta. Tämä toiminto jakaa tekstin, jonka sanat erotetaan määrittämälläsi merkillä.

Napsauta "Space"-valintaruutua ja napsauta sitten "Valmis"-painiketta. Excel jakaa kirjoittamasi lauseen erillisiin sarakkeisiin. Jokainen sarake sisältää yhden sanan lauseesta.

Kirjoita funktio lainausmerkeillä vähennettynä "=indeksi([MAJONEUVO],1,[POITETTAVAN SANAN MÄÄRÄ])" eroteltujen sanojen merkkijonon alapuolelle. Korvaa termi "ARRAY" sanajonon sisältävällä alueella. Jos sanat esimerkiksi täyttävät solut "A1" - "C1", kirjoita teksti "A1:C1" "ARRAY"-tekstin tilalle. Korvaa teksti "OTETTAVAN SANAN NUMERO" sen sanan numerolla, jonka haluat erottaa lauseesta. Jos esimerkiksi haluat poimia kolmannen sanan alueelta "A1:C1", kirjoita "3" viimeiseksi argumentiksi.

Avaa uusi Excel-laskentataulukko ja kirjoita sitten mikä tahansa kolmen tai useamman sanan sarja soluun F4. Käytät lyhyttä Visual Basic -ohjelmaa poimimaan sanan tästä lauseesta.

Napsauta "Kehittäjä"-valikon otsikkoa ja napsauta sitten "Visual Basic" -painiketta. Excelin ohjelmointiympäristö avautuu.

Liitä seuraava ohjelma näkyviin tulevaan ikkunaan. Tämän aliohjelman ydin on "split"-toiminto, joka erottaa lauseen yksittäisiksi sanoiksi, kuten "Teksti sarakkeisiin" -komento tekee.

Alimakro1() Dim ar, str1, n str1 = Alue("F4") n = Alue("F5") - 1 ar = Split (str1, " ") MsgBox "Sanan numero " & n + 1 & " on " & ar (n) End Sub

Napsauta "Makrot" -painiketta "Kehittäjä"-välilehdellä ja kaksoisnapsauta sitten "Makro1"-toimintoa. Näkyviin tulee viestiruutu, joka ilmaisee sanan, joka ohjelmasi on purettu vaiheessa 1 kirjoittamastasi lauseesta.