كيفية حذف الأعمدة في vba (مع أمثلة)

يمكنك استخدام الطرق التالية لحذف الأعمدة في Excel باستخدام VBA:

الطريقة الأولى: حذف عمود

 SubDeleteColumns ()
Columns(" C ").Delete
End Sub

سيؤدي هذا المثال بالذات إلى إزالة العمود C من المصنف الحالي.

الطريقة الثانية: إزالة كافة الأعمدة من النطاق

 SubDeleteColumns ()
Columns(" B:D ").Delete
End Sub

سيؤدي هذا المثال تحديدًا إلى حذف كافة الأعمدة الموجودة في النطاق من B إلى D في المصنف الحالي.

الطريقة الثالثة: حذف أعمدة محددة متعددة

 SubDeleteColumns ()
Range(" B:B,D:D ").Delete
End Sub

سيؤدي هذا المثال تحديدًا إلى إزالة العمودين B وD من المصنف الحالي.

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

مثال 1: حذف عمود في VBA

يمكننا إنشاء الماكرو التالي لإزالة العمود C فقط من مجموعة البيانات الخاصة بنا:

 SubDeleteColumns ()
Columns(" C ").Delete
End Sub

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

لاحظ أنه تمت إزالة العمود C فقط (عمود “المساعدة”) من مجموعة البيانات.

المثال 2: إزالة كافة الأعمدة من النطاق

يمكننا إنشاء الماكرو التالي لإزالة كافة الأعمدة في النطاق B إلى D:

 SubDeleteColumns ()
Columns(" B:D ").Delete
End Sub

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

لاحظ أنه تمت إزالة كل عمود بين B وD (أعمدة “النقاط” و”المساعدات” و”الارتدادات”) من مجموعة البيانات.

المثال 3: حذف عدة أعمدة محددة

يمكننا إنشاء الماكرو التالي لإزالة العمودين B وD من مجموعة البيانات:

 SubDeleteColumns ()
Range(" B:B,D:D ").Delete
End Sub

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

لاحظ أنه تمت إزالة العمودين B وD (أعمدة “النقاط” و”الارتدادات”) من مجموعة البيانات.

مصادر إضافية

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

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