Satura rādītājs
Šī apmācība parādīs, kā sadalīt virknes šūnās.
Sadalīt virkni šūnās
VBA mēs varam izmantot funkciju Sadalīt, lai teksta virkni sadalītu masīvā.
Piezīme: Mēs uzrakstījām visu mega rokasgrāmatu par sadalītās funkcijas izmantošanu VBA. Mēs ļoti iesakām to pārbaudīt.
Tad mēs varam pārvietoties pa masīvu, izvadot sadalīto tekstu Excel šūnās:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()'Definējiet mainīgosDim MyArray () kā virkne, mana virkne kā virkne, es kā iespēja, N kā vesels skaitlis'Parauga virkne ar semikolu atdalītājiemMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Izmantojiet sadalīšanas funkciju, lai sadalītu virknes sastāvdaļasMyArray = Sadalīts (MyString, ";")'Notīriet darblapuActiveSheet.UsedRange.Clearatkārtojiet masīvuN = 0 līdz UBound (MyArray)Ievietojiet katru e -pasta adresi darblapas pirmajā kolonnāDiapazons ("A" & N + 1). Vērtība = MyArray (N)Nākamais N.Beigu apakš |
Alternatīvi, mēs varam izmantot funkciju Transponēt, lai masīvu izvadītu darblapā:
| 12345678910111213 | Sub CopyToRange ()'Izveidojiet mainīgosDim MyArray () kā virkne, MyString kā virkne'Parauga virkne ar atstarpju atdalītājiemMyString = "Viens, divi, trīs, četri, pieci, seši"'Izmantojiet sadalīšanas funkciju, lai sadalītu virknes sastāvdaļasMyArray = Sadalīts (MyString, ",")'Kopējiet masīvu darblapāDiapazons ("A1: A" & UBound (MyArray) + 1). Vērtība = WorksheetFunction.Transpose (MyArray)Beigu apakš |
