إدراج عمود فارغ بين كل عمود وآخر في Excel – 4 طرق سهلة

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

إدراج عمود فارغ بين كل عمود أو كل عمود n في Excel

• باستخدام اختصار لوحة المفاتيح
• باستخدام عمود مساعد وميزة الفرز
• باستخدام Kutools لـ Excel
• باستخدام كود VBA

إدراج عمود فارغ بين كل عمود أو كل عمود n باستخدام اختصار لوحة المفاتيح

بالنسبة لمجموعات البيانات الصغيرة، يعتبر إدراج الأعمدة الفارغة يدويًا باستخدام اختصارات لوحة المفاتيح سريعًا وفعالًا. اتبع الخطوات التالية:

1. حدد العمود عن طريق النقر على رقم العمود حيث تريد إدراج عمود فارغ.
2. بعد ذلك، اضغط مع الاستمرار على مفتاح Ctrl في لوحة المفاتيح، ثم انقر على أرقام الأعمدة واحدًا تلو الآخر التي تريد تحديدها. انظر لقطة الشاشة:
   
3. ثم اضغط على مفاتيح "Ctrl + Shift + Plus"، سيتم إدراج أعمدة فارغة بين كل عمود وآخر. انظر لقطة الشاشة:
   

إدراج عمود فارغ بين كل عمود أو كل عمود n باستخدام عمود مساعد وميزة الفرز

إذا كنت ترغب في إدراج أعمدة فارغة بشكل منهجي بعد كل عمود أو كل عمود n في مجموعة بيانات كبيرة، يمكن أن يوفر لك استخدام طريقة العمود المساعد مع ميزة الفرز الوقت:

1. أدخل صفًا جديدًا فارغًا أعلى مجموعة البيانات مباشرةً.
2. أدخل الرقم 1 و2 في أول خليتين في الصف. بعد ذلك، حدد الخلية A1 والخلية B1، ثم اسحب مقبض التعبئة إلى اليمين حتى آخر خلية تحتوي على بيانات، وسيتم ملء قائمة بالأرقام المتزايدة كما هو موضح في لقطة الشاشة أدناه:
   
3. انسخ أرقام التسلسل والصقها مباشرة بعد الرقم الأخير في نفس الصف.
   
4. حدد نطاق البيانات بالكامل، وبعد ذلك، انقر فوق "البيانات" > "فرز"، انظر لقطة الشاشة:
   
5. في مربع الحوار "فرز" التالي، انقر فوق زر "خيارات".
   
6. ثم حدد "فرز من اليسار إلى اليمين" واضغط على موافق للعودة إلى مربع الحوار "فرز".
   
7. حدد الصف الجديد الذي تم إضافته من قائمة "فرز حسب" المنسدلة، واترك الخيارات الأخرى دون تغيير. بعد ذلك، انقر على موافق لإغلاق مربع الحوار.
   
8. الآن، سيتم فرز البيانات بناءً على القيم في الصف المساعد، وسيتم إدراج عمود فارغ بعد كل عمود آخر.
   
9. أخيرًا، يمكنك حذف الصف المساعد إذا لزم الأمر.

إدراج عمود فارغ بين كل عمود أو كل عمود n بنقرات قليلة فقط

Kutools لـ Excel يوفر حلاً بسيطًا وفعالًا لأتمتة هذه المهمة. بنقرات قليلة فقط، يمكنك بسرعة إدراج أعمدة فارغة بفترات محددة، مما يوفر الوقت ويزيد الإنتاجية. في هذا القسم، سنوضح لك كيفية استخدام Kutools لـ Excel لإدراج أعمدة فارغة بسهولة.

بعد تنزيل وتثبيت Kutools لـ Excel، انقر فوق "Kutools" > "إدراج" > "إدراج صفوف وأعمدة فارغة" لفتح مربع الحوار "إدراج صفوف وأعمدة فارغة".

1. حدد نطاق البيانات حيث تريد إدراج أعمدة فارغة.
2. اختر "أعمدة فارغة" من قسم "نوع الإدراج".
3. ثم حدد الأرقام في مربعي النص "فاصل زمني" و"الأعمدة" حسب الحاجة. (هنا، سأقوم بإدراج عمودين فارغين بعد عمود واحد، لذلك أدخلت 1 و2 في مربعي النص "فاصل زمني" و"الأعمدة" على التوالي.)
4. أخيرًا، انقر على موافق لإغلاق مربع الحوار.
   

