كيف تُدرج عددًا محددًا من الصفوف بفاصل زمني ثابت في Excel؟
في ورقة عمل Excel، يمكنك إدراج صفوف فارغة يدويًّا بين الصفوف الموجودة باستخدام وظيفة «الإدراج» المدمجة. لكن عند التعامل مع كميات كبيرة من البيانات أو الحاجة إلى إدراج صفوف بانتظام—مثل إدخال صفَّين فارغين بعد كل صف ثالث أو بعد كل صف n—يصبح الأسلوب اليدوي مرهقًا وغير فعّال. أتمتة إدراج الصفوف الفارغة بفترات منتظمة لا توفر الوقت فحسب، بل تقلل أيضًا من احتمالات الخطأ، مما يجعل سير عملك أكثر سلاسة وكفاءة. ستعرض لك الطرق التالية كيفية تنفيذ هذه المهمة بسرعة وسهولة، بما في ذلك حلول لإدراج صفوف فارغة بناءً على معايير محددة أو بتكرار معيّن، سواء باستخدام VBA أو بدونه.
➤ إدراج عدد محدد من صفوف فارغة في نطاق البيانات بفواصل زمنية ثابتة باستخدام كود VBA
➤ إدراج عدد محدد من صفوف فارغة في نطاق البيانات استنادًا إلى قيم الخلايا باستخدام كود VBA
➤ إدراج عدد محدد من صفوف فارغة في نطاق البيانات بفواصل زمنية ثابتة باستخدام ميزة مفيدة
➤ إدراج عدد محدد من صفوف فارغة بفواصل زمنية ثابتة باستخدام صيغ Excel
➤ نسخ وإدراج صفوف عدة مرات استنادًا إلى أرقام محددة باستخدام كود VBA
➤ نسخ وإدراج صفوف عدة مرات استنادًا إلى أرقام محددة باستخدام ميزة رائعة
إدراج عدد محدد من صفوف فارغة في نطاق البيانات بفترات زمنية ثابتة باستخدام كود VBA
يمكنك الاستفادة من كود VBA التالي لإدراج عدد محدد من الصفوف الفارغة تلقائيًّا بعد كل صف n ضمن نطاق البيانات الخاص بك. يُعد هذا الحل مثاليًا للمستخدمين المتمرسين في استخدام الماكرو والذين يحتاجون إلى معالجة مجموعات بيانات متوسطة إلى كبيرة بفعالية وكفاءة. يُرجى اتباع الخطوات التالية لتطبيق هذا الحل:
1. اضغط مع الاستمرار على مفاتيحALT + F11 في Excel لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي فينافذة الوحدة النمطية (Module Window).
كود 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. انقر فوقموافق (OK). ستظهر نافذة منبثقة أخرى، حيث يمكنك إدخال فاصل الصف المطلوب—فعلى سبيل المثال، يؤدي إدخال الرقم 3 إلى إدراج صفوف فارغة بعد كل ثلاثة صفوف:
5. استمر في النقر فوقموافق (OK)، ثم أدخل عدد الصفوف الفارغة التي ترغب في إدراجها عندما يطلب منك الكود ذلك (على سبيل المثال، أدخل 2 لإدراج صفَّين):
6. بعد تأكيد اختياراتك، سيتم إدراج صفوف فارغة في بياناتك وفق الفترات التي حددتها. راجع المقارنة قبل وبعد أدناه:
 |  |  |
