Tento tutoriál předvede, jak rozdělit řetězce do buněk.
Rozdělte řetězec na buňky
Ve VBA můžeme použít funkci rozdělení k rozdělení řetězce textu do pole.
Poznámka: Napsali jsme celého mega průvodce používáním funkce Split ve VBA. Důrazně doporučujeme, abyste si to prohlédli.
Potom můžeme procházet polem a výstup rozděleného textu do buněk aplikace Excel:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()"Definujte proměnné."Dim MyArray () jako řetězec, MyString jako řetězec, I jako varianta, N jako celé číslo„Ukázkový řetězec s oddělovači středníkůMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Pomocí funkce Rozdělit rozdělte jednotlivé části řetězceMyArray = Rozdělit (MyString, ";")„Vymažte pracovní listActiveSheet.UsedRange.Clear'opakujte polePro N = 0 až UBound (MyArray)'Umístěte každou e -mailovou adresu do prvního sloupce listuRozsah ("A" & N + 1). Hodnota = MyArray (N)Další N.End Sub |
Alternativně můžeme použít funkci Transpose k výstupu pole do listu:
| 12345678910111213 | Dílčí CopyToRange ()`` Vytvořte proměnnéDim MyArray () jako řetězec, MyString jako řetězec"Ukázkový řetězec s oddělovači mezer."MyString = "Jeden, dva, tři, čtyři, pět, šest"'Pomocí funkce Rozdělit rozdělte jednotlivé části řetězceMyArray = Rozdělit (MyString, ",")`` Zkopírujte pole do listuRozsah ("A1: A" & UBound (MyArray) + 1) .Value = WorksheetFunction.Transpose (MyArray)End Sub |
