Spisie treści
Ten samouczek pokaże, jak podzielić ciągi na komórki.
Podziel ciąg na komórki
W VBA możemy użyć funkcji Split, aby podzielić ciąg tekstu na tablicę.
Uwaga: napisaliśmy cały mega przewodnik dotyczący korzystania z funkcji Split w VBA. Gorąco polecamy to sprawdzić.
Następnie możemy przejść przez tablicę, wyprowadzając podzielony tekst do komórek Excela:
| 12345678910111213141516171819 | Sub SplitWedług średnikaPrzykład()'Zdefiniuj zmienne'Dim MyArray() As String, MyString As String, I As Variant, N As Integer'Przykładowy ciąg z ogranicznikami średnikowymiMójCiąg = "[email protected];[email protected];[email protected];[email protected]"'Użyj funkcji Split, aby podzielić części składowe ciąguMojaTablica = Podziel(Mój Ciąg, ";")„Wyczyść arkusz”ActiveSheet.UsedRange.Clear'iterowanie po tablicyDla N = 0 To UBound(MyArray)'Umieść każdy adres e-mail w pierwszej kolumnie arkuszaZakres("A" & N + 1). Wartość = Moja tablica (N)Następny NNapis końcowy |
Alternatywnie możemy użyć funkcji transpozycji, aby wyprowadzić tablicę do arkusza roboczego:
| 12345678910111213 | Sub CopyToRange()'Utwórz zmienneDim MyArray() As String, MyString As String'Przykładowy ciąg z ogranicznikami spacjiMój Ciąg = "Jeden,Dwa,Trzy,Cztery,Pięć,Sześć"'Użyj funkcji Split, aby podzielić części składowe ciąguMojaTablica = Podziel (Mój Ciąg, ",")'Skopiuj tablicę do arkusza roboczegoRange("A1:A" & UBound(MyArray) + 1).Value = WorksheetFunction.Transpose(MyArray)Napis końcowy |
