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

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

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

Вставка пустых строк/столбцов между каждой строкой/столбцом с помощью Kutools для Excel

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

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

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

1. В соседнем столбце заполните последовательность чисел, соответствующих номерам строк.

2. Скопируйте последовательность чисел и вставьте их в ячейку после последнего числа.

2. Выберите все последовательные числа, нажмите Данные > Сортировка От наименьшего к наибольшему.

3. В появившемся окне Предупреждение о сортировке диалоговом окне оставьте Развернуть выделение опция отмеченной, нажмите Сортировать.

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

Вставка пустых строк/столбцов между каждой строкой/столбцом с помощью Kutools для Excel

Если вы хотите быстро и легко вставить пустые строки или столбцы между каждой строкой или столбцом, вы можете использовать утилиту Kutools для Excel «Вставить пустые строки и столбцы», которая позволяет указать интервал строк и количество пустых строк по вашему усмотрению.

После установки Kutools для Excel выполните следующие действия:

1. Выберите диапазон данных, куда вы хотите вставить пустые строки или столбцы, нажмите Kutools > Вставить > Вставить пустые строки и столбцы.

2. В Вставить пустые строки и столбцы диалоговом окне отметьте Пустые строки или Пустые столбцы по необходимости и укажите параметры Интервал и Строки.

3. Нажмите Ok.

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

Совет: эта утилита поддерживает отмену Ctrl + Z.

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

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

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

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

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