Innholdsfortegnelse
Denne opplæringen vil demonstrere hvordan du deler strenger i celler.
Del strengen i celler
I VBA kan vi bruke delingsfunksjonen til å dele en tekststreng i en matrise.
Merk: Vi skrev en hel megaguide for bruk av Split-funksjonen i VBA. Vi anbefaler på det sterkeste at du sjekker det ut.
Deretter kan vi gå gjennom matrisen og sende den delte teksten inn i Excel -celler:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()'Definer variablerDim MyArray () As String, MyString As String, I As Variant, N As Integer'Prøve streng med semikolon avgrensereMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Bruk Split -funksjonen til å dele opp komponentdelene i strengenMyArray = Split (MyString, ";")"Fjern regnearketActiveSheet.UsedRange.Clear'iterere gjennom matrisenFor N = 0 Til UBound (MyArray)'Plasser hver e -postadresse i den første kolonnen i regnearketOmråde ("A" og N + 1) .Value = MyArray (N)Neste NSlutt Sub |
Alternativt kan vi bruke Transpose -funksjonen til å sende matrisen inn i et regneark:
| 12345678910111213 | Sub CopyToRange ()'Lag variablerDim MyArray () Som streng, MyString som streng'Eksempelstreng med mellomromstegnMyString = "En, to, tre, fire, fem, seks"'Bruk Split -funksjonen til å dele opp komponentdelene i strengenMyArray = Split (MyString, ",")'Kopier matrisen til regnearketOmråde ("A1: A" og UBound (MyArray) + 1) .Value = WorksheetFunction.Transpose (MyArray)Slutt Sub |
