جدول المحتويات
في VBA ، يمكنك استخدام طرق مختلفة للعثور على الصف الأخير. في هذه المقالة ، سأشرح طرقًا مختلفة لـ VBA للعثور على الصف الأخير في Excel.
لجعل هذا الشرح مرئيًا ، سأستخدم عينة مجموعة بيانات. هناك 4 أعمدة في مجموعة البيانات تمثل معلومات المبيعات. هذه الأعمدة هي مندوب المبيعات ، المنطقة ، المنتج ، و السعر .
تنزيل للتدريب
VBA Find Last Row.xlsm
طرق لـ VBA البحث عن الصف الأخير في Excel
1. استخدام SpecialCells للعثور على الصف الأخير
يمكنك استخدام طريقة SpecialCells للعثور على الصف الأخير باستخدام VBA .
أولاً ، افتح Developer علامة تبويب & GT ؛ & GT. ثم حدد Visual Basic
ستظهر نافذة جديدة من Microsoft Visual Basic for Applications .
الآن ، من إدراج & GT ؛ & GT. حدد الوحدة النمطية
سيتم فتح A الوحدة النمطية .
ثم اكتب الكود التالي في الوحدة النمطية .
2799
هنا ، قمت بإنشاء إجراء فرعي يسمى LastRow_SpecialCells ، حيث يوجد نوع طويل تم التصريح عن المتغير LastRow .
ثم حدد المتغير باستخدام طريقة Range.SpecialCells . هنا ، لقد استخدمت العمود A ( A: A ) كنطاق. توفير xlCellTypeLastCell كمعامل نوع SpecialCells ، سيؤدي هذا إلى إرجاع الخلية الأخيرة للنطاق (في هذه الحالة ، من العمود A ).
لقد استخدمت مربع رسالة لإظهار النتيجة.
بعد ذلك ، حفظ الرمز والعودة إلى ورقة عمل.
مرة أخرى ، افتح عرض علامة التبويب & GT ؛ & GT ؛ من وحدات ماكرو & GT ؛ & GT. حدد عرض وحدات الماكرو
ثم ، سيظهر مربع حوار .
الآن ، من اسم الماكرو حدد LastRow_SpecialCells أيضًا حدد المصنف ضمن وحدات الماكرو في .
أخيرًا ، قم بتشغيل المحدد الماكرو .
وبالتالي ، سيظهر مربع رسالة يظهر رقم الصف الأخير.
2. استخدام Rows.Count للخلايا غير الفارغة
يمكنك استخدام طريقة Rows.Count للعثور على الصف الأخير باستخدام VBA .
الآن ، افتح علامة التبويب Developer & gt؛ & gt؛ ثم حدد Visual Basic
ستظهر نافذة جديدة من Microsoft Visual Basic for Applications .
الآن ، من إدراج & GT ؛ & GT. حدد الوحدة النمطية
سيتم فتح A الوحدة النمطية .
ثم اكتب الكود التالي في الوحدة النمطية .
5669
هنا ، قمت بإنشاء إجراء فرعي يسمى LastRow_NonEmpty ، حيث يوجد نوع متغير طويل LastRow تم التصريح عن .
الآن ، الخلايا (عدد الصفوف ، 1) ستحسب عدد الصفوف الموجودة في العمود الأول. ثم استخدم End (xlUp) .Row الآن هذا سيجد آخر صف مستخدم في نطاق Excel.
في النهاية ، لقد استخدمت مربع رسالة لإظهارنتيجة.
ثم ، احفظ الكود والعودة إلى ورقة العمل.
هنا ، افتح عرض علامة التبويب & gt؛ & gt؛ من وحدات ماكرو & GT ؛ & GT. حدد عرض وحدات الماكرو
الآن ، سيظهر مربع حوار .
ثم ، من اسم الماكرو حدد LastRow_NonEmpty أيضًا حدد المصنف ضمن وحدات الماكرو في .
أخيرًا ، قم بتشغيل المحدد الماكرو .
وبالتالي ، سيظهر مربع رسالة يظهر رقم الصف الأخير.
3. استخدام Rows.Count لأي عمود محدد
باستخدام أي عمود محدد في VBA ، يمكنك العثور على الصف الأخير.
أولاً ، افتح علامة التبويب Developer & GT ؛ & GT. ثم حدد Visual Basic
ستظهر نافذة جديدة من Microsoft Visual Basic for Applications .
الآن ، من إدراج & GT ؛ & GT. حدد الوحدة النمطية
سيتم فتح A الوحدة النمطية .
ثم اكتب الكود التالي في الوحدة النمطية .
7670
هنا ، قمت بإنشاء إجراء فرعي يسمى LastRow_AnyColumn ، حيث يوجد نوع متغير طويل LastRow تم التصريح عن .
ثم ، في النطاق بالنظر إلى العمود B كمعامل وأيضًا صفوف. العد ، هذا سيحسب عدد الصفوف الموجودة في عمود معين B . بعد ذلك ، استخدم End (xlup). الصف الذي سيجد آخر صف مستخدم في نطاق Excel.
أخيرًا ، لقد استخدمت مربع رسالة لإظهارنتيجة.
التالي ، حفظ الكود والعودة إلى ورقة العمل.
ثم افتح عرض علامة التبويب & gt؛ & gt؛ من وحدات ماكرو & GT ؛ & GT. حدد عرض وحدات الماكرو
هنا ، سيظهر مربع حوار .
الآن ، من اسم الماكرو حدد LastRow_AnyColumn أيضًا حدد المصنف ضمن وحدات الماكرو في .
أخيرًا ، قم بتشغيل المحدد الماكرو .
وبالتالي ، سوف يظهر مربع رسالة يظهر رقم الصف الأخير.
قراءات مماثلة:
- VBA Find in Column in Excel (7 Approaches)
- Find and Replace using VBA (11) الطرق)
- البحث عن التطابق التام باستخدام VBA في Excel (5 طرق)
- كيفية البحث عن سلسلة باستخدام VBA في Excel (8 أمثلة)
4. استخدام UsedRange للبحث عن الصف الأخير
يمكنك استخدام خاصية UsedRange في ورقة العمل للعثور على آخر صف صف باستخدام VBA .
الآن ، افتح علامة التبويب Developer & gt؛ & gt؛ ثم حدد Visual Basic
ثم ، ستظهر نافذة جديدة من Microsoft Visual Basic for Applications .
الآن ، من إدراج & GT ؛ & GT. حدد الوحدة النمطية
سيتم فتح A الوحدة النمطية .
ثم اكتب الكود التالي في الوحدة النمطية .
8103
هنا ، قمت بإنشاء إجراء فرعي يسمى LastRow_UsedRange ، حيث يوجد نوع متغير طويل تم التصريح عن LastRow .
بعد ذلك ، حدد ملفمتغير باستخدام ActiveSheet.UsedRange.Rows. الصف الأخير.
لقد استخدمت مربع رسالة لإظهار النتيجة.
الآن ، احفظ الكود والعودة إلى ورقة العمل.
ثم افتح علامة التبويب عرض & GT ؛ & GT. من وحدات ماكرو & GT ؛ & GT. حدد عرض وحدات الماكرو
بعد ذلك ، سيظهر مربع حوار .
ثم ، من الماكرو name حدد LastRow_UsedRange أيضًا حدد المصنف ضمن وحدات الماكرو في .
أخيرًا ، تشغيل المحدد الماكرو .
وبالتالي ، سيظهر مربع رسالة يظهر رقم الصف الأخير.
5. استخدام النطاق. الصف
يمكنك استخدام النطاق ابحث عن طريقة للعثور على الصف الأخير باستخدام فبا .
الآن ، افتح المطور علامة تبويب & GT ؛ & GT. ثم حدد Visual Basic
هنا ، ستظهر نافذة جديدة من Microsoft Visual Basic for Applications .
الآن ، من إدراج & GT. & GT. حدد الوحدة النمطية
سيتم فتح وحدة
ثم اكتب الكود التالي في الوحدة النمطية .
6350
هنا ، قمت بإنشاء إجراء فرعي يسمى Range_Find_Method ، حيث تم الإعلان عن نوع متغير طويل LastRow .
ثم حدد المتغير باستخدام الخلايا . ابحث عن طريقة . أعلن هنا 7المعلمات. في ما هي المعلمة التي استخدمتها ("*") والتي ستجد أول خلية غير فارغة. يُعطى A1 كنطاق في المعلمة بعد للبدء. في المعلمة LookAt المتوفرة xlPart للنظر في أي جزء من النص داخل الخلية.
LookIn: = xlFormulas ستبحث المعلمة عن الصيغ إن وجدت. SearchOrder: = xlByRows ستتحرك المعلمة من اليمين إلى اليسار وتتكرر أيضًا خلال كل صف حتى تعثر على خلية غير فارغة.
MatchCase: = False ستخبر المعلمة البحث عن بعدم مراعاة الأحرف الكبيرة أو الصغيرة. عندما يتم العثور على غير فارغ ، فإنه يتوقف ويعيد رقم الصف.
لقد استخدمت مربع رسالة لإظهار النتيجة.
الآن ، احفظ الرمز والعودة إلى ورقة العمل.
هنا ، افتح عرض علامة التبويب & GT ؛ & GT ؛ من وحدات ماكرو & GT ؛ & GT. حدد عرض وحدات الماكرو
الآن ، سيظهر مربع حوار .
الآن ، من اسم الماكرو حدد Range_Find_Method أيضًا حدد ورقة العمل ضمن وحدات الماكرو في .
أخيرًا ، قم بتشغيل المحدد الماكرو .
وبالتالي ، سيظهر مربع رسالة يظهر رقم الصف الأخير.
الخاتمة
في هذه المقالة ، شرحت 5 طرق VBA للعثور على الصف الأخير في Excel. يمكنك اتباع أي من الطرق للعثور على الصف الأخير. في حال كان لديك أي لبس أو سؤال بخصوص هذه الأساليب ، يمكنك ذلكالتعليق أدناه.
