كيفية إدراج أعمدة متعددة باستخدام vba

يمكنك استخدام بناء الجملة التالي لإدراج أعمدة متعددة في Excel باستخدام VBA:

 Sub InsertMultipleColumns()
Worksheets(" Sheet1 ").Range(" B:D ").EntireColumn.Insert
End Sub

سيقوم هذا الماكرو المحدد بإدراج ثلاثة أعمدة فارغة في النطاق D إلى F للورقة المسماة Sheet1 ودفع كافة الأعمدة الموجودة إلى اليمين.

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: كيفية إدراج أعمدة متعددة باستخدام VBA

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

لنفترض أننا نريد إدراج ثلاثة أعمدة فارغة تبدأ بالعمود B.

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

 Sub InsertMultipleColumns()
Worksheets(" Sheet1 ").Range(" B:D ").EntireColumn.Insert
End Sub

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

لاحظ أنه تم إدراج ثلاثة أعمدة فارغة في مواقع الأعمدة B وC وD في ورقة العمل هذه والتي تسمى Sheet1 .

لقد تم ببساطة دفع القيم التي كانت موجودة سابقًا في الأعمدة B وC وD إلى اليمين.

ملاحظة : يمكنك العثور على الوثائق الكاملة لوظيفة إدراج VBA هنا .

مصادر إضافية

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

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