VBA တွင် သင်သည် နောက်ဆုံးအတန်းကိုရှာဖွေရန် မတူညီသောနည်းလမ်းများကို အသုံးပြုနိုင်သည်။ ဤဆောင်းပါးတွင်၊ Excel တွင် နောက်ဆုံးအတန်းရှာရန် VBA ၏ မတူညီသောနည်းလမ်းများကို ရှင်းပြပါမည်။

ဤရှင်းလင်းချက်ကို မြင်နိုင်စေရန်၊ နမူနာဒေတာအတွဲကို အသုံးပြုပါမည်။ အရောင်းအချက်အလက်ကို ကိုယ်စားပြုသည့် ဒေတာအတွဲတွင် ကော်လံ 4 ခု ရှိပါသည်။ ဤကော်လံများသည် အရောင်းပုဂ္ဂိုလ်၊ ဒေသ၊ ထုတ်ကုန်၊ နှင့် စျေးနှုန်း ။

လေ့ကျင့်ရန် ဒေါင်းလုဒ်လုပ်ပါ

4591

ဤတွင်၊ LastRow_SpecialCells ဟုခေါ်သော လုပ်ငန်းစဉ်ခွဲတစ်ခုကို Long အမျိုးအစားတစ်ခုကို ဖန်တီးထားပါသည်။ variable LastRow ကို ကြေငြာလိုက်ပါပြီ။

ထို့နောက် Range.SpecialCells method ကိုအသုံးပြု၍ variable ကို သတ်မှတ်ခဲ့သည်။ ဤတွင်၊ ငါကော်လံ A ( A:A ) ကို အပိုင်းအခြားအဖြစ် အသုံးပြုထားပါသည်။ xlCellTypeLastCell ကို SpecialCells ၏ အမျိုးအစားပါရာမီတာအဖြစ် ပေးထားသည်၊ ၎င်းသည် အပိုင်းအခြားအတွက် နောက်ဆုံးဆဲလ်ကို ပြန်ပေးလိမ့်မည် (ဤကိစ္စအတွက်၊ ကော်လံမှ A )။

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

ထို့နောက်၊ ကုဒ်ကို သိမ်းဆည်းပြီး ၎င်းသို့ ပြန်သွားပါ။ အလုပ်စာရွက်။

တဖန်၊ View tab >> ကိုဖွင့်ပါ။ Macros >> View Macros

ထို့နောက်၊ dialog box ပေါ်လာပါမည်။

ယခု Macro အမည် မှ LastRow_SpecialCells ကို ရွေးပါ Macros အတွင်းရှိ အတွင်း အလုပ်စာအုပ်ကိုလည်း ရွေးပါ။

နောက်ဆုံးတွင် ရွေးချယ်ထားသော Macro ကို run ပါ။

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

2. အလွတ်မဟုတ်သောဆဲလ်များအတွက် Rows.Count ကိုအသုံးပြုခြင်း

သင် VBA ကိုအသုံးပြု၍ နောက်ဆုံးအတန်းကိုရှာဖွေရန် Rows.Count နည်းလမ်းကို အသုံးပြုနိုင်သည်။

ယခု၊ ဆော့ဖ်ဝဲရေးသားသူ တက်ဘ် >> ကိုဖွင့်ပါ။ ထို့နောက် Visual Basic

Applications အတွက် Microsoft Visual Basic ၏ ဝင်းဒိုးအသစ်တစ်ခု ပေါ်လာပါမည်။

ယခု Insert >> Module

A Module ကိုဖွင့်ပါမည်။

ထို့နောက် <2 တွင် အောက်ပါကုဒ်ကိုရေးပါ။>Module ။

1627

ဤတွင်၊ ကျွန်ုပ်သည် LastRow_NonEmpty ဟုခေါ်သော ပြောင်းလဲမှုတစ်ခုဖြစ်သည့် Long အမျိုးအစား LastRow ကို ကြေညာပြီးပါပြီ။

ယခု၊ CELLS(Rows.Count, 1) သည် ပထမကော်လံတွင် အတန်းမည်မျှရှိသည်ကို ရေတွက်ပါမည်။ ထို့နောက် End(xlUp).Row ကိုသုံး၍ ယခု Excel အပိုင်းအခြားရှိ နောက်ဆုံးအသုံးပြုထားသောအတန်းကို တွေ့ရှိပါမည်။

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

ထို့နောက်၊ ကုဒ်ကို သိမ်းဆည်းပြီး အလုပ်စာရွက်သို့ ပြန်သွားပါ။

ဤနေရာတွင်၊ View tab >> Macros >> View Macros

ယခု dialog box ပေါ်လာပါမည်။

ထို့နောက် မက်ခရိုအမည် မှ LastRow_NonEmpty ကို ရွေးပါ Macros ရှိ အတွင်း အလုပ်စာအုပ်ကိုလည်း ရွေးပါ။

