Как развернуть все строки, чтобы получить новую пустую строку?

Question

Простая техника

1. выделите все, кроме верхнего ряда.
2. резать
3. вставьте в следующий ряд.

Однако для этого необходимо повторить шаги 1-3 для N строк.

Есть ли быстрый способ добавить пустую строку, чтобы следовать за каждой существующей строкой?

Answer 1

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

1. выберите 2-й ряд
2. нажмите и удерживайте CTRL
3. Выберите следующую строку (нажав на ее номер слева)
4. повторите шаг 3 при необходимости
5. отпустить CTRL
6. щелкните правой кнопкой мыши на левом "заголовке" (где вы видите номера строк) и выберите "Вставить".

Answer 2

Я просто создал макрос

Sub AddBlankRows()
    Dim rng As Range
    Set rng = Selection
    Set CurrentSheet = ActiveWorkbook.ActiveSheet

    firstSelRow = rng.Rows(1).Row
    totalSelRows = rng.Rows.Count

    For idx = 1 To totalSelRows Step 1
        curRow = (idx - 1) * 2 + firstSelRow
        Cells(curRow, 1).EntireRow.Insert
    Next idx
End Sub