Turinys
Šiame straipsnyje parodysiu, kaip galite padalyti eilutę į masyvą VBA . Splitas yra viena iš svarbiausių ir plačiausiai naudojamų funkcijų, kurias naudojame VBA . Išmoksite padalyti eilutę į VBA visais įmanomais būdais.
VBA padalijimo funkcija (greitas vaizdas)
=Split(Expression As String, [Delimiter], [Limit As Long=1], [CompareAsVbCompareMethod=vbBinaryCompare]) 
Atsisiųsti praktikos sąsiuvinį
Padalykite eilutę į masyvą.xlsm3 būdai padalyti eilutę į masyvą naudojant VBA
Laikykime rankoje virvelę "Prašėme JAV, Kanados, Australijos ir Prancūzijos vizų." .
Parodysiu jums, kaip šią eilutę galite suskaidyti į masyvą visais įmanomais būdais, naudodami Padalijimo funkcija iš VBA .
1. Naudokite bet kokį skirtuką eilutei padalyti į masyvą VBA programoje
Galite naudoti bet kokią eilutę kaip skirtuką, kad padalytumėte eilutę į masyvą VBA .
Tai gali būti tarpas (" ") , a kablelis (",") , a kabliataškis (":") , vieną simbolį, simbolių eilutę ar bet ką kitą.
⧭ 1 pavyzdys:
Padalinkime eilutę naudodami kablelis kaip skirtuką.
Kodo eilutė bus tokia:
Arr = Split(Tekstas, ",") Visas VBA kodas bus:
⧭ VBA kodas:
Sub Split_String() Text = "Mes kreipėmės dėl JAV, Kanados, Australijos ir Prancūzijos vizų." Arr = Split(Text, ",") Output = "" For i = 0 To UBound(Arr) Output = Output + vbNewLine + vbNewLine + Arr(i) Next i MsgBox Output End Sub 
⧭ Išvestis:
Jis padalys eilutę į masyvą, sudarytą iš {"Kreipėmės dėl JAV", "Kanados", "Australijos", "Prancūzijos" vizos"}.
⧭ 2 pavyzdys:
Taip pat galite naudoti tarpas (" ") kaip skirtuką.
Kodo eilutė bus tokia:
Arr = Split(Tekstas, " ") Visas VBA kodas bus:
⧭ VBA kodas:
Sub Split_String() Text = "Mes kreipėmės dėl JAV, Kanados, Australijos ir Prancūzijos vizų." Arr = Split(Text, " ") Output = " " For i = 0 To UBound(Arr) Output = Output + vbNewLine + vbNewLine + Arr(i) Next i MsgBox Output End Sub 
⧭ Išvestis:
Jis padalys eilutę į masyvą, sudarytą iš {"Mes", "taikomas", "už", "už", "vizos", "iš", "JAV", "Kanada", "Australija", "Prancūzija,"}.
⧭ Prisimintini dalykai:
- Numatytasis skirtukas yra tarpas (" ") .
- Tai reiškia, kad jei neįterpsite jokio skirtuko, bus naudojamas erdvė kaip skirtuką.
Skaityti daugiau: "Excel" eilutės skaidymas pagal simbolius (6 tinkami būdai)
Panašūs skaitiniai:
- Teksto padalijimas į kelias "Excel" ląsteles
- VBA unikalioms vertėms iš stulpelio į "Excel" masyvą gauti (3 kriterijai)
- "Excel VBA": kaip filtruoti pagal kelis kriterijus masyve (7 būdai)
2. Padalykite eilutę į bet kokį elementų skaičių turintį masyvą
Galite padalyti eilutę į masyvą su bet kokiu elementų skaičiumi pagal savo pageidavimus.
Įterpkite elementų skaičių kaip 3. argumentas Padalijimo funkcija .
⧭ Pavyzdys:
Suskirstykime eilutę į pirmąją 3 elementai su erdvė kaip skirtuką.
Kodo eilutė bus tokia:
Arr = Split(Tekstas, " ", 3) Ir VBA kodas bus:
⧭ VBA kodas:
Sub Split_String() Text = "Mes kreipėmės dėl JAV, Kanados, Australijos ir Prancūzijos vizų." Arr = Split(Text, " ", 3) Output = "" For i = 0 To UBound(Arr) Output = Output + vbNewLine + vbNewLine + Arr(i) Next i MsgBox Output End Sub 
⧭ Išvestis:
Jis padalys eilutę į masyvą, sudarytą iš pirmųjų 3 elementai, atskirti skiriamuoju ženklu erdvė .
⧭ Prisimintini dalykai:
- Numatytasis argumentas yra -1 .
- Tai reiškia, kad jei neįvesite argumento, eilutė bus suskaidyta į didžiausią galimą skaičių kartų.
Skaityti daugiau: Kaip padalyti eilutę pagal ilgį programoje "Excel" (8 būdai)
3. Naudokite ir didžiosios, ir mažosios raidės jautrų, ir nejautrų skirtuką eilutei ar masyvui padalyti VBA
Svetainė Padalijimo funkcija galite naudoti ir , kai atsižvelgiama į mažąsias ir didžiąsias raides. ir Atskirų raidžių skirtukas.
Dėl Atskirų raidžių skyrybos ženklą, įterpkite 4. argumentas kaip 1.
Ir už Atskirų raidžių skyrybos ženklą, įterpkite 4. argumentas kaip 0 .
⧭ 1 pavyzdys: didžiosios ir mažosios raidės neskiriantis riboženklis
Pateiktoje eilutėje panagrinėkime tekstą "FOR" kaip skirtuką ir 2 kaip bendrą masyvo elementų skaičių.
Dabar už Atskirų raidžių atveju kodo eilutė bus tokia:
Arr = Split(Tekstas, "FOR ", 3,1) Ir visiškai VBA kodas bus:
⧭ VBA kodas:
Sub Split_String() Text = "Mes kreipėmės dėl JAV, Kanados, Australijos ir Prancūzijos vizų." Arr = Split(Text, "FOR", 2, 1) Output = "" For i = 0 To UBound(Arr) Output = Output + vbNewLine + vbNewLine + Arr(i) Next i MsgBox Output End Sub 
⧭ Išvestis:
Kadangi riboženklis yra Atskirų raidžių čia "FOR" veiks kaip "už" ir eilutė bus padalinta į dviejų elementų masyvą.
⧭ 2 pavyzdys: didžiosios raidės skirtukas
Vėlgi, jei , kai atsižvelgiama į mažąsias ir didžiąsias raides. atveju kodo eilutė bus tokia:
Arr = Split(Tekstas, "FOR ", 3,0) Ir visiškai VBA kodas bus:
⧭ VBA kodas:
Sub Split_String() Text = "Mes kreipėmės dėl JAV, Kanados, Australijos ir Prancūzijos vizų." Arr = Split(Text, "FOR", 2, 0) Output = "" For i = 0 To UBound(Arr) Output = Output + vbNewLine + vbNewLine + Arr(i) Next i MsgBox Output End Sub 
⧭ Išvestis:
Kadangi riboženklis yra , kai atsižvelgiama į mažąsias ir didžiąsias raides. čia "FOR" nebus kaip "už" ir ji neskaidys eilutės į dviejų elementų masyvą.
Skaityti daugiau: "Excel VBA": dublikatų šalinimas iš masyvo (2 pavyzdžiai)
⧭ Prisimintini dalykai:
- Numatytoji argumento vertė yra 0 .
- Tai reiškia, kad jei neįrašysite reikšmės 4. argumentas, jis veiks , kai atsižvelgiama į mažąsias ir didžiąsias raides. rungtynės.
Išvada
Todėl, naudodami šiuos metodus, galite naudoti Padalijimo funkcija iš VBA padalyti eilutę į elementų masyvą. Turite klausimų? Drąsiai klauskite mūsų.
