VBA-splitsfunctie (voorbeelden) - Hoe strings te splitsen in Excel VBA?

Inhoudsopgave

Wat is de VBA-splitsfunctie in Excel?

Wat is de VBA-splitsfunctie in Excel?

De splitfunctie in VBA is een zeer nuttige stringfunctie die wordt gebruikt om strings in meerdere subtekenreeksen te splitsen op basis van een scheidingsteken dat aan de functie is verstrekt en een vergelijkingsmethode, er zijn ook andere stringfuncties die een string in een substring omzet, maar de splitfunctie kan een tekenreeks in meer dan één subtekenreeks.

In het normale werkblad worden de LEFT-functie, MID-functies en RIGHT in Excel gebruikt als tekstfuncties in Excel om het gedeelte van de zin te extraheren. Extractie van voornaam, middelste naam en achternaam zijn bijvoorbeeld de algemene scenario's die we hebben gezien. Maar in VBA hebben we de meer veelzijdige functie genaamd SPLIT die een soortgelijk werk voor je zal doen. SPLIT is een ingebouwde functie in Excel VBA die de aangeleverde zin kan splitsen op basis van het scheidingsteken. Als u bijvoorbeeld het e-mailadres in verschillende delen wilt splitsen, is het gemeenschappelijke element in het e-mailadres "@" in alle e-mail-ID's, dus wordt "@" hier een scheidingsteken.

VBA Split String-functie

Net als alle andere functies heeft ook split zijn eigen syntaxis. Hieronder staan de parameters van de Excel VBA Split string-functie.

Waarde of uitdrukking: dit is niets anders dan de werkelijke waarde die we proberen te splitsen. Als u bijvoorbeeld voornaam en achternaam wilt splitsen, is de volledige naam hier de waarde.
(Scheidingsteken): wat is het gemeenschappelijke element om de waarde of uitdrukking te splitsen? In e-mail is "@" het gemeenschappelijke element, in adres is komma (,) het gemeenschappelijke element. Als u dit negeert, beschouwt het de spatie als de standaardwaarde.
(Limiet): hoeveel subtekenreeksen u wilt van de waarde of uitdrukking die u heeft opgegeven. Als de waarde bijvoorbeeld "Mijn naam is Excel" is en u 3 als limiet opgeeft, wordt het resultaat weergegeven in drie regels, zoals "Mijn", "naam", "is Excel".
(Compare): Aangezien we geen vergelijkingsargument gebruiken, sla dit optionele argument over.

In de volgende secties van het artikel zullen we zien hoe we de SPLIT-functie praktisch in Excel VBA kunnen gebruiken.

Voorbeelden van VBA Split String-functie

Hieronder staan de praktische voorbeelden van de splitfunctie in Excel VBA.

Voorbeeld # 1 - Splits de zin

Splitsen retourneert het resultaat in de array die begint bij 0. Alle arrays beginnen bij 0 en niet bij 1.

Stel dat u het woord "Mijn naam is Excel VBA" in cel A1 hebt staan.

Nu wil je deze zin opsplitsen in stukjes zoals "Mijn", "Naam", "is", "Excel", "VBA". Met behulp van Excel VBA SPLIT String-functie kunnen we dit resultaat retourneren.

Stap 1: Start de macro met de naam.

Code:

Sub Split_Example1 () End Sub Stap 2: declareer drie variabelen.

Code:

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

Stap 3: Nu voor de gedefinieerde variabele, wijst My Text het woord "My Name is Excel VBA" toe .

Code:

Sub Split_Example1 () Dim MyText As String Dim i As Integer Dim MyResult () As String MyText = "Mijn naam is Excel VBA" End Sub

Stap 4: Pas nu voor de variabele Mijn resultaat de VBA-splitstringfunctie toe.

Code:

Sub Split_Example1 () Dim MyText As String Dim i As Integer Dim MyResult () As String MyText = "Mijn naam is Excel VBA" MyResult = Split (End Sub

Stap 5: Expressie is onze tekstwaarde. Omdat we onze tekstwaarde al hebben toegewezen aan variabele My Text, voert u dit argument hier in.

Code:

Sub Split_Example1 () Dim MyText As String Dim i As Integer Dim MyResult () As String MyText = "Mijn naam is Excel VBA" MyResult = Split (MyText) End Sub

Opmerking: negeer nu alle andere parameters.

Stap 6: Dus nu bevat My Result dit gesplitste resultaat. Zoals ik eerder in het bericht vertelde, slaat de functie split het resultaat op als een array, dus hier

My Resultaat (0) = "Mijn"
My Result (1) = "Naam"
Mijn resultaat (2) = "is"
My Result (3) = "Excel"
My Result (4) = "VBA"

Hoewel deze code geen enkele impact heeft om de SPLIT-functie te starten, kunnen we deze code gebruiken.

Voorbeeld # 2 - VBA SPLIT String met UBOUND-functie

Om het resultaat van de SPLIT-functie op te slaan, kunnen we de vba UBOUND-functie samen met de SPLIT-functie gebruiken.

UBOUND retourneert de maximale lengte van de array. In het bovenstaande voorbeeld was de maximale lengte van de array 5.

Neem hetzelfde woord "Mijn naam is Excel VBA". Laten we dit woord splitsen en opslaan vanaf cel A1.

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.