Cuprins
Acest tutorial va arăta cum să împărțiți șirurile în celule.
Împarte șirul în celule
În VBA, putem folosi funcția Split pentru a împărți un șir de text într-o matrice.
Notă: Am scris un întreg mega-ghid pentru utilizarea funcției Split în VBA. Vă recomandăm să verificați.
Apoi, putem parcurge matricea, trimitând textul divizat în celule Excel:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()„Definiți variabileDim MyArray () Ca șir, MyString ca șir, I Ca variantă, N Ca întreg'Șir de probă cu delimitatori de punct și virgulăMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Utilizați funcția Split pentru a împărți părțile componente ale șiruluiMyArray = Split (MyString, ";")„Ștergeți foaia de lucruActiveSheet.UsedRange.Clear'itera prin matricePentru N = 0 la UBound (MyArray)„Plasați fiecare adresă de e-mail în prima coloană a foii de lucruGama ("A" & N + 1). Valoare = MyArray (N)Următorul NSfârșitul Sub |
Alternativ, putem utiliza funcția Transpose pentru a transmite tabloul într-o foaie de lucru:
| 12345678910111213 | Sub CopyToRange ()'Creați variabileDim MyArray () As String, MyString As String„Șir de eșantion cu delimitatori de spațiuMyString = "Unu, Doi, Trei, Patru, Cinci, Șase"'Utilizați funcția Split pentru a împărți părțile componente ale șiruluiMyArray = Split (MyString, ",")'Copiați matricea în foaia de lucruRange ("A1: A" & UBound (MyArray) + 1). Valoare = WorksheetFunction.Transpose (MyArray)Sfârșitul Sub |
