كيفية إدراج عدد محدد من الأعمدة في فترات زمنية ثابتة في إكسيل؟

في استخدامك اليومي لبرنامج Excel ، قد تواجه موقفًا تحتاج إليه أضف المزيد من الأعمدة بين الأعمدة الموجودة. يمكنك بالطبع إدراج الأعمدة واحدة تلو الأخرى باستخدام وظيفة الإدراج. ولكن عندما تواجه بيانات كبيرة وتحتاج إلى إدراج ثلاثة أعمدة بعد كل ثانية أو عمود ن ، فإن وظيفة الإدراج ليست فعالة على ما يبدو. فكيف يمكنك إنهاء المهمة بسرعة؟ في هذا البرنامج التعليمي ، سنتحدث عن طريقتين سهلتين لحل المشكلة.

أدخل عددًا محددًا من الأعمدة الفارغة في نطاق البيانات على فترات زمنية ثابتة باستخدام رمز VBA

أدخل عددًا محددًا من الأعمدة الفارغة في نطاق البيانات على فترات زمنية ثابتة مع ميزة مذهلة

---

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

1. اضغط على ALT + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة والصق الماكرو التالي في ملف وحدة نافذة او شباك.

رمز فبا: أدخل عددًا محددًا من الأعمدة في البيانات على فترات زمنية ثابتة

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. اضغط على F5 مفتاح لتشغيل هذا الرمز. ينبثق مربع مطالبة لتذكيرك بتحديد ملف نطاق البيانات التي تريد إدراج أعمدة فارغة فيها.

4. انقر فوق OK زر. يظهر مربع موجه آخر ، من فضلك أدخل عدد فترات الأعمدة في ال أدخل الفاصل الزمني العمود مربع.

5. استمر في النقر فوق OK زر. ينبثق مربع المطالبة الثالث ، يرجى التحديد عدد الأعمدة التي تريد إدراجها في كل فترة زمنية في الصندوق.

6. انقر فوق OK زر للحصول على النتيجة.

---

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

قبل التطبيق كوتولس ل إكسيل، يرجى تنزيله وتثبيته أولاً.

1. حدد نطاق البيانات الموجود أولاً. ثم اضغط كوتولس > إدراج > أدخل صفوف وأعمدة فارغة.

2. ال أدخل صفوف وأعمدة فارغة ينبثق مربع الحوار. يمكنك رؤية نطاق البيانات الذي حددته في الخطوة 1 معروضًا في مربع النطاق. اختر ال أعمدة فارغة الخيار في أدخل نوع الجزء. وتحديد عدد فترات الأعمدة و الأعمدة التي تريد إدراجها في كل فترة زمنية. هنا أقوم بإدخال 1 و 3 بشكل منفصل.

3. انقر فوق OK زر لإنهاء الإعداد والحصول على النتيجة.

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

---