Как быстро вставить пустые строки в Excel?
Многие из нас в Excel сталкиваются с задачей вставки пустой строки между каждой существующей строкой. Все знают, как вручную вставить пустую строку. Однако вставка сотен пустых строк по одной быстро превращается в утомительную рутину. Ниже приведены несколько быстрых приёмов, которые помогут легко справиться с этой задачей.
Вставка Пустые строки с помощью функции сортировки
Быстрая вставка заданного количества Пустые строки с помощью Kutools для Excel
Вставка чередующихся Пустые строки с помощью кода VBA
Вставка Пустые строки с помощью функции сортировки
Этот метод проще, но косвенный: он позволяет вставлять пустые строки между уже существующими. Выполните следующие действия:
1. Вам понадобится пустой столбец, расположенный рядом с вашими данными. Например, если данные на листе занимают диапазон A1:E9, вы можете использовать столбец F.
2. Введите число 1 в ячейку F1 и число 2 — в ячейку F2.
3. Выделите числа 1 и 2, затем дважды щёлкните маркер заполнения — и Excel автоматически заполнит ячейки в столбце F.
4. Затем скопируйте новый столбец F (F1:F9), выберите ячейку F10 и вставьте туда числа, автозаполненные из диапазона F1:F9. См. снимок экрана:
5. Далее нажмите Данные > Сортировка. После этого откроется диалоговое окно «Предупреждение о сортировке», в котором выберите «Расширить выделенный диапазон» и нажмите Сортировка… См. снимок экрана:
6. Появится диалоговое окно «Сортировка». В раскрывающемся списке поля «Сортировать по»выберите номер 1и нажмите кнопку ОК. См. снимок экрана:
Таким образом, между существующими строками будут вставлены новые пустые строки. См. снимок экрана:
Примечание: если вам нужно вставить две или три пустые строки между каждой строкой, просто скопируйте новый автозаполненный столбец два или три раза — и нужное количество строк появится автоматически.
Быстрая вставка заданного количества Пустые строки с помощью Kutools для Excel
Вышеописанные два метода подходят только для вставки пустых строк между каждой строкой. А что делать, если нужно вставить одну пустую строку или несколько строк после каждой n-й строки? В таком случае рекомендуем воспользоваться утилитой Вставить пустые строки/столбцы из набора Kutools для Excel
1. Выделите диапазон, в который нужно вставить пустые строки, и нажмите Kutools > Вставка > Вставить пустые строки/столбцы. См. снимок экрана:
2. В диалоговом окне «Вставить пустые строки/столбцы» выберите Пустые строки в разделе Тип вставки, укажите количество строк, на основе которых будет выполняться вставка (Интервал строк), а также желаемое число вставляемых строк, затем нажмите кнопку ОК. См. снимок экрана:
>
Теперь вы увидите, что определённое количество пустых строк было вставлено после каждых двух строк. См. снимки экрана:
Примечание: значения в полях «Интервал» и «Строки» можно изменять в соответствии с вашими требованиями. Например, вы можете вставлять три, четыре, пять… пустых строк после каждой одной, двух, трёх… строк.
Если вы хотите воспользоваться бесплатной пробной версией (30 дней) этой утилиты, нажмите, чтобы скачать её, а затем выполните операцию в соответствии с приведёнными выше шагами.
Вставка чередующихся Пустые строки с помощью кода 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 Sub2. Затем нажмите 
кнопку или клавишу F5, чтобы выполнить код. В появившемся диалоговом окне Kutools for Excel укажите диапазон, в который нужно вставить пустые строки, и нажмите кнопку «ОК». См. снимок экрана:
Теперь между каждой парой строк будет вставлена новая пустая строка. См. снимок экрана:
Связанные статьи
- Быстро вставляйте Пустой столбец через каждый второй столбец
- Вставляйте несколько Пустые строки или столбцов одновременно
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек