Jinsi ya Kugawanya Kamba katika safu katika VBA (Njia 3)

  • Shiriki Hii
Hugh West

Katika makala haya, nitakuonyesha jinsi unavyoweza kugawanya kamba katika safu katika VBA . Split ni mojawapo ya vitendaji muhimu na vinavyotumika sana ambavyo tunatumia katika VBA . Utajifunza kugawanya mfuatano katika VBA kwa aina zote za njia iwezekanavyo.

Kazi ya Kugawanya VBA (Mwonekano wa Haraka)

=Split(Expression As String, [Delimiter], [Limit As Long=1], [CompareAsVbCompareMethod=vbBinaryCompare])

Pakua Kitabu cha Mazoezi

Gawa Kamba katika Mkusanyiko.xlsm

Njia 3 za Kugawanya Mfuatano katika Mkusanyiko katika VBA

Tuwe na kamba mkononi mwetu “Tulituma maombi ya visa ya U.S, Kanada, Australia na Ufaransa .” .

Nitakuonyesha jinsi unavyoweza kugawanya mfuatano huu katika safu katika aina zote za njia uwezavyo kwa kutumia Kitendakazi cha Kugawanya ya VBA .

1. Tumia Delimiter Yoyote Kugawanya Mfuatano katika Mkusanyiko katika VBA

Unaweza kutumia mfuatano wowote kama kikomo ili kugawanya kamba katika safu katika VBA .

Inaweza kuwa nafasi (“ “) , koma (“,”) , semicolon (“:”) , herufi moja, a mfuatano wa herufi, au kitu chochote.

Mfano 1:

Hebu tugawanye mfuatano kwa kutumia koma kama delimiter.

Mstari wa msimbo utakuwa:

Arr = Split(Text, ",")

Msimbo wa VBA kamili utakuwa:

Msimbo wa VBA:

6621

Toleo:

Itagawanya mfuatano katika safu inayojumuisha {“Tulituma maombi ya visa ya U.S”, “Kanada”, “Australia”, “Ufaransa”}.

Mfano 2:

Unaweza pia kutumia nafasi (“ ”) kama kikomo.

Mstari wa msimbo utakuwa:

Arr = Split(Text, " ") 0>Msimbo kamili wa VBAutakuwa:

Msimbo wa VBA:

1440

Toleo:

Itagawanya mfuatano katika safu inayojumuisha {“Sisi”, “tumetumika”, “kwa ajili ya”, “the”, “visa”, “ya”, “U.S,”, “Canada,”, “Australia,”, “France,”}.

Mambo ya Kukumbuka:

  • Kitenganishi chaguomsingi ni nafasi (“ ”) .
  • Yaani, usipoweka kikomo chochote, itatumia nafasi kama kikomo.

Soma Zaidi: Gawanya Mfuatano kwa Herufi katika Excel (Njia 6 zinazofaa)

Masomo Sawa:

  • Gawanya maandishi kuwa nyingi seli katika Excel
  • VBA ili Kupata Thamani za Kipekee kutoka Safu wima hadi Mkusanyiko katika Excel (Vigezo 3)
  • Excel VBA: Jinsi ya Kuchuja kwa Nyingi Vigezo katika Mpangilio (Njia 7)

2. Gawa Mfuatano katika Mkusanyiko wenye Idadi Yoyote ya Vipengee

Unaweza kugawanya mfuatano katika safu na idadi yoyote ya vipengee kulingana na matakwa yako.

Ingiza idadi ya vipengee kama unavyotaka. hoja ya 3 ya kitendakazi cha Kugawanya .

Mfano:

Hebu tugawanye weka kamba kwenye vipengee 3 vya kwanza vilivyo na nafasi kama kitenganishi.

Mstari wa msimbo utakuwakuwa:

Arr = Split(Text, " ", 3)

Na Msimbo wa VBA utakuwa:

Msimbo wa VBA:

7746

Pato:

Itagawanya kamba kuwa safu inayojumuisha vipengee 3 vya kwanza vilivyotenganishwa na kitenganishi nafasi .

Mambo ya Kukumbuka:

  • Hoja chaguo-msingi ni -1 .
  • Hiyo inamaanisha, usipoingiza hoja, itagawanyika. mfuatano ndani ya idadi ya juu zaidi ya nyakati zinazowezekana.

Soma Zaidi: Jinsi ya Kugawanya Kamba kwa Urefu katika Excel (Njia 8)

3. Tumia Kitatuzi Kinachoguswa na Nyeti na Isiyogusika Kugawanya Mfuatano Mkusanyiko katika VBA

Kitendakazi cha Kugawanya hukupa kutumia nyeti kwa kesi na haijalishi kitenganishi.

Kwa kipingamizi kisichojali kesi , weka hoja ya nne kama 1. 3>

Na kwa kipingamizi kisichojali kesi , weka hoja ya 4 kama 0 .

Mfano wa 1: Kilinganishi kisichojali Kesi

Katika mfuatano uliotolewa, hebu tuzingatie maandishi “KWA” kama kikomo na 2 kama jumla ya idadi ya vipengee vya safu.

Sasa, kwa kesi isiyojali , mstari wa msimbo utakuwa:

Arr = Split(Text, "FOR ", 3,1)

Na nambari kamili ya VBA itakuwa:

Msimbo wa VBA:

1613

Pato:

Kama kitenganishi hakijalishi kesi hapa, “KWA ” itafanya kazi kama “kwa” na itagawanya kamba katika safu ya vitu viwili.

Mfano wa 2: Kitatuzi Kinachojali Kesi

Tena, kwa kesi nyeti , mstari wa msimbo utakuwa:

Arr = Split(Text, "FOR ", 3,0)

Na nambari kamili ya VBA itakuwa:

Msimbo wa VBA:

3336

Pato:

Kama kitenganishi ni nyeti kwa kesi hapa, “ KWA” haitakuwa kama “kwa” na haitagawanya kamba katika safu ya vitu viwili.

Soma Zaidi: Excel VBA: Ondoa Nakala kutoka kwa Mkusanyiko (Mifano 2)

Mambo ya Kukumbuka:

  • Thamani chaguo-msingi ya hoja ni 0 .
  • Yaani, usipoweka thamani ya hoja ya 4 , itafanya kazi kwa mechi nyeti kwa kesi .

Hitimisho

Kwa hivyo, kwa kutumia mbinu hizi, unaweza kutumia Gawanya chaguo za kukokotoa kati ya VBA ili kugawanya mfuatano katika safu ya vipengee. Je, una maswali yoyote? Jisikie huru kutuuliza.

Hugh West ni mkufunzi na mchambuzi mwenye uzoefu wa juu wa Excel na uzoefu wa zaidi ya miaka 10 katika tasnia. Ana Shahada ya Kwanza katika Uhasibu na Fedha na Shahada ya Uzamili katika Utawala wa Biashara. Hugh ana shauku ya kufundisha na ameanzisha mbinu ya kipekee ya kufundisha ambayo ni rahisi kufuata na kuelewa. Ujuzi wake wa kitaalam wa Excel umesaidia maelfu ya wanafunzi na wataalamu ulimwenguni kote kuboresha ujuzi wao na kufaulu katika taaluma zao. Kupitia blogu yake, Hugh hushiriki ujuzi wake na ulimwengu, akitoa mafunzo ya bila malipo ya Excel na mafunzo ya mtandaoni ili kuwasaidia watu binafsi na biashara kufikia uwezo wao kamili.