Inhaltsverzeichnis
In diesem Tutorial wird gezeigt, wie Sie Strings in Zellen aufteilen.
String in Zellen aufteilen
In VBA können wir die Split-Funktion verwenden, um eine Textzeichenfolge in ein Array aufzuteilen.
Hinweis: Wir haben einen kompletten Mega-Guide zur Verwendung der Split-Funktion in VBA geschrieben. Wir empfehlen Ihnen dringend, es zu überprüfen.
Dann können wir das Array durchlaufen und den geteilten Text in Excel-Zellen ausgeben:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample()'Variablen definierenDim MyArray() As String, MyString As String, I As Variant, N As Integer'Beispielstring mit Semikolon-TrennzeichenMyString = "[email protected];[email protected];[email protected];[email protected]"'Verwenden Sie die Split-Funktion, um die Bestandteile der Zeichenfolge aufzuteilenMyArray = Split(MyString, ";")'Löschen Sie das ArbeitsblattActiveSheet.UsedRange.Clear'durch das Array iterierenFür N = 0 an UBound(MyArray)'Tragen Sie jede E-Mail-Adresse in die erste Spalte des Arbeitsblatts einRange("A" & N + 1).Wert = MyArray(N)Nächste NEnd Sub |
Alternativ können wir die Transpose-Funktion verwenden, um das Array in ein Arbeitsblatt auszugeben:
| 12345678910111213 | Unter CopyToRange()'Variablen erstellenDim MyArray() As String, MyString As String'Beispielstring mit Leerzeichen als TrennzeichenMyString = "Eins,Zwei,Drei,Vier,Fünf,Sechs"'Verwenden Sie die Split-Funktion, um die Bestandteile der Zeichenfolge aufzuteilenMyArray = Split(MyString, ",")'Kopiere das Array in das ArbeitsblattRange("A1:A" & UBound(MyArray) + 1).Value = WorksheetFunction.Transpose(MyArray)End Sub |
