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

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

 Sub FindLastRow()
Range(" D2 ")=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row
End Sub

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

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

 Sub FindLastRow()
Dim LastRow As Long
    
LastRow=Cells.Find("*", Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row

MsgBox " Last Row: " & LastRow
End Sub

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

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

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

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

 Sub FindLastRow()
Range(" D2 ")=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row
End Sub

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

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

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

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

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

ဆဲလ် D2 တွင် တန်ဖိုးတစ်ခုပါဝင်သည့် နောက်ဆုံးအတန်းဖြစ်သောကြောင့် 16 တန်ဖိုးပါရှိသည်။

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

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

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

 Sub FindLastRow()
Dim LastRow As Long
    
LastRow=Cells.Find("*", Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row

MsgBox " Last Row: " & LastRow
End Sub

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

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

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

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

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

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