6 Different ways to find last row in a worksheet using VBA

Abu Dujana

Thread Starter
⭐⭐⭐⭐⭐⭐
Charismatic
Expert
Popular
Helping Hands
Joined
Apr 25, 2018
Local time
5:43 AM
Threads
81
Messages
988
Reaction score
1,386
Points
452
Location
Karachi, Pakistan
Gold Coins
516.20
السلام علیکم۔۔
مائکروسافٹ ایکسل میں وی بی اے کا کردار ورک بک کو آٹو میٹ کرنے میں بہت اہم ہے۔ دنیا بھر کے ایکسپرٹ مائکروسافٹ ایکسل کو ضرورت کے مطابق کسٹومائز کرتے رہتے ہیں اور باقی پروگرامنگ لینگویجز کی طرح ایک بہت بڑی کمیونٹی وی بی اے میں سپورٹ کے لئے موجود ہے۔ جب ہم وی بی اے میں ڈائنامک رینج سیٹ کرتے ہیں تو اس کے لئے ہمیں آخری رو یا آخری کالم کا معلوم ہونا ضروری ہوتا ہے۔ آج ہم آپ کے ساتھ 6 ایسے طریقے شیئر کریں گے جس کے ذریعے رو کے آخری سیل کو معلوم کیا جاسکتا ہے۔ یہ تمام طریقے فاسٹ اور آزمودہ ہیں۔ اور سب ایک دوسرے کے نعم البدل ہیں ۔ صرف معلومات میں اضافے کے لئے اشتراک پیش خدمت ہے۔

آخری رو کو معلوم کرنے کے6 طریقے۔۔

VBA:
Sub FindingLastRow()

'Abu [email protected]

Dim sht As Worksheet
Dim LastRow As Long

Set sht = ActiveSheet

'Using Find Function (Provided by Bob Ulmas - Thanks to Him by Abu Dujana)
  LastRow = sht.Cells.Find("*", searchorder:= xlByRows, searchdirection:=xlPrevious).Row

'Using SpecialCells Function
  LastRow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row

'Ctrl + Shift + End
  LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

'Using UsedRange
  sht.UsedRange 'Refresh UsedRange
  LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row

'Using Table Range
  LastRow = sht.ListObjects("Table1").Range.Rows.Count

'Using Named Range
  LastRow = sht.Range("MyNamedRange").Rows.Count

'Ctrl + Shift + Down (Range should be first cell in data set)
  LastRow = sht.Range("A1").CurrentRegion.Rows.Count
'Using CountA formula
LastRow = Application.WorksheetFunction.CountA("A:A")

End Sub
 
Last edited:

Doctor

⭐⭐⭐⭐⭐⭐
Charismatic
Designer
Expert
Writer
Popular
King of Alkamunia
Proud Pakistani
🏆 ZH Top Poster in a Month Award 🕖
الکمونیا میں تو ایسا نہیں ہوتا
Top Poster
ITD Developer
Joined
Apr 25, 2018
Local time
5:43 AM
Threads
919
Messages
14,216
Reaction score
15,428
Points
2,036
Age
47
Location
Rawalpindi
Gold Coins
4,245.20
Get Unlimited Tags / Banners
Permanently Change Username Color & Style.
Get Unlimited Tags / Banners
Get Unlimited Tags / Banners
Thread Highlight Unlimited
Change Username Style.
:kia-baat:
:10xbvw3:
:nicepost:


ایسے ہی مفید اشتراک کا سلسلہ جاری رکھیں

:goodpost:
 
Top
AdBlock Detected

We get it, advertisements are annoying!

Sure, ad-blocking software does a great job at blocking ads, but it also blocks useful features of our website. For the best site experience please disable your AdBlocker.

I've Disabled AdBlock    No Thanks