كيفية إدراج عدد محدد من الصفوف بفواصل ثابتة في Excel؟

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

إدراج عدد محدد من الصفوف الفارغة في نطاق البيانات بفواصل ثابتة باستخدام كود VBA

يمكن أن يساعدك الكود التالي لـ VBA على إدراج عدد محدد من الصفوف الفارغة تلقائيًا بعد كل صف n ضمن نطاق بياناتك الحالي. هذا النهج مناسب للمستخدمين المتمرسين في استخدام الماكرو والذين يحتاجون إلى التعامل مع مجموعات بيانات متوسطة إلى كبيرة بكفاءة. يرجى تنفيذ الخطوات التالية لهذه الحلول:

1. اضغط باستمرار على مفتاحي ALT + F11 في Excel، مما يفتح نافذة Microsoft Visual Basic for Applications.

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

كود VBA: إدراج عدد محدد من الصفوف في البيانات بفواصل ثابتة

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount 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)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

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

4. انقر فوق موافق. سيظهر مربع مطالبة آخر، حيث يجب عليك إدخال الفاصل الزمني للصفوف المطلوب - على سبيل المثال، إدخال 3 سيقوم بإدراج صفوف فارغة بعد كل صف ثالث:

5. استمر بالنقر فوق موافق، ثم أدخل عدد الصفوف الفارغة التي تريد إدراجها كلما طلب الكود (على سبيل المثال، إدخال 2 لإدراج صفّين):

6. بعد تأكيد اختياراتك، سيتم إدراج الصفوف الفارغة في بياناتك بالفاصل الزمني المحدد. شاهد مقارنة قبل وبعد أدناه:

إدراج عدد محدد من الصفوف الفارغة في نطاق البيانات بناءً على قيم الخلايا باستخدام كود VBA

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

1. اضغط باستمرار على مفتاحي ALT + F11 في Excel، مما يفتح نافذة Microsoft Visual Basic for Applications.

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

كود VBA: إدراج عدد محدد من الصفوف الفارغة بناءً على قائمة الأرقام:

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. بعد اللصق، اضغط على F5 لتشغيل الكود. في مربع الحوار الذي يظهر، حدد قائمة الأرقام (أو الخلايا ذات الصلة) التي يجب أن يتم إدراج الصفوف الفارغة بناءً عليها.

4. بعد ذلك، انقر فوق موافق وسترى النتيجة المتوقعة، كما هو موضح في لقطات الشاشة التالية:

إدراج عدد محدد من الصفوف الفارغة في نطاق البيانات بفواصل ثابتة باستخدام ميزة عملية

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

بعد تثبيت Kutools لـ Excel، اتبع الخطوات التالية:

1. حدد نطاق البيانات الذي تحتاج إلى إدراج صفوف فارغة فيه بفترات زمنية منتظمة.

2. انتقل إلى Kutools > إدراج > إدراج صفوف وأعمدة فارغة، كما هو موضح أدناه:

3. في مربع حوار إدراج صفوف وأعمدة فارغة، اختر صفوف فارغة تحت نوع الإدراج، ثم حدد كلاً من الفاصل الزمني وعدد الصفوف الفارغة التي سيتم إدراجها، كما هو موضح:

ملاحظة: الإعداد مرن. إذا كنت بحاجة إلى صفّين فارغين بعد كل أربع صفوف بيانات، ضبط الفاصل الزمني على 4 وعدد الصفوف الفارغة على 2.

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

المزايا: هذا الحل سهل الاستخدام، ولا يتطلب أي كتابة شفرة، وهو مفيد بشكل خاص لأولئك الذين يحتاجون إلى تعديل هيكل الصفوف أو الأعمدة بشكل متكرر.

قم بتنزيل وتجربة Kutools لـ Excel الآن!

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

نسخ وإدراج صفوف عدة مرات بناءً على أرقام محددة باستخدام كود VBA

إذا كانت المهمة الخاصة بك تتطلب ليس فقط إدراج صفوف فارغة ولكن أيضًا تكرار وإدراج صفوف البيانات الموجودة عددًا معينًا من المرات (ربما بناءً على قائمة منفصلة من الأرقام)، فإن الكود التالي لـ VBA يقدم طريقة آلية عملية. هذا مفيد بشكل خاص لتكرار الإدخالات لأوامر المبيعات، السيناريوهات، أو تخطيط الموارد.

لتنفيذ ذلك، اتبع الخطوات التفصيلية التالية:

1. اضغط باستمرار على ALT + F11 في Excel لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، ثم الصق الكود أدناه في نافذة الوحدة.

كود VBA: نسخ وإدراج صفوف عدة مرات بناءً على أرقام محددة:

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

احتياطات: دائمًا قم بعمل نسخة احتياطية من بياناتك قبل تشغيل برامج VBA التي تكرر الصفوف، حيث يمكنها مضاعفة البيانات بسرعة وقد لا تكون قابلة للتراجع بسهولة.

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

4. انقر فوق موافق. سيتم نسخ العدد المحدد من الصفوف وإدراكها تحت كل صف أصلي، كما هو موضح أدناه:

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

نسخ وإدراج صفوف عدة مرات بناءً على أرقام محددة باستخدام ميزة رائعة

للأشخاص الذين يريدون أن يكون إجراء تكرار وإدراج الصفوف بديهيًا ولا يتطلب أي مهارات برمجية، ميزة Kutools لـ Excel، Duplicate Rows / Columns based on cell value، هي بديل فعال. يمكّنك هذا الأداة من تحديد الصفوف أو الأعمدة التي تريد تكرارها وعدد مرات القيام بذلك، وكل ذلك بناءً على قيمة الخلية المرجعية أو القائمة مع بعض الخيارات البسيطة.

بعد تثبيت Kutools لـ Excel، اتبع الخطوات التالية:

1. انتقل إلى Kutools > إدراج > Duplicate Rows / Columns based on cell value كما هو موضح:

2. في مربع الحوار Copy and insert rows & columns، حدد Copy and insert rows كنوعك، وحدد نطاق البيانات الذي تريد تكراره، ثم حدد قائمة القيم المرجعية لاستخدامها كبحث لتكرار، كما هو موضح:

نصيحة: استخدم هذا لإنشاء عينات اختبار، وتكرار قوالب المعاملات، أو مضاعفة الإعدادات أو السجلات بسرعة دون كتابة برامج معقدة.

4. أخيرًا، انقر فوق موافق أو تطبيق لتوليد الإخراج كما هو موضح أدناه:

ملاحظة: تأكد من أن قائمة القيم الخاصة بك محاذاة بشكل صحيح مع بياناتك لتحقيق النتائج المتوقعة.

قم بتنزيل وتجربة Kutools لـ 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... تنزيل مجاني...