VBA-jakotoiminto (esimerkkejä) Kuinka jakaa merkkijonot Excel VBA: ssa?

Sisällysluettelo

Mikä on VBA Split -toiminto Excelissä?

Mikä on VBA Split -toiminto Excelissä?

Split-funktio VBA: ssa on erittäin hyödyllinen merkkijonofunktio, jota käytetään jakamaan merkkijonot useiksi alaosiksi funktiolle tarjotun erottimen ja vertailumenetelmän perusteella, on myös muita merkkijonofunktioita, jotka muuntaa merkkijonon alimerkkijonoksi, mutta split-funktio voi jakaa merkkijono useampaan kuin yhteen alaosaan.

Normaalissa laskentataulukossa VASEN funktio, MID-funktioita ja OIKEA excel -ohjelmassa käytetään excel-tekstitoimintoina lauseen purkamiseen. Esimerkiksi etunimen, keskimmäisen nimen ja sukunimen purkaminen on yleisiä skenaarioita, joita olemme nähneet. Mutta VBA: ssa meillä on monipuolisempi toiminto nimeltä SPLIT, joka tekee samanlaisen työn puolestasi. SPLIT on sisäänrakennettu toiminto Excel VBA: ssa, joka voi jakaa toimitetun lauseen erottimen perusteella. Esimerkiksi, jos haluat jakaa sähköpostiosoitteen eri osiin, sähköpostiosoitteen yleinen elementti on “@” kaikissa sähköpostitunnuksissa, joten ”@” tulee erottimeksi tässä.

VBA Split String -toiminto

Kuten kaikilla muillakin toiminnoilla, myös splitillä on oma syntaksinsa. Alla on Excel VBA Split -merkkijonofunktion parametrit.

Arvo tai ilmaisu: Tämä ei ole muuta kuin todellinen arvo, jonka yritämme jakaa. Esimerkiksi, jos haluat jakaa etu- ja sukunimen, arvo tässä on koko nimi.
(Erotin): Mikä on yhteinen elementti arvon tai lausekkeen jakamiseksi? Sähköpostissa Id: n ”@” on yhteinen elementti, osoitepilkussa (,) on yhteinen elementti. Jos jätät tämän huomiotta, se pitää välilyöntiä oletusarvona.
(Raja): Kuinka monta alaosaa haluat toimittamastasi arvosta tai lausekkeesta. Esimerkiksi, jos arvo on "Nimeni on Excel", jos annat rajaksi 3, tulos näkyy kolmella rivillä, kuten "Oma", "nimi", "on Excel".
(Vertaa): Koska emme käytä vertailuargumenttia, ohita tämä valinnainen argumentti.

Artikkelin seuraavissa osioissa näemme, kuinka SPLIT-toimintoa käytetään Excel VBA: ssa käytännössä.

Esimerkkejä VBA Split String -toiminnosta

Alla on käytännön esimerkkejä Split Vunction -toiminnosta Excel VBA: ssa.

Esimerkki # 1 - Jaa lause

Split palauttaa tuloksen taulukossa, joka alkaa nollasta. Kaikki matriisit alkavat 0: sta eivät 1: stä.

Oletetaan, että solussa A1 on sana "Nimeni on Excel VBA".

Nyt haluat jakaa tämän lauseen paloiksi, kuten "Oma", "Nimi", "on", "Excel", "VBA". Käyttämällä Excel VBA SPLIT String -toimintoa voimme palauttaa tämän tuloksen.

Vaihe 1: Käynnistä makro nimellä.

Koodi:

Sub Split_Example1 () End Sub Step 2: Ilmoita kolme muuttujaa.

Koodi:

Sub Split_Example1 () Himmennä MyText merkkijonona Dim i kuin kokonaislämpö Dim MyResult () merkkijonon lopussa Sub

Vaihe 3: Nyt määritetylle muuttujalle Oma teksti antaa sanan "Nimeni on Excel VBA" .

Koodi:

Sub Split_Example1 () Himmennä MyText merkkijonona Dim i kokonaislukuna Dim MyResult () As String MyText = "Nimeni on Excel VBA" Loppu Sub

Vaihe 4: Käytä nyt Oma tulos -muuttujalle VBA split string -toimintoa.

Koodi:

Sub Split_Example1 () Himmennä MyText merkkijonona Dim i kokonaislukuna Dim MyResult () As String MyText = "Nimeni on Excel VBA" MyResult = Split (End Sub

Vaihe 5: Lauseke on tekstiarvomme. Koska olemme jo määrittäneet tekstiarvomme muuttujalle Oma teksti, kirjoita tämä argumentti tähän.

Koodi:

Sub Split_Example1 () Hämärtää MyText merkkijonona Dim i kokonaislukuna Dim MyResult () As String MyText = "Nimeni on Excel VBA" MyResult = Jaettu (MyText) Loppuosa

Huomaa: Kuten nyt, ohita kaikki muut parametrit.

Vaihe 6: Joten nyt Oma tulos omistaa tämän jaetun tuloksen. Kuten kerroin aiemmin viestissä, split-toiminto tallentaa tuloksen matriisina, joten täällä

Oma tulos (0) = “Oma”
Oma tulos (1) = “Nimi”
Oma tulos (2) = "on"
Oma tulos (3) = “Excel”
Oma tulos (4) = “VBA”

Vaikka tällä koodilla ei ole mitään vaikutusta SPLIT-toiminnon aloittamiseen, voimme käyttää tätä koodia.

Esimerkki # 2 - VBA SPLIT -merkkijono UBOUND-toiminnolla

SPLIT-toiminnon tuloksen tallentamiseksi voimme käyttää vba UBOUND -toimintoa SPLIT-toiminnon kanssa.

UBOUND palauttaa matriisin enimmäispituuden. Yllä olevassa esimerkissä ryhmän enimmäispituus oli 5.

Otetaan sama sana ”Nimeni on Excel VBA”. Jaetaan tämä sana ja tallennetaan solusta A1 eteenpäin.

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.