Sisällysluettelo
Tämä opetusohjelma osoittaa, kuinka merkkijonot jaetaan soluihin.
Jaa merkkijono soluiksi
VBA: ssa voimme käyttää Split -funktiota tekstin merkkijonon jakamiseen taulukkoon.
Huomautus: Kirjoitimme kokonaisen megaoppaan Split-toiminnon käyttämisestä VBA: ssa. Suosittelemme, että tarkistat sen.
Sitten voimme kiertää matriisin läpi ja jakaa jaetun tekstin Excel -soluihin:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()'Määrittele muuttujatDim MyArray () merkkijonona, myString merkkijonona, minä vaihtoehtona, N kokonaislukuna'Näytteen merkkijono puolipiste -erottimillaOmaString = "[email protected]; [email protected]; [email protected]; [email protected]"'Käytä Split -toimintoa merkkijonon osien jakamiseenMyArray = Jaettu (MyString, ";")'Tyhjennä laskentataulukkoActiveSheet.UsedRange.Clear'iteroi taulukon läpiN = 0 UBoundille (MyArray)'Aseta jokainen sähköpostiosoite laskentataulukon ensimmäiseen sarakkeeseenAlue ("A" & N + 1). Arvo = MyArray (N)Seuraava N.End Sub |
Vaihtoehtoisesti voimme käyttää Transpose -funktiota tulostamaan taulukko laskentataulukkoon:
| 12345678910111213 | Sub CopyToRange ()'Luo muuttujiaDim MyArray () merkkijonona, MyString merkkijonona'Näytejono, jossa on välilyöntejäMyString = "Yksi, kaksi, kolme, neljä, viisi, kuusi"'Käytä Split -toimintoa merkkijonon osien jakamiseenMyArray = Jaettu (MyString, ",")Kopioi taulukko laskentataulukkoonAlue ("A1: A" & UBound (MyArray) + 1). Arvo = WorksheetFunction.Transpose (MyArray)End Sub |
