excel - 在 Excel VBA 的原始表中的每一行之间添加 10 行

Question

我有一个包含数据的表，我想在原始表的每一行之间准确插入 20 行。我尝试运行嵌套的 for 循环来为每个循环添加每一行，并跳到我表上的下一个“原始”行以在其下方添加另外 20 行。但是，这需要很长时间，因为我的电子表格上有超过 2000 行。有没有其他方法可以做到这一点？我可以为此使用任何vba代码吗？

Answer 1

尝试这个：

Sub AddRows()
    ScreenUpdating = False

    With ActiveSheet
        lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With

    Dim AddRows As Integer: AddRows = 10

    Dim i As Integer: i = lastrow

    Do While i <> 1
        Rows(i & ":" & i + AddRows - 1).Insert
        i = i - 1
    Loop

    ScreenUpdating = True
End Sub

Answer 2

解决方案的基础（即更改循环的上限和下限，或以编程方式添加它们）

For i = 10 To 1 Step -1
    Rows(i + 1 & ":" & i + 10).Insert
Next