Innehållsförteckning
Denna handledning kommer att visa hur du delar strängar i celler.
Dela strängen i celler
I VBA kan vi använda delningsfunktionen för att dela en textsträng till en matris.
Obs: Vi skrev en hel megaguide för att använda delningsfunktionen i VBA. Vi rekommenderar starkt att du kollar in det.
Sedan kan vi gå igenom matrisen och mata ut den delade texten i Excel -celler:
12345678910111213141516171819 | Sub SplitBySemicolonExample ()'Definiera variablerDim MyArray () As String, MyString As String, I As Variant, N As Integer'Provsträng med halvkolonavgränsareMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Använd delningsfunktionen för att dela upp strängens komponentdelarMyArray = Split (MyString, ";")'Rensa kalkylbladetActiveSheet.UsedRange.Clear'iterera genom matrisenFör N = 0 Till UBound (MyArray)'Placera varje e -postadress i den första kolumnen i kalkylbladetOmråde ("A" och N + 1). Värde = MyArray (N)Nästa NAvsluta Sub |
Alternativt kan vi använda Transpose -funktionen för att mata ut matrisen till ett kalkylblad:
12345678910111213 | Sub CopyToRange ()'Skapa variablerDim MyArray () Som sträng, MyString som sträng'Provsträng med mellanslagMyString = "En, två, tre, fyra, fem, sex"'Använd delningsfunktionen för att dela upp strängens komponentdelarMyArray = Split (MyString, ",")'Kopiera matrisen till kalkylbladetOmråde ("A1: A" & UBound (MyArray) + 1) .Value = WorksheetFunction.Transpose (MyArray)Avsluta Sub |