Tento tutoriál ukáže, ako rozdeliť reťazce do buniek.
Rozdelte reťazec do buniek
Vo VBA môžeme použiť funkciu rozdelenia na rozdelenie reťazca textu do poľa.
Poznámka: Spísali sme celého sprievodcu používaním funkcie rozdelenia vo VBA. Dôrazne odporúčame, aby ste si to skontrolovali.
Potom sa môžeme prejsť v poli a výstup rozdeleného textu do buniek programu Excel:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()'Definujte premennéDim MyArray () ako reťazec, MyString ako reťazec, I ako variant, N ako celé číslo„Ukážkový reťazec s oddeľovačmi bodkočiarkyMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Na rozdelenie jednotlivých častí reťazca použite funkciu RozdeliťMyArray = Split (MyString, ";")„Vymažte pracovný listActiveSheet.UsedRange.Clear'iterujte cez polePre N = 0 až UBound (MyArray)'Každú e -mailovú adresu umiestnite do prvého stĺpca pracovného hárkaRozsah ("A" & N + 1). Hodnota = MyArray (N)Ďalej N.Koniec pod |
Alternatívne môžeme použiť transpozičnú funkciu na výstup poľa do pracovného hárka:
| 12345678910111213 | Sub CopyToRange ()'Vytvorte premennéDim MyArray () ako reťazec, MyString ako reťazec„Ukážkový reťazec s oddeľovačmi medzierMyString = „Jeden, dva, tri, štyri, päť, šesť“'Na rozdelenie jednotlivých častí reťazca použite funkciu RozdeliťMyArray = Split (MyString, ",")„Skopírujte pole do pracovného hárkaRozsah ("A1: A" & UBound (MyArray) + 1). Hodnota = WorksheetFunction.Transpose (MyArray)Koniec pod |
