كيفية إدراج مسافة بسرعة بين كل صف في Excel؟

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

إدراج صفوف فارغة بين كل صف باستخدام وظيفة الترتيب

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

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

إدراج صفوف فارغة بين كل صف باستخدام وظيفة الترتيب

لإدراج صفوف فارغة بين كل صف، يمكنك ملء سلسلة من الأرقام مرتين أولاً، ثم ترتيب الأرقام.

1. في العمود المجاور، املأ سلسلة من الأرقام لتتناسب مع رقم الصف.

2. انسخ الأرقام المتسلسلة، والصقها في الخلية التي تلي الرقم الأخير.

2. حدد جميع الأرقام المتسلسلة، انقر فوق البيانات > ترتيب من الأصغر إلى الأكبر.

3. في نافذة تحذير الترتيب الحوار، احتفظ بخيار توسيع نطاق التحديد محددًا، انقر فوق ترتيب.

الآن تم إدراج المسافات بين كل صف. يمكنك إزالة عمود الأرقام المتسلسلة لاحقًا.

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

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

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. حدد نطاق البيانات الذي تريد إدراج صفوف أو أعمدة فارغة فيه، انقر فوق Kutools > إدراج > إدراج صفوف وأعمدة فارغة.

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

3. انقر فوق موافق.

إدراج صفوف فارغة بين كل صف	إدراج عمود فارغ بين كل عمود

نصيحة: هذه الأداة تدعم التراجع باستخدام Ctrl + Z.

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

إذا كنت على دراية برمز الماكرو، فإليك رمز يمكن أن يساعدك أيضًا.

1. اضغط على مفتاح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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

VAB: إدراج مساحة بين الصفوف

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 Sub

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

4. انقر فوق موافق. الآن تم إدراج المسافات بين الصفوف المحددة.

عرض: إدراج صفوف أو أعمدة فارغة بفترات زمنية محددة