နောက်ဆုံးတွင် ရွေးချယ်ထားသော Macro ကို run ပါ။

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

3. ရွေးချယ်ထားသော မည်သည့်ကော်လံအတွက်မဆို Rows.Count ကိုအသုံးပြုခြင်း

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

ပထမ ဆော့ဖ်ဝဲရေးသားသူ တက်ဘ် >> ကိုဖွင့်ပါ။ ထို့နောက် Visual Basic

Applications အတွက် Microsoft Visual Basic ၏ ဝင်းဒိုးအသစ်တစ်ခု ပေါ်လာပါမည်။

ယခု Insert >> Module

A Module ကိုဖွင့်ပါမည်။

ထို့နောက် <2 တွင် အောက်ပါကုဒ်ကိုရေးပါ။>Module ။

8851

ဤတွင်၊ ကျွန်ုပ်သည် LastRow_AnyColumn ဟုခေါ်သော ပြောင်းလဲမှုတစ်ခုဖြစ်သည့် Long အမျိုးအစား LastRow ကို ကြေငြာထားပါသည်။

ထို့နောက် အကွာအဝေး ကော်လံ B ကို ကန့်သတ်ချက်အဖြစ် ပေးထားပြီး Rows.Count တွင်လည်း၊ ပေးထားသောကော်လံ B တွင် အတန်းမည်မျှရှိသည်ကို ရေတွက်ပါမည်။ ထို့နောက် End(xlup) ကိုသုံးသည်။ Excel အကွာအဝေးတွင် နောက်ဆုံးအသုံးပြုထားသော အတန်းကိုတွေ့မည့် အတန်း အတန်း။

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

နောက်တစ်ခု၊ ကုဒ် ကို သိမ်းဆည်းပြီး အလုပ်စာရွက်သို့ ပြန်သွားပါ။

ထို့နောက် View tab >> Macros >> View Macros

ဤတွင်၊ dialog box ပေါ်လာပါမည်။

ယခု Macro အမည် မှ LastRow_AnyColumn ကို ရွေးပါ Macros in အတွင်း အလုပ်စာအုပ်ကိုလည်း ရွေးပါ။

နောက်ဆုံးတွင် ရွေးချယ်ထားသော Macro ကို run ပါ။

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

အလားတူစာဖတ်ခြင်း-

• VBA ကို Excel ကော်လံတွင် ရှာပါ (7 ချဉ်းကပ်နည်းများ)
• VBA ကိုအသုံးပြု၍ ရှာပြီး အစားထိုးပါ (11 နည်းလမ်းများ)
• Excel တွင် VBA ကိုအသုံးပြု၍ အတိအကျကိုက်ညီမှုကိုရှာပါ (နည်းလမ်း 5 ခု)
• Excel တွင် VBA ဖြင့် စာကြောင်းရှာနည်း (ဥပမာ 8 ခု)

4. နောက်ဆုံးအတန်းကိုရှာရန် UsedRange ကိုအသုံးပြု၍

နောက်ဆုံးအတန်းကိုရှာဖွေရန် အလုပ်စာရွက်၏ UsedRange ကို သင်သုံးနိုင်သည်။ VBA ကို အသုံးပြု၍ အတန်း

ယခု၊ ဆော့ဖ်ဝဲရေးသားသူ တက်ဘ် >> ထို့နောက် Visual Basic

ထို့နောက်၊ အပလီကေးရှင်းများအတွက် Microsoft Visual Basic ၏ ဝင်းဒိုးအသစ်တစ်ခု ပေါ်လာပါမည်။

ယခု Insert >> Module

A Module ကိုဖွင့်ပါမည်။

ထို့နောက် <တွင်အောက်ပါကုဒ်ကိုရေးပါ။ 2>Module ။

7214

ဤတွင်၊ ကျွန်ုပ်သည် LastRow_UsedRange ဟုခေါ်သော ပြောင်းလဲမှုတစ်ခုဖြစ်သည့် Long အမျိုးအစား ၊ LastRow ကို ကြေငြာပြီးပါပြီ။

နောက်တစ်ခု၊ သတ်မှတ်လိုက်ပါ။ ActiveSheet.UsedRange.Rows နည်းလမ်းကို အသုံးပြု၍ ပြောင်းလဲနိုင်သော ပြောင်းလဲနိုင်သော ActiveSheet.UsedRange.Rows.Count ကိုလည်း ActiveSheet.UsedRange.Rows ၏ ကန့်သတ်ချက်များအဖြစ် ပေးထားသည်၊ ၎င်းသည် ၎င်းကို ပြန်ပေးလိမ့်မည်။ နောက်ဆုံးအတန်း။

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

ယခု၊ ကုဒ်ကို သိမ်းဆည်းပြီး အလုပ်စာရွက်သို့ ပြန်သွားပါ။

