Lang L: none (table-of-contents)
See õpetus näitab, kuidas stringe lahtriteks jagada.
Jagage string lahtriteks
VBA -s saame kasutada funktsiooni Split (Funktsioon tükeldamiseks), et jagada teksti string massiiviks.
Märkus. Kirjutasime terve megajuhendi Split-funktsiooni kasutamiseks VBA-s. Soovitame tungivalt seda kontrollida.
Seejärel saame massiivi läbi loopida, väljastades jagatud teksti Exceli lahtritesse:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()'Määrake muutujadDim MyArray () stringina, MyString stringina, mina variandina, N täisarvuna'Näidisnool semikooloniga eraldajategaMinuString = "[email protected]; [email protected]; [email protected]; [email protected]"'Stringi osade jagamiseks kasutage funktsiooni SplitMyArray = Jagatud (MyString, ";")'Tühjendage töölehtActiveSheet.UsedRange.Clear'iteraat läbi massiiviN = 0 jaoks UBound (MyArray)„Asetage iga e -posti aadress töölehe esimesse veerguVahemik ("A" & N + 1) .Väärtus = MyArray (N)Järgmine N.End Sub |
Teise võimalusena võime massiivi töölehele väljastamiseks kasutada funktsiooni Transpose.
| 12345678910111213 | Sub CopyToRange ()'Loo muutujadDim MyArray () stringina, MyString stringina'Näidisring tühikutegaMyString = "Üks, kaks, kolm, neli, viis, kuus"'Stringi komponentide jagamiseks kasutage funktsiooni SplitMyArray = Jagatud (MyString, ",")'Kopeerige massiiv tööleheleVahemik ("A1: A" & UBound (MyArray) + 1) .Väärtus = TöölehtFunktsioon. Ülekanne (MyArray)End Sub |
