KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

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

АвторСуньДата изменения

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

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

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

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


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

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

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

2. Скопируйте эту последовательность чисел и вставьте её в ячейку, расположенную сразу после последнего числа.
скопировать и вставить серию чисел в ячейку после последнего числа

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

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

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


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

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

Kutools для Excelпредлагает более 300 расширенных функций для упрощения сложных задач, повышая креативность и эффективность.Интегрировано с возможностями ИИ, Kutools автоматизирует задачи с высокой точностью, делая управление данными простым и удобным.Подробная информация о Kutools для Excel…         Бесплатная пробная версия…

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

1. Выделите диапазон данных, в который нужно вставить пустые строки или столбцы, и нажмите Kutools > Insert > Insert Blank Rows & Columns.
нажмите функцию «Вставить пустые строки и столбцы» из Kutools

2. В диалоговом окне Insert Blank Rows & Columns установите флажок Blank rows или Blank columns в зависимости от необходимости и задайте параметры для Interval of и Rows.
настройте параметры в диалоговом окне

3. Нажмите ОК.

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

Совет: эта утилита поддерживает отмену действия с помощью Ctrl + Z.


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

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

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

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

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

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, чтобы запустить код. После этого появится диалоговое окно с запросом на выбор рабочих данных.
код VBA для выделения диапазона данных

4. Нажмите ОК. Теперь между выбранными строками вставлены пустые строки.
пустые строки были вставлены между выделенными строками

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

 

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

Раскройте весь потенциал 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.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек