Funkcija VBA Split (primeri) - Kako razdeliti nize v Excelu VBA?

Kazalo

Kaj je funkcija VBA Split v Excelu?

Kaj je funkcija VBA Split v Excelu?

Funkcija razdeljevanja v VBA je zelo uporabna funkcija nizov, ki se uporablja za razdelitev nizov na več podnizov na podlagi ločila, ki je na voljo funkciji, in metode primerjave. Obstajajo tudi druge funkcije nizov, ki niz pretvorijo v podniz, funkcija razdeljevanja pa lahko razdeli niz niz v več podnizov.

V običajnem delovnem listu se funkcije LEFT, funkcije MID in RIGHT v Excelu uporabljajo kot besedilne funkcije v Excelu za izvleček dela stavka. Na primer pridobivanje imena, srednjega imena in priimka je pogosti scenarij, ki smo ga videli. Toda v VBA imamo bolj vsestransko funkcijo SPLIT, ki bo za vas opravila podobno delo. SPLIT je vgrajena funkcija v Excelu VBA, ki lahko razdeli priloženi stavek glede na ločilo. Če želite na primer e-poštni naslov razdeliti na različne dele, je skupni element v e-poštnem naslovu »@« v vseh e-poštnih ID-jih, zato »@« tukaj postane ločilo.

Funkcija niza VBA Split

Kot vse druge funkcije ima tudi split tudi sam svojo sintakso. Spodaj so navedeni parametri funkcije niza excel VBA Split.

Vrednost ali izraz: to ni nič drugega kot dejanska vrednost, ki jo poskušamo razdeliti. Če želite na primer razdeliti ime in priimek, je tukaj vrednost polno ime.
(Ločilo): Kateri je skupni element za razdelitev vrednosti ali izraza? V e-poštnem sporočilu je »@« skupni element, v naslovu pa je vejica (,) skupni element. Če tega prezrete, upošteva presledek kot privzeto vrednost.
(Omejitev): Koliko podnizov želite od vrednosti ali izraza, ki ste ga navedli. Če je na primer vrednost »My name is Excel«, če navedete 3 kot omejitev, bo rezultat prikazan v treh vrsticah, kot so »My«, »name«, »is Excel«.
(Primerjaj): Ker ne uporabljamo primerjalnega argumenta, preskoči ta neobvezni argument.

V naslednjih odsekih članka bomo videli, kako praktično uporabiti funkcijo SPLIT v excelu VBA.

Primeri funkcije niza VBA Split

Spodaj so praktični primeri funkcije Split v Excelu VBA.

Primer # 1 - Razdelite stavek

Razdeli vrne rezultat v matriki, ki se začne od 0. Vsa polja se začnejo od 0 in ne od 1.

Predpostavimo, da imate v celici A1 besedo »My Name is Excel VBA«.

Zdaj želite ta stavek razdeliti na koščke, kot so "My", "Name", "is", "Excel", "VBA". S pomočjo funkcije Excel VBA SPLIT String lahko vrnemo ta rezultat.

1. korak: Zaženite makro z imenom.

Koda:

Sub Split_Example1 () Konec Podkorak 2: Navedite tri spremenljivke.

Koda:

Sub Split_Example1 () Dim MyText kot niz Dim i As Integer Dim MyResult () Kot String End Sub

3. korak: Zdaj My Defined definirani spremenljivki dodeli besedo »My Name is Excel VBA« .

Koda:

Sub Split_Example1 () Dim MyText kot niz Dim i As Integer Dim MyResult () As String MyText = "My Name is Excel VBA" End Sub

4. korak: Zdaj za spremenljivko Moj rezultat uporabite funkcijo VBA split string.

Koda:

Sub Split_Example1 () Dim MyText kot niz Dim i As Integer Dim MyResult () As String MyText = "My Name is Excel VBA" MyResult = Split (End Sub

5. korak: Izraz je naša besedilna vrednost. Ker smo besedilno vrednost že dodelili spremenljivki Moje besedilo, vnesite ta argument tukaj.

Koda:

Sub Split_Example1 () Dim MyText kot niz Dim i As Integer Dim MyResult () As String MyText = "My Name is Excel VBA" MyResult = Split (MyText) End Sub

Opomba: Tako kot zdaj prezrite vse ostale parametre.

6. korak: Moj rezultat ima zdaj ta razdeljeni rezultat. Kot sem že povedal v prispevku, funkcija split shrani rezultat kot matriko, tako tukaj

Moj rezultat (0) = "Moj"
Moj rezultat (1) = "Ime"
Moj rezultat (2) = "je"
Moj rezultat (3) = "Excel"
Moj rezultat (4) = “VBA”

Čeprav ta koda ne vpliva na zagon funkcije SPLIT, jo lahko uporabimo.

Primer # 2 - Niz VBA SPLIT s funkcijo UBOUND

Za shranjevanje rezultata funkcije SPLIT lahko uporabimo funkcijo vba UBOUND skupaj s funkcijo SPLIT.

UBOUND vrne največjo dolžino polja. V zgornjem primeru je bila največja dolžina polja 5.

Vzemite isto besedo »My Name is Excel VBA«. Razdelimo to besedo in shranimo od celice A1 naprej.

Step 1: Let’s continue from where we left off in the previous example.

Step 2: Now apply FOR NEXT LOOP in VBA from 0 to maximum length of the array i.e. UBOUND.

The reason we started from zero because SPLIT will store the result from zero, not from 1.

Step 3: Now apply VBA CELLS property and store the result.

Code:

Cells(i + 1, 1).Value = MyResult(i)

Step 4: Run this code, we would have split values.

Complete Code:

Sub Split_Example1() Dim MyText As String Dim i As Integer Dim MyResult() As String MyText = "My Name is Excel VBA" MyResult = Split(MyText) For i = 0 To UBound(MyResult) Cells(i + 1, 1).Value = MyResult(i) Next i End Sub

Return Word Count

We can also show the total number of words in the supplied value. Use the below code to show the total number of word counts. Code:

Sub Split_Example2() Dim MyText As String Dim i As Integer Dim MyResult() As String MyText = "My Name is Excel VBA" MyResult = Split(MyText) i = UBound(MyResult()) + 1 MsgBox "Total Words Count is " & i End Sub

Copy and paste the above VBA code and run it, the message box will return the result.

Things to Remember

If the delimiter is not supplied SPLIT automatically thinks the delimiter as space.
If you want to split except space then you need to specify the delimiter in double-quotes.
SPLIT stores the result as array results.
UBOUND function returns the maximum length of the array.