V tem članku vam bom pokazal, kako lahko razdelimo niz v polje v VBA . Split je ena najpomembnejših in najpogosteje uporabljenih funkcij, ki jih uporabljamo v VBA . Naučili se boste razdeliti niz v VBA na vse možne načine.

Funkcija razdelitve VBA (hitri prikaz)

Prenesi delovni zvezek za prakso

3 načini delitve niza v polje v programu VBA

Imejmo v roki vrvico "Za vizum smo zaprosili v ZDA, Kanadi, Avstraliji in Franciji." .

Pokazal vam bom, kako lahko ta niz razdelite v polje na vse možne načine z uporabo Funkcija razdelitve na spletnem mestu VBA .

1. Uporaba kateregakoli ločilnika za razdelitev niza v polje v programu VBA

Za delitev niza v polje lahko uporabite katerikoli niz kot ločilo v VBA .

Lahko je presledek (" ") , a vejica (",") , a podpičje (":") , en sam znak, niz znakov ali kar koli drugega.

⧭ Primer 1:

Razdelimo niz z uporabo vejica kot ločilo.

Vrstica kode bo:

Celoten Koda VBA bo:

⧭ Koda VBA:

 Sub Split_String() Besedilo = "Zaprosili smo za vizum ZDA, Kanade, Avstralije in Francije." Arr = Split(Text, ",") Izhod = "" For i = 0 To UBound(Arr) Output = Output + vbNewLine + vbNewLine + Arr(i) Next i MsgBox Output End Sub 

⧭ Izhod:

Niz bo razdelil v polje, sestavljeno iz {"Zaprosili smo za vizum ZDA", " Kanade", " Avstralije", " Francije"}.

⧭ Primer 2:

Uporabite lahko tudi presledek (" ") kot ločilo.

Vrstica kode bo:

Celoten Koda VBA bo:

⧭ Koda VBA:

 Sub Split_String() Besedilo = "Zaprosili smo za vizum ZDA, Kanade, Avstralije in Francije." Arr = Split(Besedilo, " ") Izhod = "" For i = 0 To UBound(Arr) Output = Output + vbNewLine + vbNewLine + Arr(i) Next i MsgBox Output End Sub 

⧭ Izhod:

Niz bo razdelil v polje, sestavljeno iz {"Mi", "uporablja", "za", "the", "vizum", "od", "ZDA", "Kanada", "Avstralija", "Francija", "}.

⧭ Ne pozabite:

• Privzeta ločnica je presledek (" ") .
• To pomeni, da če ne vstavite nobenega razmejitvenega elementa, bo uporabil prostor kot ločilo.

Preberite več: Razdelitev niza po znakih v Excelu (6 primernih načinov)

Podobna branja:

• Razdelite besedilo v več celic v Excelu
• VBA za pridobivanje edinstvenih vrednosti iz stolpca v polje v Excelu (3 merila)
• Excel VBA: Kako filtrirati z več merili v polju (7 načinov)

2. Razdelite niz v polje s poljubnim številom elementov

Niz lahko razdelite v polje s poljubnim številom elementov po svoji želji.

Vstavite število elementov kot 3. argument Funkcija razdelitve .

⧭ Primer:

Razdelimo niz na prvi del 3 elementov z prostor kot ločilo.

Vrstica kode bo:

In Koda VBA bo:

⧭ Koda VBA:

 Sub Split_String() Besedilo = "Zaprosili smo za vizum ZDA, Kanade, Avstralije in Francije." Arr = Split(Besedilo, " ", 3) Output = "" For i = 0 To UBound(Arr) Output = Output + vbNewLine + vbNewLine + Arr(i) Next i MsgBox Output End Sub 

⧭ Izhod:

Niz bo razdelil v polje, sestavljeno iz prvih 3 elementov, ločenih z ločilom prostor .

⧭ Ne pozabite:

• Privzet argument je -1 .
• To pomeni, da če ne vnesete argumenta, bo niz razdelil na največje možno število krat.

Preberite več: Kako razdeliti niz po dolžini v Excelu (8 načinov)

3. Za delitev niza ali polja v VBA uporabite razmejitev, občutljivo na velikost črk in neobčutljivo na velikost črk

Spletna stran Funkcija razdelitve omogoča uporabo obeh , ki upošteva velike in male črke. in . razločevanje velikih in malih črk razmejitev.

Za razločevanje velikih in malih črk vstavite ločilo 4. argument kot 1.

In za razločevanje velikih in malih črk vstavite ločilo 4. argument kot 0 .

⧭ Primer 1: Razmejitev, ki ni občutljiva na velikost črk

V danem nizu upoštevajmo besedilo "ZA" kot ločilo in 2 kot skupno število elementov polja.

Zdaj za razločevanje velikih in malih črk v tem primeru bo vrstica kode naslednja:

In celoten Koda VBA bo:

⧭ Koda VBA:

 Sub Split_String() Besedilo = "Zaprosili smo za vizum ZDA, Kanade, Avstralije in Francije." Arr = Split(Besedilo, "ZA", 2, 1) Output = "" For i = 0 To UBound(Arr) Output = Output + vbNewLine + vbNewLine + Arr(i) Next i MsgBox Output End Sub 

⧭ Izhod:

Ker je ločilo razločevanje velikih in malih črk tukaj je "ZA" bo deloval kot "za" in razdeli niz v polje dveh elementov.

⧭ Primer 2: Razmejitev, občutljiva na velikost črk

Tudi za , ki upošteva velike in male črke. v tem primeru bo vrstica kode naslednja:

In celoten Koda VBA bo:

⧭ Koda VBA:

 Sub Split_String() Besedilo = "Zaprosili smo za vizum ZDA, Kanade, Avstralije in Francije." Arr = Split(Besedilo, "FOR", 2, 0) Output = "" For i = 0 To UBound(Arr) Output = Output + vbNewLine + vbNewLine + Arr(i) Next i MsgBox Output End Sub 

⧭ Izhod:

Ker je ločilo , ki upošteva velike in male črke. tukaj je "ZA" ne bo kot "za" in ne bo razdelil niza v polje dveh elementov.

Preberite več: Excel VBA: Odstranjevanje dvojnikov iz polja (2 primera)

⧭ Ne pozabite:

• Privzeta vrednost argumenta je 0 .
• To pomeni, da če ne vnesete vrednosti 4. argument, bo delovala za , ki upošteva velike in male črke. tekma.

Zaključek

Zato lahko s temi metodami uporabite Funkcija razdelitve na spletnem mestu VBA za razdelitev niza v polje elementov. Imate kakšno vprašanje? Vprašajte nas.