අන්තර්ගත වගුව
මෙම ලිපියෙන්, මම ඔබට VBA තුළ තන්තුවක් අරාවකට බෙදන්නේ කෙසේදැයි පෙන්වන්නම්. Split යනු අපි VBA හි භාවිතා කරන වඩාත් වැදගත් සහ බහුලව භාවිතා වන ශ්‍රිතයන්ගෙන් එකකි. හැකි සෑම ආකාරයකින්ම VBA තුළ තන්තුවක් බෙදීමට ඔබ ඉගෙන ගනු ඇත.
VBA බෙදීම් කාර්යය (ඉක්මන් දසුන)
=Split(Expression As String, [Delimiter], [Limit As Long=1], [CompareAsVbCompareMethod=vbBinaryCompare]) 
ප්‍රායෝගික වැඩපොත බාගන්න
තන්තුවක් අරාවකට බෙදන්න.xlsm
3 VBA හි තන්තුවක් අරාවකට බෙදීමට ක්‍රම
අපේ අතේ නූලක් තියමු “අපි එක්සත් ජනපදය, කැනඩාව, ඕස්ට්‍රේලියාව සහ ප්‍රංශය සඳහා වීසා සඳහා ඉල්ලුම් කළෙමු .” .
ඔබට VBA හි Split ශ්‍රිතය භාවිතයෙන් හැකි සෑම ආකාරයකම මෙම තන්තුව අරාවකට බෙදිය හැකි ආකාරය මම ඔබට පෙන්වන්නම්. .
1. VBA හි තන්තුවක් අරාවකට බෙදීමට ඕනෑම පරිසීමකයක් භාවිතා කරන්න
ඔබට VBA හි තන්තුවක් අරාවකට බෙදීමට පරිසීමකය ලෙස ඕනෑම තන්තුවක් භාවිතා කළ හැක.
එය අවකාශයක් (“ “) , කොමාවක් (“,”) , අර්ධ කොමාවක් (“:”) , තනි අක්ෂරයක්, a විය හැක අක්ෂර මාලාව, හෝ ඕනෑම දෙයක්.
⧭ උදාහරණ 1:
අපි කොමාව ලෙස භාවිතා කර තන්තුව බෙදමු පරිසීමකය.
කේත රේඛාව වනුයේ:
Arr = Split(Text, ",") සම්පූර්ණ VBA කේතය වනුයේ:
⧭ VBA කේතය:
7955
⧭ ප්‍රතිදානය:
එය {“අපි එක්සත් ජනපදයේ වීසා බලපත්‍රය සඳහා ඉල්ලුම් කළෙමු”, “කැනඩාව”, “ඕස්ට්‍රේලියාව”, “ වලින් සමන්විත අරාවකට තන්තුව බෙදනු ඇත.ප්‍රංශය”}.
⧭ උදාහරණ 2:
ඔබට පරිසීමකය ලෙස හිස්තැනක් (“ ”) භාවිත කළ හැකිය.
කේත රේඛාව වනුයේ:
Arr = Split(Text, " ") 0>සම්පූර්ණ VBA කේතයවනුයේ:⧭ VBA කේතය:
1522
⧭ ප්‍රතිදානය:
එය {“අපි”, “අයදුම් කළා”, “සඳහා”, සමන්විත අරාවකට තන්තුව බෙදනු ඇත. “ද”, “වීසා”, “ඔෆ්”, “එක්සත් ජනපදය,”, “කැනඩාව,”, “ඕස්ට්‍රේලියාව,”, “ප්‍රංශය,”}.
⧭ මතක තබා ගත යුතු දේවල්:
- පෙරනිමි පරිසීමකය හිස් (“ ”) වේ.
- එනම්, ඔබ කිසිඳු පරිසීමකයක් ඇතුළු නොකරන්නේ නම්, එය පරිසීමකය ලෙස හිස්තැනක් භාවිතා කරයි.
තවත් කියවන්න: Excel හි අක්ෂර අනුව තන්තුව බෙදන්න (සුදුසු ක්‍රම 6 ක්)
සමාන කියවීම්:
- පෙළ බහු වලට බෙදන්න Excel හි සෛල
- VBA තීරුවේ සිට Excel හි Array වෙත අද්විතීය අගයන් ලබා ගැනීමට (3 නිර්ණායක)
- Excel VBA: බහු සමඟ පෙරහන් කරන්නේ කෙසේද Array හි නිර්ණායක (මාර්ග 7)
2. ඕනෑම අයිතම සංඛ්‍යාවක් සහිත අරාවකට තන්තුවක් බෙදන්න
ඔබට අවශ්‍ය පරිදි ඕනෑම අයිතම සංඛ්‍යාවක් සහිත තන්තුවක් අරාවකට බෙදිය හැක.
අයිතම ගණන මෙලෙස ඇතුළු කරන්න Split ශ්‍රිතයේ 3rd තර්කය.
⧭ උදාහරණය:
අපි බෙදමු පරිසීමකය ලෙස අවකාශය සහිත පළමු 3 අයිතම තුළට අනුගත කරන්න.
කේත රේඛාවවිය:
Arr = Split(Text, " ", 3) සහ VBA කේතය වනුයේ:
⧭ VBA කේතය:
8090
⧭ ප්‍රතිදානය:
එය තන්තුවකට බෙදනු ඇත පරිසීමකය අවකාශය මගින් වෙන් කරන ලද පළමු 3 අයිතම වලින් සමන්විත අරාව.
⧭ මතක තබා ගත යුතු දේ:
- පෙරනිමි තර්කය -1 වේ.
- එයින් අදහස් වන්නේ, ඔබ තර්කය ඇතුළත් නොකළහොත්, එය බෙදී යනු ඇති බවයි. තන්තුව හැකි උපරිම වාර ගණනට.
වැඩිදුර කියවන්න: Excel හි දිග අනුව තන්තුව බෙදන්නේ කෙසේද (මාර්ග 8)
9> 3. VBA හි අරාවක් තන්තුවක් බෙදීමට සිද්ධි-සංවේදී සහ අසංවේදී පරිසීමකය යන දෙකම භාවිතා කරන්නSplit ශ්‍රිතය ඔබට සිද්ධි-සංවේදී යන දෙකම භාවිතා කිරීමට ඉදිරිපත් කරයි. අවස්ථාව-සංවේදී පරිසීමකය.
අවස්ථාව-සංවේදී පරිසීමකය සඳහා, 4 වැනි තර්කය 1 ලෙස ඇතුළු කරන්න. 3>
සහ අවශ්‍ය පරිසීමකය සඳහා, 4 වැනි තර්කය 0 ලෙස ඇතුළු කරන්න.
⧭ උදාහරණ 1: Case-Insensitive Delimiter
දී ඇති තන්තුවෙහි, “FOR” යන පාඨය පරිසීමකය ලෙස සහ 2 ලෙස සලකමු අරාවේ මුළු අයිතම ගණන.
දැන්, අවස්ථාව-සංවේදී නඩුවක් සඳහා, කේත රේඛාව වනුයේ:
Arr = Split(Text, "FOR ", 3,1) සහ සම්පූර්ණ VBA කේතය වනුයේ:
⧭ VBA කේතය:
7978
⧭ ප්‍රතිදානය:
සීමකය අවස්ථාව-සංවේදී නිසා, “FOR ” “for” ලෙස ක්‍රියා කරනු ඇති අතර එය තන්තුව අයිතම දෙකක අරාවකට බෙදනු ඇත.
⧭ උදාහරණ 2: සිද්ධි-සංවේදී පරිසීමකය
නැවතත්, අවස්ථා සංවේදී අවස්ථාවක් සඳහා, කේත රේඛාව වනුයේ:
Arr = Split(Text, "FOR ", 3,0) සහ සම්පූර්ණ VBA කේතය වනුයේ:
⧭ VBA කේතය:
2413
⧭ ප්‍රතිදානය:
සීමකය අවස්ථා සංවේදී නිසා, " FOR” “for” ලෙස නොවන අතර එය තන්තුව අයිතම දෙකක අරාවකට බෙදන්නේ නැත.
තවත් කියවන්න: Excel VBA: Array එකකින් අනුපිටපත් ඉවත් කරන්න (උදාහරණ 2)
⧭ මතක තබා ගත යුතු දේවල්:
- තර්කයේ පෙරනිමි අගය 0 වේ.
- එනම්, ඔබ 4වන තර්කයේ අගය නොතබන්නේ නම්, එය අවස්ථා සංවේදී තරගයක් සඳහා ක්‍රියා කරයි.
නිගමනය
එබැවින්, මෙම ක්‍රම භාවිතා කරමින්, ඔබට <1 භාවිතා කළ හැක. තන්තුවක් අයිතම අරාවකට බෙදීමට VBA හි ශ්‍රිතය බෙදන්න. ඔබට ප්‍රශ්න තිබේද? අපෙන් අසන්න.
