Как быстро вставить пустые строки в Excel?

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

Вставка пустых строк с помощью функции Сортировка
Быстро вставьте определенное количество пустых строк с помощью Kutools для Excel
Вставка чередующихся пустых строк с помощью кода VBA

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

Этот метод является более простым, но обходным путем для вставки пустых строк между существующими строками. Вы можете сделать следующее:

1. Вам понадобится пустой столбец рядом с вашими данными. Например, если у вас есть рабочий лист, который охватывает A1:E9, вы можете использовать столбец F.

2. В ячейке F1 введите число 1, а в ячейке F2 введите число 2.

3. Выберите числа 1 и 2, затем дважды щелкните маркер заполнения, и Excel автоматически заполнит ячейки в столбце F.

4. Затем скопируйте этот новый столбец F (F1:F9), выберите ячейку F10 и вставьте автоматически заполненные числа из F1:F9. Смотрите скриншот:

5. После этого нажмите Данные > Сортировка, и появится диалоговое окно Предупреждение о сортировке. Выберите параметр Расширить выделение и нажмите Сортировать… Смотрите скриншот:

6. Появится диалоговое окно Сортировка. Выберите число 1 из выпадающего списка Сортировать по и нажмите кнопку ОК. Смотрите скриншот:

Затем новые пустые строки будут вставлены между существующими строками. Смотрите скриншот:

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

Быстро вставьте определенное количество пустых строк с помощью Kutools для Excel

Два вышеупомянутых метода касаются только вставки пустых строк между каждой строкой. Для вставки одной или нескольких пустых строк после каждой n-й строки, что делать? Здесь я рекомендую утилиту Вставить пустые строки и столбцы из Kutools для Excel. Эта утилита поможет быстро вставить определенное количество пустых строк после каждой n-й строки в определенный диапазон. Пожалуйста, сделайте следующее.

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

2. В диалоговом окне Вставить пустые строки и столбцы выберите Пустые строки в разделе Тип вставки , укажите количество интервалов строк, на основе которых вы будете вставлять пустые строки, и количество строк, которые вы хотите вставить, затем нажмите кнопку ОК. Смотрите скриншот:

>

Затем вы увидите, что определенное количество пустых строк было вставлено после каждых двух строк. Смотрите скриншоты:

Примечание: Число в поле Интервал и Строки можно изменять в зависимости от ваших потребностей. Например, вы можете вставить три, четыре, пять… пустых строк после каждой первой, второй, третьей… строки.

Вставка чередующихся пустых строк с помощью кода VBA

Если предыдущий способ кажется немного сложным, вы можете использовать следующий код VBA для решения этой проблемы.

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений, затем нажмите Вставить > Модуль и введите следующий код в Модуль:

VBA код: Вставка пустых строк в Excel

Sub InsertBlackRows()
'Updateby20131127
Dim Rng As Range
Dim WorkRng As Range
Dim FirstRow As Integer, xRows As Integer, xCols As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
FirstRow = WorkRng.Row
xRows = WorkRng.Rows.Count
xCols = WorkRng.Columns.Count
Application.ScreenUpdating = False
WorkRng.Cells(xRows, 1).Resize(1, xCols).Select
Do Until Selection.Row = FirstRow
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Offset(-1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub

2. Затем нажмите кнопку или нажмите клавишу F5, чтобы запустить код. В появившемся диалоговом окне Kutools для Excel выберите диапазон, куда вы хотите вставить пустые строки, и нажмите кнопку ОК. Смотрите скриншот:

Затем новая пустая строка будет вставлена между каждыми двумя строками. Смотрите скриншот:

Связанные статьи

• Быстрая вставка пустого столбца через один столбец
• Вставка нескольких пустых строк или столбцов одновременно