Mündəricat
Bu məqalədə mən sizə VBA -də bir sətri necə massiləyə ayıra biləcəyinizi göstərəcəyəm. Split VBA -də istifadə etdiyimiz ən vacib və geniş istifadə olunan funksiyalardan biridir. Siz VBA -də bütün mümkün üsullarla sətir parçalamağı öyrənəcəksiniz.
VBA Split Funksiya (Quick View)
=Split(Expression As String, [Delimiter], [Limit As Long=1], [CompareAsVbCompareMethod=vbBinaryCompare]) 
Təcrübə İş dəftərini endirin
Strini Massiv.xlsm-ə bölmək
VBA-da Simi Massilə Ayırmağın 3 Yolu
Əlimizdə bir sətir olaq “ABŞ, Kanada, Avstraliya və Fransaya viza üçün müraciət etdik. .” .
Mən sizə bu sətri VBA -nin Bölmə funksiyasından istifadə edərək bütün mümkün üsullarla massivə necə ayıra biləcəyinizi göstərəcəyəm. .
1. VBA-da sətiri massiləyə bölmək üçün hər hansı bir ayırıcıdan istifadə edin
Siz VBA -də sətri seriala bölmək üçün hər hansı bir sətirdən ayırıcı kimi istifadə edə bilərsiniz.
Bu, boşluq (“ “) , vergül (“,”) , nöqtəli vergül (“:”) , tək simvol, a simvol sətri və ya hər hansı bir şey.
⧭ Misal 1:
Gəlin vergül kimi istifadə edərək sətri bölək. ayırıcı.
Kod xətti:
Arr = Split(Text, ",") Tam VBA Kodu olacaq:
⧭ VBA Kodu:
9766
⧭ Çıxış:
O, sətri {“ABŞ vizası üçün müraciət etdik”, “Kanada”, “Avstraliya”, “-dan ibarət massilə böləcək.France”}.
⧭ Misal 2:
Siz həmçinin ayırıcı kimi boşluq (“ ”) istifadə edə bilərsiniz.
Kod xətti belə olacaq:
Arr = Split(Text, " ") Tam VBA Kodu olacaq:
⧭ VBA Kodu:
Arr = Split(Text, "FOR ", 3,1) 
⧭ Nəticə:
O, sətri {“Biz”, “tətbiq etdik”, “for”dan ibarət massiləyə böləcək "the", "viza", "of", "ABŞ", "Kanada", "Avstraliya", "Fransa",}.
⧭ Yadda saxlanmalı olanlar:
- Defolt ayırıcı boşluq (“ ”) -dir.
- Yəni, siz heç bir ayırıcı daxil etməsəniz, o, ayırıcı kimi boşluq istifadə edəcək.
Ətraflı oxuyun: Excel-də sətri simvollara görə bölmək (6 uyğun üsul)
Oxşar oxunuşlar:
- Mətni çoxluğa bölmək Excel-də xanalar
- Excel-də Sütundan Massilə Unikal Dəyərlər Almaq üçün VBA (3 Kriteriya)
- Excel VBA: Çoxlu Filtrləmə Massivdə kriteriyalar (7 yol)
2. Bir sətri istənilən sayda elementi olan massilə bölmək
Siz öz istəyinizə uyğun olaraq sətri istənilən sayda elementdən ibarət massiləyə bölmək olar.
Elementlərin sayını aşağıdakı kimi daxil edin. Bölünmə funksiyasının 3-cü arqumenti.
⧭ Misal:
Gəlin bölünək ayırıcı olaraq boşluq ilə ilk 3 elementə daxil edin.
Kod xəttiolun:
Arr = Split(Text, " ", 3) Və VBA kodu belə olacaq:
⧭ VBA Kodu:
9972
⧭ Nəticə:
O, sətri bölünəcək ayırıcı boşluq ilə ayrılmış ilk 3 elementdən ibarət massiv.
⧭ Yadda saxlanmalı olanlar:
- Defolt arqument -1 -dir.
- Bu o deməkdir ki, arqumenti daxil etməsəniz, o, bölünəcək sətri mümkün olan maksimum sayda.
Ətraflı oxuyun: Excel-də sətri uzunluğa görə necə bölmək olar (8 üsul)
3. VBA-da sətiri bölmək üçün həm hərflərə həssas, həm də həssas olmayan ayırıcıdan istifadə edin
Bölmə funksiyası sizə həm hərflərə həssas və həm də istifadə etməyi təklif edir. hərf hərfinə həssas ayırıcı.
hərflərə həssas olmayan ayırıcı üçün 4-cü arqumenti 1 olaraq daxil edin.
Və hərflərə həssas olmayan ayırıcı üçün 4-cü arqumentini 0 kimi daxil edin.
⧭ Nümunə 1: Hərfi-həssas Ayrıcı
Verilmiş sətirdə ayırıcı kimi “FOR” mətnini, 2 kimi mətni nəzərdən keçirək. massivin elementlərinin ümumi sayı.
İndi hərfsiz hal üçün kod sətri:
Arr = Split(Text, "FOR ", 3,1) olacaq.Və tam VBA kodu belə olacaq:
⧭ VBA Kodu:
1895
⧭ Çıxış:
Burada ayırıcı hərflərə həssas deyil olduğundan, “FOR ” “for” kimi işləyəcək və sətri iki elementdən ibarət massivə böləcək.
⧭ Nümunə 2: Hərf-Həssas Ayrıcı
Yenə də hərf-həssas hərf üçün kod xətti belə olacaq:
Arr = Split(Text, "FOR ", 3,0) Və tam VBA kodu belə olacaq:
⧭ VBA Kodu:
3045
⧭ Çıxış:
Burada ayırıcı hərflərə həssas olduğundan, “ FOR” “for” kimi olmayacaq və o, sətri iki elementdən ibarət massivə bölməyəcək.
Daha çox oxuyun: Excel VBA: Massivdən Dublikatları Silin (2 Nümunə)
⧭ Yadda saxlamalı olduğunuz şeylər:
- Arqumentin standart dəyəri 0 -dir.
- Yəni, 4-cü arqumentinin dəyərini qoymasanız, həssas uyğunluğu üçün işləyəcək.
Nəticə
Ona görə də, bu üsullardan istifadə edərək, <1-dən istifadə edə bilərsiniz. Sətri elementlər massivinə bölmək üçün VBA -dən>Split funksiyası . Hər hansı bir sualınız var? Bizdən soruşmaqdan çekinmeyin.
