如何展开所有行以添加新的空白行？

Question

简单的技巧是

1. 突出显示除顶行之外的所有内容。
2. 切
3. 粘贴到下一行。

然而这需要对 N 行重复步骤 1-3。

有没有一种快速的方法可以在每个现有行后面添加一个空白行？

Answer 1

根据您拥有的行数，这里有一个更高级的过程：

1. 选择第二行
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