Vba- ကော်လံတစ်ခုမှ ထူးခြားသောတန်ဖိုးများကို မည်သို့ရယူမည်နည်း။

Excel ရှိ ကော်လံတစ်ခုမှ ထူးခြားသောတန်ဖိုးများစာရင်းကို အမြန်ရရန် VBA ရှိ AdvancedFilter လုပ်ဆောင်ချက်ကို သင်အသုံးပြုနိုင်ပါသည်။

ဤသည်မှာ ပြုလုပ်ရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။

 Sub GetUniqueValues()

Range(" A1:A11 ").AdvancedFilter_
                Action:=xlFilterCopy, CopyToRange:=Range(" E1 "), Unique:= True

End Sub

ဤဥပမာသည် အကွာအဝေး A1:A11 မှ ထူးခြားသောတန်ဖိုးများစာရင်းကို ထုတ်နုတ်ပြီး ၎င်းတို့အား ဆဲလ် E1 မှ ပြသသည်။

အောက်ဖော်ပြပါ ဥပမာသည် ဤ syntax ကို လက်တွေ့တွင် မည်သို့အသုံးပြုရမည်ကို ပြသထားသည်။

ဥပမာ- VBA ကို အသုံးပြုပြီး ကော်လံတစ်ခုမှ သီးသန့်တန်ဖိုးများကို ရယူပါ။

အမျိုးမျိုးသော ဘတ်စကတ်ဘောကစားသမားများအကြောင်း အချက်အလက်များပါရှိသော Excel တွင် အောက်ပါဒေတာအတွဲရှိသည် ဆိုကြပါစို့။

Team ကော်လံမှ ထူးခြားသောတန်ဖိုးများစာရင်းကို ထုတ်ယူလိုသည်ဆိုကြပါစို့။

ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။

 Sub GetUniqueValues()

Range(" A1:A11 ").AdvancedFilter_
                Action:=xlFilterCopy, CopyToRange:=Range(" E1 "), Unique:= True

End Sub

ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

ယခု Column E သည် မူရင်းဒေတာအတွဲရှိ Team ကော်လံမှ ထူးခြားသောတန်ဖိုးများစာရင်းကို ပြသပေးပါသည်။

AdvancedFilter method သည် case-insensitive ဖြစ်သည်ကို သတိပြုပါ။

ဥပမာအားဖြင့်၊ ကျွန်ုပ်တို့တွင် အဖွဲ့အမည် “ MAVS” နှင့် “ Mavs” တို့ကို တူညီသောကော်လံတွင် ရှိပါက၊ ၎င်းတို့သည် တူညီသောစာလုံးများကို မျှဝေထားသောကြောင့်၊ ဤ Macro သည် Team ကော်လံတွင်ပေါ်လာသော တန်ဖိုးနှစ်ခု၏ ပထမဆုံးသောတန်ဖိုးများကိုသာ ပြန်ပေးပါမည်။

မှတ်ချက် – VBA တွင် AdvancedFilter နည်းလမ်း၏ စာရွက်စာတမ်းအပြည့်အစုံကို ဤနေရာတွင် ရှာတွေ့နိုင်ပါသည်။

ထပ်လောင်းအရင်းအမြစ်များ

အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA တွင် အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-

VBA- သီးခြားစာသားဖြင့် ဆဲလ်များကို ရေတွက်နည်း
VBA- အပိုင်းအခြားရှိ အတန်းအရေအတွက်ကို ရေတွက်နည်း
VBA- အပိုင်းအခြားရှိ ထူးခြားသောတန်ဖိုးများကို ရေတွက်နည်း