Как быстро вставить пустые строки в 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. В диалоговом окне Вставить пустые строки и столбцы выберите Пустые строки в разделе Тип вставки , укажите количество интервалов строк, на основе которых вы будете вставлять пустые строки, и количество строк, которые вы хотите вставить, затем нажмите кнопку ОК. Смотрите скриншот:
>
Затем вы увидите, что определенное количество пустых строк было вставлено после каждых двух строк. Смотрите скриншоты:
Примечание: Число в поле Интервал и Строки можно изменять в зависимости от ваших потребностей. Например, вы можете вставить три, четыре, пять… пустых строк после каждой первой, второй, третьей… строки.
Если вы хотите воспользоваться бесплатной пробной версией (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 для 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек