Vba: كيفية العثور على آخر سطر مستخدم

يمكنك استخدام بناء الجملة الأساسي التالي في VBA للعثور على آخر صف تم استخدامه في ورقة Excel:

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

يبحث هذا المثال تحديدًا عن الصف الأخير المستخدم في الورقة الحالية ويعيد النتيجة في الخلية D2 .

إذا كنت تريد بدلاً من ذلك عرض السطر الأخير من مربع الرسالة، فيمكنك استخدام بناء الجملة التالي:

 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 :

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

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أن الخلية D2 تحتوي على القيمة 11 .

يخبرنا هذا أن الصف الأخير المستخدم في هذه الورقة بالذات هو الصف 11.

ومن الجدير بالذكر أيضًا أنه إذا كان لديك خلايا فارغة قبل الخلية المستخدمة، فسيبحث هذا الماكرو دائمًا عن آخر صف مستخدم.

على سبيل المثال، لنفترض أننا قمنا بتشغيل الماكرو على مجموعة البيانات التالية:

تحتوي الخلية D2 على قيمة 16 لأنها الصف الأخير الذي يحتوي على قيمة.

المثال 2: ابحث عن الصف الأخير باستخدام VBA واعرض النتائج في مربع الرسالة

لنفترض بدلاً من ذلك أننا نريد العثور على آخر صف مستخدم في الورقة وعرض رقم الصف في مربع رسالة.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

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

MsgBox " Last Row: " & LastRow
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

يخبرنا مربع الرسالة أن الصف الأخير المستخدم في الورقة هو الصف 11 .

ملاحظة : يمكنك العثور على الوثائق الكاملة لأسلوب VBA Find هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

فبا: كيفية حساب متوسط قيمة النطاق
فبا: كيفية حساب عدد الصفوف في النطاق
VBA: كيفية إزالة القيم المكررة في النطاق