ထို့နောက် View tab >> ကိုဖွင့်ပါ။ Macros >> Macros ကိုကြည့်ရန်

နောက်တစ်ခု၊ ဒိုင်ယာလော့ဂ်ဘောက်စ် ပေါ်လာပါမည်။

ထို့နောက် မက်ခရိုမှ အမည် ရွေးချယ်ပါ LastRow_UsedRange ကိုလည်း Macros အတွင်းရှိ အတွင်း အလုပ်စာအုပ်ကို ရွေးပါ။

နောက်ဆုံးတွင်၊ Run ရွေးချယ်ထားသော Macro .

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

5. Range.Find to Find Last အတန်း

သင် Range.Find method ကို VBA ကို အသုံးပြု၍ နောက်ဆုံးအတန်းကိုရှာပါ။

ယခု <2 ကိုဖွင့်ပါ။>ဆော့ဖ်ဝဲရေးသားသူ တက်ဘ် >> ထို့နောက် Visual Basic

ဤတွင်၊ Applications အတွက် Microsoft Visual Basic ၏ ဝင်းဒိုးအသစ်တစ်ခု ပေါ်လာပါမည်။

ယခု ထည့်သွင်းရန် >> Module

A Module ကိုဖွင့်ပါမည်။

ထို့နောက် Module တွင် အောက်ပါကုဒ်ကိုရေးပါ။

4064

ဤတွင်၊ ကျွန်ုပ်သည် Range_Find_Method ဟုခေါ်သော ပရိုဂရမ်ခွဲတစ်ခုအား ဖန်တီးထားပြီး၊ Long အမျိုးအစား LastRow ကို ကြေညာထားသည့်

ထို့နောက် Cells.Find နည်းလမ်းကို အသုံးပြု၍ ကိန်းရှင်ကို သတ်မှတ်ခဲ့သည်။ ဒီနေရာမှာ ဟောပြော ၇ကန့်သတ်ချက်များ။ အဘယ် ပါရာမီတာတွင် ကျွန်ုပ်အသုံးပြုခဲ့သည် (“*”) တွင် ပထမအလွတ်မဟုတ်သောဆဲလ်ကို တွေ့ရှိမည်ဖြစ်သည်။ A1 ကို ပြီးနောက် ပါရာမီတာတွင် စတင်ရန် အပိုင်းအခြားအဖြစ် ပေးထားသည်။ LookAt တွင် ပေးထားသော ဘောင်အတွင်း xlPart သည် ဆဲလ်အတွင်းရှိ စာသား၏ အစိတ်အပိုင်း တစ်ခုခုကို ကြည့်ရှုရန်။

LookIn:=xlFormulas ပါရာမီတာကို ရှာလိမ့်မည် ဖော်မြူလာတွေရှိရင် SearchOrder:=xlByRows ပါရာမီတာသည် ညာမှဘယ်သို့ ရွေ့လျားမည်ဖြစ်ပြီး ၎င်းသည် အလွတ်မဟုတ်သောဆဲလ်ကို ရှာမတွေ့မချင်း အတန်းတစ်ခုစီကို လှည့်ပတ်မည်ဖြစ်သည်။

MatchCase:=False ကန့်သတ်ချက်သည် Find စာလုံးကြီး သို့မဟုတ် စာလုံးငယ်များကို မစဉ်းစားရန် ပြောလိမ့်မည်။ ကွက်လပ်မဟုတ်သည်ကို တွေ့ရှိသောအခါ ၎င်းသည် ရပ်ပြီး အတန်းနံပါတ်ကို ပြန်ပေးသည်။

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

ယခု၊ ကုဒ်ကို သိမ်းဆည်းပါ။ အလုပ်စာရွက်သို့ ပြန်သွားပါ။

ဤတွင်၊ View tab >> ကိုဖွင့်ပါ။ Macros >> View Macros

ယခု dialog box ပေါ်လာပါမည်။

ယခု Macro အမည် မှ Range_Find_Method ကို ရွေးပါ Macros in အတွင်း အလုပ်စာရွက်ကိုလည်း ရွေးပါ။

နောက်ဆုံးတွင် ရွေးချယ်ထားသော Macro ကို run ပါ။

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

နိဂုံးချုပ်

ဤဆောင်းပါးတွင်၊ ကျွန်ုပ်သည် VBA Excel တွင် နောက်ဆုံးအတန်းကို ရှာရန် နည်းလမ်း 5 ခုကို ရှင်းပြထားပါသည်။ နောက်ဆုံးအတန်းကိုရှာရန် နည်းလမ်းတစ်ခုခုကို သင်လိုက်နာနိုင်သည်။ ဤနည်းလမ်းများနှင့် ပတ်သက်၍ ရှုပ်ထွေးမှုများ သို့မဟုတ် မေးခွန်းများရှိပါက သင်မေးနိုင်ပါသည်။အောက်တွင်မှတ်ချက်ချပါ။