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

  1. Вставьте пустой столбец в любое место списка или таблицы.

  2. Поместите значение 1 в первую ячейку таблицы нового столбца и значение 2 во вторую ячейку.

  3. Выберите две ячейки, введенные на шаге 2, и с помощью маркера заполнения перетащите вниз до последней ячейки в таблице. Теперь у вас должен быть столбец, заполненный последовательными числами, от 1 до любого количества строк в таблице. Эти заполненные ячейки по-прежнему должны быть выделены.

  4. Нажмите Ctrl + C. Это копирует ячейки в буфер обмена.

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

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

  1. Выделите любую ячейку в исходной таблице.

  2. Откройте вкладку «Данные» на ленте.

  3. Щелкните Сортировать в группе Сортировка и фильтр. Excel выберет таблицу, включая строки, добавленные на шаге 5, и отобразит диалоговое окно «Сортировка».

(См. Рис. 1.)

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

  2. Щелкните ОК. Таблица пересортирована.

  3. Удалите столбец, добавленный на шаге 1.

Вышеупомянутые шаги работают из-за того, как Excel выполняет сортировку.

Если по какой-то причине вы получаете две пустые строки рядом друг с другом (другими словами, сортировка работает не так, как должна), вы можете немного изменить процесс. На шаге 2 введите цифры 1 и 3 в две верхние ячейки. Это приводит к заполнению нечетных чисел в новом столбце. Вместо выполнения шагов 4 и 5 вы просто заполните подобную область четными ячейками (просто заполните первую ячейку 2, а вторую 4). Когда вы затем выполняете сортировку на шагах с 6 по 10, в результирующей таблице строки чередуются в правильном порядке.

Если вы не прочь использовать макросы, вставлять пустые строки еще проще. Просто выберите строки, которые нужно изменить, а затем выполните этот макрос:

Sub AddBlankRows1()

Dim J As Integer     Dim MySelection As Range

If TypeName(Selection) <> "Range" Then Exit Sub     Set MySelection = Selection     Application.ScreenUpdating = False     For J = MySelection.Rows.Count To 1 Step –1         MySelection.Rows(J).EntireRow.Insert     Next J     Application.ScreenUpdating = True End Sub

Несколько более короткий вариант того же макроса:

Sub AddBlankRows2()

FR = Selection.Rows.Row     LR = Selection.Rows.Count + FR - 1     For R = LR To FR + 1 Step -1         Rows(R).Insert     Next End Sub

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

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (9667) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Easy_Adding_Blank_Rows [Простое добавление пустых строк].