Funcția VBA Split (Exemple) - Cum se împart șirurile în Excel VBA?

Cuprins

Ce este funcția VBA Split în Excel?

Ce este funcția VBA Split în Excel?

Funcția de împărțire în VBA este o funcție de șir foarte utilă care este utilizată pentru a împărți șirurile în mai multe șiruri de caractere pe baza unui delimitator furnizat funcției și a unei metode de comparație, există și alte funcții de șir care convertesc un șir în subșir, dar funcția de împărțire poate împărți un în mai multe șiruri de caractere.

În foaia de lucru normală funcția STÂNGA, funcțiile MID și DREAPTA în excel sunt utilizate ca funcții de text în excel pentru a extrage porțiunea propoziției. De exemplu, extragerea prenumelui, prenumelui și a numelui este scenariile comune pe care le-am văzut. Dar în VBA avem funcția mai versatilă numită SPLIT, care va face o treabă similară pentru dvs. SPLIT este o funcție încorporată în Excel VBA care poate împărți propoziția furnizată pe baza delimitatorului. De exemplu, dacă doriți să împărțiți adresa de e-mail în diferite părți, elementul comun din adresa de e-mail este „@” în toate ID-urile de e-mail, deci „@” devine delimitator aici.

Funcția VBA Split String

Ca toate celelalte funcții, divizarea are și propria sa sintaxă. Mai jos sunt parametrii funcției excel VBA Split string.

Valoare sau expresie: nu este decât valoarea reală pe care încercăm să o împărțim. De exemplu, dacă doriți să împărțiți numele și prenumele, numele complet este valoarea aici.
(Delimitator): Care este elementul comun pentru a împărți valoarea sau expresia? În ID-ul de e-mail „@” este elementul comun, în adresa virgulă (,) este elementul comun. Dacă ignorați acest lucru, consideră caracterul spațiu ca valoare implicită.
(Limită): câte sub-șiruri doriți de la valoare sau expresie pe care le-ați furnizat. De exemplu, dacă valoarea este „Numele meu este Excel”, dacă furnizați 3 ca limită, acesta va afișa rezultatul în trei rânduri precum „Al meu”, „nume”, „este Excel”.
(Comparare): Deoarece nu folosim argumentul de comparare, săriți acest argument opțional.

În următoarele secțiuni ale articolului, vom vedea cum să utilizați funcția SPLIT în excel VBA practic.

Exemple de funcție VBA Split String

Mai jos sunt exemple practice ale funcției Split în Excel VBA.

Exemplul # 1 - Împărțiți fraza

Împărțire returnează rezultatul în matrice care va începe de la 0. Toate matricile sunt începute de la 0 nu de la 1.

Să presupunem că aveți cuvântul „Numele meu este Excel VBA” în celula A1.

Acum doriți să împărțiți această propoziție în bucăți precum „Mea”, „Nume”, „este”, „Excel”, „VBA”. Folosind funcția Excel VBA SPLIT String putem restabili acest rezultat.

Pasul 1: Porniți macrocomanda cu numele.

Cod:

Sub Split_Example1 () End Sub Step 2: Declarați trei variabile.

Cod:

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

Pasul 3: Acum pentru variabila definită, Textul meu atribuie cuvântul „Numele meu este Excel VBA” .

Cod:

Sub Split_Example1 () Dim MyText As String Dim i As Integer Dim MyResult () As String MyText = "Numele meu este Excel VBA" End Sub

Pasul 4: Acum pentru variabila Rezultatul meu aplicați funcția de șir divizat VBA.

Cod:

Sub Split_Example1 () Dim MyText As String Dim i As Integer Dim MyResult () As String MyText = "Numele meu este Excel VBA" MyResult = Split (End Sub

Pasul 5: Expresia este valoarea textului nostru. Deoarece am atribuit deja valoarea textului variabilei Textul meu, introduceți acest argument aici.

Cod:

Sub Split_Example1 () Dim MyText As String Dim i As Integer Dim MyResult () As String MyText = "Numele meu este Excel VBA" MyResult = Split (MyText) End Sub

Notă: Ca acum ignorați toți ceilalți parametri.

Pasul 6: Deci acum Rezultatul meu deține acest rezultat divizat. După cum am spus mai devreme în postare, funcția divizată stochează rezultatul ca o matrice deci aici

Rezultatul meu (0) = „Al meu”
Rezultatul meu (1) = „Nume”
Rezultatul meu (2) = „este”
Rezultatul meu (3) = „Excel”
Rezultatul meu (4) = „VBA”

Chiar dacă acest cod nu are niciun impact pentru a porni funcția SPLIT, putem folosi acest cod.

Exemplul 2 - VBA SPLIT String cu funcția UBOUND

Pentru a stoca rezultatul funcției SPLIT, putem folosi funcția vba UBOUND împreună cu funcția SPLIT.

UBOUND va returna lungimea maximă a tabloului. În exemplul de mai sus, lungimea maximă a tabloului a fost 5.

Luați același cuvânt „Numele meu este Excel VBA”. Să împărțim acest cuvânt și să păstrăm din celula A1 în continuare.

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.