Excel VBA - Opdel streng i celler

Denne vejledning viser, hvordan man opdeler strenge i celler.

Del strengen i celler

I VBA kan vi bruge splitfunktionen til at opdele en tekststreng i et array.

Bemærk: Vi skrev en hel megaguide til brug af splitfunktionen i VBA. Vi anbefaler stærkt, at du tjekker det ud.

Derefter kan vi gå gennem arrayet og udsende den opdelte tekst til Excel -celler:

12345678910111213141516171819

Sub SplitBySemicolonExample ()'Definer variablerDim MyArray () As String, MyString As String, I As Variant, N As Integer'Prøve streng med semi kolon afgrænsereMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Brug splitfunktion til at opdele komponentdelene i strengenMyArray = Opdel (MyString, ";")'Ryd regnearketActiveSheet.UsedRange.Clear'gentag gennem arrayetFor N = 0 Til UBound (MyArray)'Placer hver e -mail -adresse i den første kolonne i regnearketOmråde ("A" og N + 1) .Værdi = MyArray (N)Næste NAfslut Sub

Alternativt kan vi bruge Transpose -funktionen til at sende arrayet til et regneark:

12345678910111213

Sub CopyToRange ()'Opret variablerDim MyArray () Som streng, MyString som streng'Prøve streng med mellemrumMyString = "En, to, tre, fire, fem, seks"'Brug Split -funktion til at opdele komponentdelene i strengenMyArray = Opdel (MyString, ",")'Kopier arrayet til regnearketOmråde ("A1: A" og UBound (MyArray) + 1) .Value = WorksheetFunction.Transpose (MyArray)Afslut Sub