VBA padalijimo funkcija (pavyzdžiai) Kaip suskaidyti eilutes „Excel VBA“?

Turinys

Kas yra „VBA Split“ funkcija „Excel“?

Kas yra „VBA Split“ funkcija „Excel“?

Padalijimo funkcija VBA yra labai naudinga eilutės funkcija, kuri naudojama eilutėms padalyti į kelias eilutes remiantis funkcijai skirtuoju skirikliu ir palyginimo metodu, yra ir kitų eilučių funkcijų, kurios eilutę paverčia pakraščiu, tačiau padalijimo funkcija gali padalinti eilutė į daugiau nei vieną pogrupį.

Įprastoje darbalapio LEFT funkcijoje MID funkcijos ir RIGHT „excel“ yra naudojamos kaip „Excel“ teksto funkcijos, norint išgauti sakinio dalį. Pavyzdžiui, vardo, antrojo vardo ir pavardės išskyrimas yra įprasti scenarijai, kuriuos matėme. Tačiau VBA turime universalesnę funkciją, vadinamą SPLIT, kuri atliks panašų darbą už jus. SPLIT yra „Excel VBA“ įmontuota funkcija, kuri gali padalinti pateiktą sakinį pagal atskyriklį. Pvz., Jei norite padalinti el. Pašto adresą į skirtingas dalis, bendras el. Pašto adreso elementas yra „@“ visuose el. Pašto adresuose, todėl „@“ čia tampa ribotuvu.

VBA padalijimo eilutės funkcija

Kaip ir visos kitos funkcijos, taip pat ir suskaidymas turi savo sintaksę. Žemiau pateikiami „Excel VBA Split“ eilutės funkcijos parametrai.

Vertė arba išraiška: tai tik faktinė vertė, kurią bandome padalyti. Pavyzdžiui, jei norite padalyti vardą ir pavardę, čia reikšmė yra visas vardas.
(Apribotojas): Koks yra elementas, kuris padalija vertę ar išraišką? El. Pašto ID „@“ yra bendras elementas, adreso kablelis (,) yra bendras elementas. Jei to nepaisysite, tarpo simbolis laikomas numatytąja verte.
(Riba): kiek pakraščių norite iš pateiktos vertės ar išraiškos. Pvz., Jei reikšmė yra „Mano vardas yra„ Excel ““, jei kaip ribą nurodysite 3, rezultatas bus rodomas trijose eilutėse, pvz., „Mano“, „Pavadinimas“, „yra„ Excel ““.
(Palyginti): Kadangi nenaudojame argumento „Palyginti“, praleiskite šį pasirinktinį argumentą.

Kitose straipsnio dalyse pamatysime, kaip praktiškai naudoti funkciją SPLIT programoje „Excel VBA“.

VBA padalijimo eilutės funkcijos pavyzdžiai

Žemiau pateikiami „Excel VBA“ padalijimo funkcijos praktiniai pavyzdžiai.

1 pavyzdys - padalykite sakinį

Padalijimas pateikia masyvo rezultatą, kuris prasidės nuo 0. Visi masyvai prasideda nuo 0, o ne nuo 1.

Tarkime, kad langelyje A1 turite žodį „Mano vardas yra„ Excel VBA ““.

Dabar norite padalyti šį sakinį į tokias dalis kaip „Mano“, „Vardas“, „yra“, „Excel“, „VBA“. Naudodami „Excel VBA SPLIT String“ funkciją galime grąžinti šį rezultatą.

1 žingsnis: Pradėkite makrokomandą pavadinimu.

Kodas:

Sub Split_Example1 () Pabaiga 2 antrasis žingsnis: paskelbkite tris kintamuosius.

Kodas:

Sub Split_Pavyzdys1 () Dim MyText kaip eilutė Dim i kaip sveikoji Dim MyResult () kaip eilutės pabaiga Sub

3 žingsnis: Dabar apibrėžtam kintamajam „Mano tekstas“ priskiria žodį „Mano vardas yra„ Excel VBA ““ .

Kodas:

Sub Split_Example1 () Dim MyText As String Dim i As Integer Dim MyResult () As String MyText = "Mano vardas yra Excel VBA" Pabaiga Sub

4 žingsnis: Dabar kintamajam Mano rezultatas pritaikykite VBA split string funkciją.

Kodas:

Sub Split_Example1 () Dim MyText As String Dim i As Integer Dim MyResult () As String MyText = "Mano vardas yra Excel VBA" MyResult = Split (End Sub

5 žingsnis: Išraiška yra mūsų teksto vertė. Kadangi mes jau priskyrėme teksto vertę kintamajam Mano tekstas, įveskite šį argumentą čia.

Kodas:

Sub Split_Example1 () Dim MyText As String Dim i as Integer Dim MyResult () As String MyText = "Mano vardas yra" Excel VBA "MyResult = Padalinti (MyText) Pabaiga

Pastaba: kaip ir dabar, ignoruokite visus kitus parametrus.

6 žingsnis: Taigi dabar mano rezultatas turi šį išskaidytą rezultatą. Kaip sakiau anksčiau įraše, „split“ funkcija išsaugo rezultatą kaip masyvą, taigi čia

Mano rezultatas (0) = „Mano“
Mano rezultatas (1) = „Vardas“
Mano rezultatas (2) = „yra“
Mano rezultatas (3) = „Excel“
Mano rezultatas (4) = „VBA“

Nors šis kodas nedaro jokio poveikio norint paleisti funkciją SPLIT, mes galime naudoti šį kodą.

2 pavyzdys - VBA SPLIT eilutė su funkcija UBOUND

Norėdami išsaugoti SPLIT funkcijos rezultatą, kartu su SPLIT funkcija galime naudoti funkciją „vba UBOUND“.

UBOUND grąžins maksimalų masyvo ilgį. Ankstesniame pavyzdyje maksimalus masyvo ilgis buvo 5.

Paimkite tą patį žodį „Mano vardas yra„ Excel VBA ““. Padalinkime šį žodį ir saugokime nuo langelio 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.