نصائح وملاحظات:
- يتيح لك هذا الماكرو تحديد نطاق بياناتك بمرونة، واختيار فاصل الصفوف وعدد الصفوف الفارغة التي سيتم إدراجها.
- تأكد من عمل نسخة احتياطية من ورقة العمل الخاصة بك أو جرّب هذه الطريقة على ورقة عينة أولاً، لأن إدراج الصفوف لا يمكن التراجع عنه إلا إذا استخدمت أمر «تراجع» (Undo) فورًا.
استكشاف الأخطاء وإصلاحها:إذا واجهت خطأً، تأكد أولًا من أن بياناتك غير مُرشَّحة ولا توجد جداول تتداخل مع المنطقة المحددة. وفي حال ظهور نتائج غير متوقعة، استخدم التراجع (Undo) فورًا لإلغاء التغييرات.
إدراج عدد محدد من صفوف فارغة في نطاق البيانات بناءً على قيم الخلايا باستخدام كود VBA
أحيانًا تتطلب سير عملك إدراج صفوف فارغة استنادًا إلى قائمة مسبقة من قيم الخلايا—مثل إدراج صف فارغ بعد كل سجل وفقًا لمعايير مطابقة. ويُعد هذا الحل القائم على VBA مثاليًا عندما لا يعتمد منطق الإدراج على فترات زمنية ثابتة، بل على القيم الموجودة في عمود مجاور.
✅ متى تستخدم:
- موصى به عندما تكون بياناتك منظمة حسب الفئات—مثل الأقسام أو مراحل المشروع أو مندوبي المبيعات—وتحتاج إلى إدخال مسافات أو صفوف فارغة بين المجموعات.
- تأكد من دقة تحديدك، لأن الماكرو سيستخدم الخلايا المحددة لتحديد مكان إدراج الصفوف.
1. اضغط مع الاستمرار على مفاتيحALT + F11في Excel، مما يفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي في نافذة الوحدة النمطية.
كود 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
إذا لم تتمكن من استخدام الماكرو أو الإضافات، فلا يزال بإمكانك تحقيق هدفك بإدراج صفوف فارغة بفترات زمنية ثابتة باستخدام أعمدة مساعدة ووظائف Excel المدمجة مثلMOD وROW. هذه الطريقة مثالية خصوصًا عندما يكون استخدام البرمجة مقيدًا، لكن الصيغ الأساسية والفرز لا يزالان متاحين.
✅ متى تستخدم:مثالية للمستخدمين الذين يرغبون في الحفاظ على ملفات العمل خالية من الماكرو، أو يحتاجون إلى توافق واسع، أو يعدّون البيانات لسير عمل الاستيراد/التصدير الذي يتطلب فصلًا بصريًّا عبر صفوف فارغة.
⚠️ احتياطات:هذه الطريقة لا تُدرج صفوفًا فارغة فعليًّا، بل تحاكيها باستخدام صفوف إضافية وصيغ مساعدة. ستحتاج بعد ذلك إلى فرز البيانات لترتيب الصفوف الفارغة المحاكاة. إنها حلٌ بديلٌ مناسب لمجموعات البيانات الصغيرة إلى المتوسطة.
الخطوات:
- افترض أن بياناتك موجودة في الخلاياA2:B11. في عمود مساعد جديد (مثل العمود C بدءًا من الخلية C2)، أدخل الصيغة التالية:
استبدل=INT((ROW()-ROW($A$2))/(n+1))nبالفاصل الذي ترغب في إدراج صف فارغ بعده. على سبيل المثال، لإدراج صف فارغ واحد بعد كل3 صفوف، استخدم:=INT((ROW()-ROW($A$2))/3) - اسحب الصيغة لأسفل بجانب مجموعة البيانات الخاصة بك لتعيين أرقام المجموعات.
- أضف أسفل آخر صف يحتوي على بيانات صفوفًا إضافية بقيم فارغة في العمودين A وB، وأدخل في العمود C (العمود المساعد) أرقام مجموعات تطابق تلك الموجودة مسبقًا، لضمان تجميع هذه الصفوف الفارغة بشكل صحيح.
- حدد النطاق الكامل (الأصلي + إضافة صف)، ثم رتب البيانات حسب العمود المساعد، وطبّق أي فرز ثانوي عند الحاجة. ستظهر الآن صفوف فارغة بعد كلn صفوف بيانات.
🟡 تذكير بالخطأ:
- تأكد من تعيين أرقام المجموعات الصحيحة لصفوفك الفارغة—فأي عدم تطابق سيؤدي إلى ظهورها في أماكن غير مقصودة.
- تذكّر أن هذه الطريقة تضيف صفوفًا فعلية فقط بعد الفرز، لذا تأكّد من التنسيق النهائي قبل الحفظ أو التصدير.
ملخص ونصائح:رغم أن هذه الطريقة القائمة على الصيغ ليست فعّالة مثل استخدام VBA أو أدوات مثل Kutools، إلا أنها متوافقة عالميًّا ولا تعتمد على البرامج النصية، ما يجعلها حلاً بسيطًا ومرنًا للمهام الخفيفة أو غير المتكررة.
نسخ وإدراج صفوف عدة مرات استنادًا إلى أرقام محددة باستخدام كود 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، المتمثلة فينسخ أو إدراج صفوف / أعمدة وفقًا للبيانات المحددة، تُعد حلاً فعّالًا ومثاليًا. تتيح لك هذه الأداة تحديد الصفوف أو الأعمدة التي تريد نسخها، وعدد مرات تنفيذ العملية، بناءً على قيمة خلية مرجعية أو قائمة—وكل ذلك عبر بضع خطوات اختيار بسيطة!
بعد تثبيتKutools لـ Excel، اتبع الخطوات التالية:
1. انتقل إلىKutools > إدراج > نسخ أو إدراج صفوف / أعمدة وفقًا للبيانات المحددةكما هو موضح:
2. في مربع حوارنسخ وإدراج صفوف / أعمدة، اخترنسخ وإدراج صفوفكنوعك، وحدّد نطاق البيانات الذي تريد نسخه، ثم حدّد قائمة القيم التي ستُستخدم كمرجع للتكرار، كما هو موضح:
تلميح:استخدم هذه الميزة لإنشاء عيّنات اختبارية، أو نسخ قوالب المعاملات، أو مضاعفة الإعدادات والسجلات بسرعة—دون الحاجة إلى كتابة نصوص معقدة.
4. أخيرًا، انقر علىموافقأوتطبيقلتوليد الناتج كما هو موضح أدناه:
| | |
ملاحظة:تأكد من أن قائمة القيم الخاصة بك متوافقة تمامًا مع بياناتك للحصول على النتائج المتوقعة.
حمّل Kutools لـ Excel وجربها مجانًا الآن!
مقالات ذات صلة إضافية:
- نسخ الصف وإدراجه عدة مرات أو تكرار الصف X مرة
- هل سبق أن حاولت في عملك اليومي نسخ صفٍ واحد أو مجموعة صفوف ثم إدراجها عدة مرات تحت الصف الحالي في ورقة العمل؟ على سبيل المثال، لديك نطاق من الخلايا، وترغب الآن في نسخ كل صف ولصقه 3 مرات مباشرةً بعد ذلك الصف، كما يظهر في لقطة الشاشة التالية. كيف يمكنك تنفيذ هذه المهمة في Excel؟
- إدراج صفوف فارغة عند تغيُّر القيمة في Excel
- افترض أن لديك نطاقًا من البيانات، وترغب الآن في إدراج صفوف فارغة بينها كلما تغيّرت القيمة، وذلك لفصل القيم المتسلسلة المتماثلة في عمود واحد، كما يظهر في لقطات الشاشة التالية. في هذه المقالة، سأعرض لك بعض الحيل الفعّالة لحل هذه المشكلة.
- إدراج صف فارغ بعد نص محدد في Excel
- إذا كنت ترغب في إدراج صفوف فارغة بعد نص محدد كما يظهر في لقطة الشاشة التالية، فكيف يمكنك تنفيذ ذلك بسرعة وسهولة دون إدخالها يدويًّا واحدًا تلو الآخر؟
- نسخ الصفوف من أوراق عمل متعددة بناءً على معايير إلى ورقة جديدة
- افترض أن لديك ملفًا يحتوي على ثلاث أوراق عمل بنفس التنسيق، كما هو موضح في لقطة الشاشة أدناه. الآن، تريد نسخ جميع الصفوف من هذه الأوراق التي يحتوي خليتها في العمود C على النص «Completed» إلى ورقة عمل جديدة. كيف يمكنك إنجاز هذه المهمة بسرعة وسهولة دون اللجوء إلى النسخ واللصق اليدوي صفًّا تلو الآخر؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل