Turinys
Ši pamoka parodys, kaip suskaidyti eilutes į langelius.
Skaidyti eilutę į ląsteles
VBA mes galime naudoti padalijimo funkciją, norėdami padalinti teksto eilutę į masyvą.
Pastaba: Mes parašėme visą mega vadovą, kaip naudoti padalijimo funkciją VBA. Mes labai rekomenduojame tai patikrinti.
Tada galime pereiti prie masyvo, išvesdami suskaidytą tekstą į „Excel“ langelius:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()'Apibrėžkite kintamuosiusDim MyArray () kaip eilutė, MyString kaip eilutė, aš kaip variantas, N kaip sveikasis skaičius„Eilutės pavyzdys su dvitaškio skiriamuoju ženkluMyString = "[email protected]; [email protected]; [email protected]; [email protected]"„Naudokite skaidymo funkciją, kad padalintumėte eilutės sudedamąsias dalis„MyArray“ = padalintas („MyString“, „;“)'Išvalykite darbalapįActiveSheet.UsedRange.Clear„kartokite masyvąN = 0 iki „UBound“ („MyArray“)Įdėkite kiekvieną el. Pašto adresą į pirmąjį darbalapio stulpelįDiapazonas („A“ ir N + 1). Vertė = „MyArray“ (N)Kitas N.Pabaiga Sub |
Arba galime naudoti funkciją „Transpose“, kad masyvas būtų išvestas į darbalapį:
| 12345678910111213 | Sub CopyToRange ()'Sukurkite kintamuosiusDim MyArray () kaip eilutė, MyString kaip eilutė„Eilutės pavyzdys su tarpų ribotuvaisMyString = "Vienas, du, trys, keturi, penki, šeši"„Naudokite skaidymo funkciją, kad padalintumėte eilutės sudedamąsias dalis„MyArray“ = padalintas („MyString“, „,“)„Nukopijuokite masyvą į darbalapįDiapazonas („A1: A“ ir „UBound“ („MyArray“) + 1). Value = WorksheetFunction.Transpose („MyArray“)Pabaiga Sub |
