Vba- နောက်ဆုံးအသုံးပြုထားသော ကော်လံကို ဘယ်လိုရှာမလဲ။

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

 Sub FindLastColumn()
Range(" A14 ") = Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column
End Sub

ဤဥပမာသည် လက်ရှိစာရွက်ရှိ နောက်ဆုံးအသုံးပြုထားသောကော်လံကို ရှာဖွေပြီး ဆဲလ် A14 တွင် ရလဒ်ကို ပြန်ပေးသည်။

မက်ဆေ့ဘောက်စ်တစ်ခု၏ နောက်ဆုံးကော်လံကို ပြသလိုပါက၊ အောက်ပါ syntax ကို အသုံးပြုနိုင်ပါသည်။

 Sub FindLastColumn()
Dim LastCol As Long
    
LastCol=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column

MsgBox " Last Column: " & LastCol
End Sub

အောက်ဖော်ပြပါ ဥပမာများသည် ဤနည်းလမ်းတစ်ခုစီကို လက်တွေ့အသုံးချနည်းကို ပြသထားသည်။

ဆက်စပ်- VBA- နောက်ဆုံးအသုံးပြုထားသော လိုင်းကို ဘယ်လိုရှာမလဲ။

ဥပမာ 1- VBA သုံးပြီး နောက်ဆုံးကော်လံကို ရှာပြီး ဆဲလ်အတွင်း ရလဒ်များကို ပြသပါ။

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

ဤ Excel စာရွက်တွင်အသုံးပြုသည့်နောက်ဆုံးကော်လံကိုရှာရန်နှင့်ဆဲလ် A14 တွင်ရလဒ်ကိုပြသရန်ကျွန်ုပ်တို့သည်အောက်ပါ macro ကိုဖန်တီးနိုင်သည်။

 Sub FindLastColumn()
Range(" A14 ") = Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column
End Sub

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

ဆဲလ် A14 တွင် တန်ဖိုး 2 ပါဝင်ကြောင်း သတိပြုပါ။

ဤစာရွက်တွင် အသုံးပြုသည့် နောက်ဆုံးကော်လံသည် ကော်လံ 2 ဖြစ်ကြောင်း ကျွန်ုပ်တို့ကို ပြောပြသည်။

အသုံးပြုထားသောကော်လံတစ်ခုရှေ့တွင် သင့်တွင် ကော်လံအလွတ်များရှိနေပါက၊ ဤ macro သည် နောက်ဆုံးအသုံးပြုထားသောကော်လံကို အမြဲတွေ့လိမ့်မည်ဖြစ်ကြောင်းကိုလည်း သတိပြုသင့်ပါသည်။

ဥပမာအားဖြင့်၊ ကျွန်ုပ်တို့သည် အောက်ပါ dataset တွင် macro ကို run သည်ဆိုပါစို့။

ဆဲလ် A14 တွင် တန်ဖိုး 5 ပါဝင်သောကြောင့် ၎င်းသည် တန်ဖိုးများပါဝင်သော နောက်ဆုံးကော်လံဖြစ်သည်။

ဥပမာ 2- VBA သုံးပြီး နောက်ဆုံးကော်လံကို ရှာပြီး ရလဒ်များကို မက်ဆေ့ဘောက်စ်တွင် ပြသပါ။

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

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

 Sub FindLastColumn()
Dim LastCol As Long
    
LastCol=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column

MsgBox " Last Column: " & LastCol
End Sub

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

စာရွက်ရှိ နောက်ဆုံးကော်လံသည် ကော်လံ 2 ဖြစ်ကြောင်း မက်ဆေ့ဘောက်စ်က ပြောပြသည်။

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

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

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

VBA- အပိုင်းအခြား၏ ပျမ်းမျှတန်ဖိုးကို တွက်ချက်နည်း
VBA- အပိုင်းအခြားရှိ အတန်းအရေအတွက်ကို ရေတွက်နည်း
VBA- အပိုင်းအခြားရှိ ထပ်နေသောတန်ဖိုးများကို ဖယ်ရှားနည်း