Excel VBA - razdeli niz v celice

Ta vadnica bo pokazala, kako razdeliti nize na celice.

Razdeli niz v celice

V VBA lahko s funkcijo Split razdelimo niz besedila v niz.

Opomba: Napisali smo celoten vodnik po uporabi funkcije Split v VBA. Priporočamo, da ga preverite.

Nato lahko preletimo skozi matriko in razdelimo besedilo v celice Excela:

12345678910111213141516171819

Sub SplitBySemicolonExample ()'Določite spremenljivkeDim MyArray () As String, MyString As String, I As Variant, N As Integer„Vzorec niza z ločili med polpičjemMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'S funkcijo Split razdelite sestavne dele nizaMyArray = Razdeli (MyString, ";")'Počisti delovni listActiveSheet.UsedRange.Clear'ponovite po matrikiZa N = 0 proti UBound (MyArray)'Vsak e -poštni naslov postavite v prvi stolpec delovnega listaRazpon ("A" & N + 1). Vrednost = MyArray (N)Naslednji N.End Sub

Druga možnost je, da lahko s funkcijo prenosa iznesemo matriko na delovni list:

12345678910111213

Sub CopyToRange ()'Ustvari spremenljivkeZatemni MyArray () kot niz, MyString kot niz'Vzorec niza z razmikiMyString = "Ena, dva, tri, štiri, pet, šest"'S funkcijo Split razdelite sestavne dele nizaMyArray = Razdeli (MyString, ",")'Kopirajte matriko na delovni listObseg ("A1: A" & UBound (MyArray) + 1). Vrednost = Funkcija delovnega lista. Prenos (MyArray)End Sub