كيف تُدرج مسافات بسرعة بين كل صف في Excel؟
في Excel، يمكنك استخدام قائمة النقر بزر الماوس الأيمن لإدراج صف فوق الصف النشط، ولكن هل تعرف كيف تُدرج صفوفًا فارغة بعد كل صف، كما في لقطة الشاشة أدناه؟ إليك بعض الحيل الذكية لإنجاز هذه المهمة بسرعة!
إدراج صفوف فارغة بين كل صف باستخدام دالة الفرز
إدراج صفوف فارغة/أعمدة بين كل صف/عمود باستخدام Kutools لـ Excel 
إدراج صفوف فارغة بين كل صف باستخدام كود VBA
إدراج صفوف فارغة بين كل صف باستخدام دالة الفرز
لإدراج صفوف فارغة بين كل صف، ابدأ بملء سلسلة أرقام مرتين، ثم قم بفرز الأرقام.
1. في العمود المجاور، أدخل سلسلة أرقام تتوافق مع أرقام الصفوف.
2. انسخ سلسلة الأرقام والصقها في الخلية التي تلي آخر رقم.
2. حدد جميع أرقام السلسلة، ثم انقربيانات > فرز من الأصغر إلى الأكبر.
3. في مربع الحوار المنبثقتحذير الفرز، احتفظ بخيارتوسيع التحديدمحددًا، ثم انقرفرز.
الآن تم إدراج مسافات بين كل صف. يمكنك لاحقًا حذف عمود سلسلة الأرقام.
إدراج صفوف فارغة/أعمدة بين كل صف/عمود باستخدام Kutools لـ Excel
إذا كنت ترغب في إدراج صفوف فارغة أو أعمدة بين كل صف أو عمود بسرعة وسهولة، يمكنك استخدام أداةKutools لـ Excel’s Insert Blank Rows & Columns، التي تتيح لك تحديد فاصل الصفوف وعدد الصفوف الفارغة التي تحتاجها.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. حدد نطاق البيانات الذي تريد إدراج صفوف فارغة أو أعمدة فيه، ثم انقرKutools > Insert > Insert Blank Rows & Columns.
2. في مربع الحوارInsert Blank Rows & Columns، حددBlank rows أوBlank columns حسب حاجتك، ثم عيّن خياراتInterval of وRows.
3. انقرموافق.
| إدراج صفوف فارغة بين كل صف | إدراج عمود فارغ بين كل عمود |
 |  |
تلميح: تدعم هذه الأداة التراجع باستخدامCtrl + Z.
إدراج صفوف فارغة بين كل صف باستخدام كود VBA
إذا كنت معتادًا على أكواد الماكرو، فهذا الكود سيساعدك أيضًا.
1. اضغط علىAlt + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقرإدراج > وحدة نمطية، ثم انسخ والصق الكود التالي في الوحدة النمطية.
VBA: إدراج مسافة بين الصفوف
Sub RowsInsertInSelectCells()
'UpdatebyExtendoffice20180801
Dim xWS As Worksheet
Dim xCR, xR, xCC, xC, xFC, xFR As Long
Dim xFNum As Integer
Dim xRg, xCRg As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 0 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xWS = ActiveWorkbook.ActiveSheet
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Count > 0 Then
xCR = xRg.Rows.Count
xCC = xRg.Columns.Count
xR = xRg.Row
xC = xRg.Column
Application.ScreenUpdating = False
For xFC = 0 To xCC - 1
For xFR = xCR To 1 Step -1
xWS.Cells(xR + xFR, xC + xFC).Insert
Next
Next xFC
Application.ScreenUpdating = True
End If
End Sub3. اضغط علىF5 لتشغيل الكود، وسيظهر مربع حوار لتذكيرك بتحديد بيانات العمل.
4. انقرموافق. الآن تم إدراج المسافات بين الصفوف المحددة.
عرض توضيحي: إدراج صفوف فارغة أو أعمدة بفاصل زمني محدد
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل