Как быстро вставить пробел между каждой строкой в ​​Excel?

В Excel ， вы можете использовать меню правой кнопки мыши, чтобы выбрать строку над активной строкой, но знаете ли вы, как вставлять пустые строки в каждую строку, как показано ниже? Здесь я расскажу о некоторых приемах быстрого решения этой задачи.

Вставьте пустые строки между каждой строкой с помощью функции сортировки

Вставьте пустые строки между каждой строкой по коду VBA

Вставьте пустые строки / столбцы между каждой строкой / столбцом Kutools for Excel

---

Вставьте пустые строки между каждой строкой с помощью функции сортировки

Чтобы вставить пустые строки между каждой строкой, вы можете сначала дважды заполнить серию чисел, а затем отсортировать числа.

1. В соседнем номере введите ряд цифр, соответствующий номеру строки.

2. Скопируйте номера серий и вставьте их в ячейку, следующую за последним номером.

2. Выберите все номера серий, щелкните Данные > Сортировать от наименьшего к наибольшему.

3. Во всплывающем Предупреждение о сортировке диалог, держать Разверните вариант выбора проверено, нажмите Сортировать.

Теперь между каждой строкой вставлены пробелы. Позже вы можете удалить столбец с номером серии.

---

Вставьте пустые строки между каждой строкой по коду VBA

Если вы знакомы с кодом макроса, вот код также может вам помочь.

1. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, затем скопируйте и вставьте приведенный ниже код в модуль.

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 for Excel

Если вы хотите быстро и легко вставлять пустые строки или столбцы между каждой строкой или столбцом, вы можете использовать Kutools for ExcelАвтора Insert Blank Rows & Columns утилита, в которой вы можете указать интервал строк и количество пустых строк по своему усмотрению.

После установки Kutools for Excel, сделайте следующее:（Бесплатная загрузка Kutools for 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.

  Вставляйте пустые строки или столбцы с определенными интервалами