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

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

 Sub FindLastColumn()
Range(" A14 ") = Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column
End Sub

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

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

 Sub FindLastColumn()
Dim LastCol As Long
    
LastCol=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column

MsgBox " Last Column: " & LastCol
End Sub

توضح الأمثلة التالية كيفية استخدام كل من هذه الطرق عمليًا.

ذات صلة: VBA: كيفية البحث عن آخر سطر مستخدم

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

لنفترض أن لدينا مجموعة البيانات التالية في Excel والتي تحتوي على معلومات حول العديد من لاعبي كرة السلة:

يمكننا إنشاء الماكرو التالي للعثور على العمود الأخير المستخدم في ورقة Excel هذه وعرض النتيجة في الخلية A14 :

 Sub FindLastColumn()
Range(" A14 ") = Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column
End Sub

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

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

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

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

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

تحتوي الخلية A14 على القيمة 5 لأنها العمود الأخير الذي يحتوي على القيم.

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

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

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

 Sub FindLastColumn()
Dim LastCol As Long
    
LastCol=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column

MsgBox " Last Column: " & LastCol
End Sub

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

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

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

مصادر إضافية

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

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