سيقوم Kutools بإدراج أعمدة فارغة فورًا وفقًا للفاصل الزمني الذي حددته، انظر لقطة الشاشة:

إدراج عمود فارغ بين كل عمود أو كل عمود n باستخدام كود VBA

بالنسبة للمستخدمين المتقدمين أو لمجموعات البيانات الكبيرة، يمكن لـ VBA أتمتة عملية إدراج الأعمدة الفارغة. إليك ماكرو VBA يقوم بإدراج أعمدة فارغة بين كل عمود أو كل عمود n.

1. اضغط مع الاستمرار على مفتاحي "ALT + F11" في Excel، وسيفتح نافذة "Microsoft Visual Basic for Applications".
2. انقر فوق "إدراج" > "وحدة"، والصق الكود التالي في نافذة الوحدة.
   كود VBA: إدراج عدد محدد من الأعمدة الفارغة في البيانات بفترات ثابتة

   Sub InsertColumnsAtIntervals()
       'Updatedby Extendoffice
       Dim WorkRng As Range
       Dim xInterval As Integer
       Dim xCols As Integer
       Dim xColsCount As Integer
       Dim xNum1 As Integer
       Dim xNum2 As Integer
       Dim xWs As Worksheet
       Dim xTitleId As String
       Dim i As Integer
       xTitleId = "Kutools for Excel"
       Set WorkRng = Application.Selection
       Set WorkRng = Application.InputBox("Select column range:", xTitleId, WorkRng.Address, Type:=8)
       xColsCount = WorkRng.Columns.Count
       xInterval = Application.InputBox("Enter column interval:", xTitleId, 1, Type:=1)
       xCols = Application.InputBox("How many blank columns to insert at each interval?", xTitleId, 1, Type:=1)
       xNum1 = WorkRng.Column + xInterval
       xNum2 = xCols + xInterval
       Set xWs = WorkRng.Parent
       For i = 1 To Int(xColsCount / xInterval)
           xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xCols - 1)).EntireColumn.Insert
           xNum1 = xNum1 + xNum2
       Next
       MsgBox "Columns inserted successfully!", vbInformation
   End Sub
   

3. بعد لصق هذا الكود، اضغط على مفتاح F5 لتشغيل هذا الكود. في مربع الحوار المنبثق، حدد نطاق البيانات حيث تريد إدراج الأعمدة الفارغة. بعد ذلك، انقر على موافق، انظر لقطة الشاشة:
   
4. سيظهر مربع حوار آخر، أدخل عدد الأعمدة الفاصلة. وبعد ذلك، انقر على موافق، انظر لقطة الشاشة:
   
5. في مربع الحوار التالي، أدخل عدد الأعمدة الفارغة التي تريد إدراجها. ثم انقر على موافق، انظر لقطة الشاشة:
   

الآن، تم إدراج عدد محدد من الأعمدة الفارغة في البيانات الموجودة بانتظام وفقًا للفاصل الزمني الذي حددته، انظر لقطة الشاشة:

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

أفضل أدوات الإنتاجية لمكتب العمل

🤖	Kutools AI Aide: أحدث ثورة في تحليل البيانات اعتمادًا على: التنفيذ الذكي |  توليد الأكواد |  إنشاء الصيغ المخصصة |  تحليل البيانات وتوليد الرسوم البيانية |  استخدام Kutools Functions...
	ميزات شائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو الخلايا بدون فقدان البيانات | تقريب بدون الصيغة...
	بحث متقدم: بحث بمعايير متعددة VLookup | بحث بقيم متعددة VLookup | بحث في عدة ورقات VLookup | مطابقة غامضة...
	قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة معتمدة | قائمة منسدلة متعددة الاختيارات...
	مدير الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاقات والأعمدة...
	ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | مدير أدوات المصنف وورقة العمل | مكتبة النص التلقائي | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب الجدول | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...)...
	أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع رسم بياني (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد

استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!

عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...

مزيد من التفاصيل حول Kutools لـ Excel... تنزيل مجاني...

---

Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير

• تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
• افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
• يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!

مزيد من التفاصيل حول Office Tab... تنزيل مجاني...

---

جميع إضافات Kutools. مثبت واحد

حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.

• حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
• مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
• الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
• تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
• قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد

مزيد من التفاصيل حول Kutools for Office... تنزيل مجاني...