Як швидко вставити пробіл між кожним рядком у Excel?

В Excel ， ви можете скористатися меню правою кнопкою миші, щоб вибрати рядок над активним рядком, але чи знаєте ви, як вставити порожні рядки в кожен рядок, як показано на знімку екрана нижче? Тут я представляю деякі хитрощі щодо швидкого вирішення цієї роботи.

Вставте порожні рядки між кожним рядком за функцією сортування

Вставте порожні рядки між кожним рядком за кодом VBA

Вставте порожні рядки / стовпці між кожним рядком / стовпцем Kutools для Excel

---

Вставте порожні рядки між кожним рядком за функцією сортування

Щоб вставити порожні рядки між кожним рядком, можна спочатку двічі заповнити ряд чисел, а потім відсортувати їх.

1. У сусідньому номері заповніть ряд чисел, щоб вони відповідали номеру рядка.

2. Скопіюйте номери серій та вставте їх у клітинку після останнього номера.

2. Виберіть усі номери серій, натисніть дані > Сортувати від найменшого до найбільшого.

3. У вискакуванні Попередження про сортування діалогове вікно, зберегти Розгорніть варіант вибору позначено, клацніть сортувати.

Тепер пробіли були вставлені між кожним рядком. Пізніше можна видалити стовпець із номером серії.

---

Вставте порожні рядки між кожним рядком за кодом VBA

Якщо ви знайомі з макрокодом, ось код також може вам допомогти.

1. прес Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі, потім скопіюйте та вставте код нижче в модуль.

VAB: Вставте пробіл між рядкамиs

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. клацання OK. Тепер пробіли були вставлені між вибраними рядками.

---

Вставте порожні рядки / стовпці між кожним рядком / стовпцем Kutools для Excel

Якщо ви хочете швидко і просто вставити порожні рядки або стовпці між кожним рядком або стовпцем, ви можете використовувати Kutools для ExcelАвтора Insert Blank Rows & Columns утиліта, в якій ви можете вказати інтервал рядків і кількість порожніх рядків, як вам потрібно.

після установки Kutools для Excel, будь-ласка, виконайте наведені нижче дії:（Безкоштовно завантажте Kutools для Excel зараз!)

1. Виберіть діапазон даних, до якого потрібно вставити порожні рядки або стовпці, клацніть Kutools > Insert > Insert Blank Rows & Columns.

2 В Insert Blank Rows & Columns діалогове вікно, перевірте Blank rows or Blank columns як вам потрібно, і вкажіть параметри Interval of і Rows.

3. клацання Ok.

Інертні порожні рядки між кожним рядком	Вставте порожній стовпець між кожним стовпцем

Чайові: ця утиліта підтримує скасування Ctrl + Z.

  Вставте порожні рядки або стовпці з певними інтервалами