excel - 每第n行插入19行的宏？

Question

我想每 58 行插入 19 行。这个宏插入一行，我似乎无法让它插入 19。

Sub Insert58()
    Dim rng As Range

    Set rng = Range("A3")
    While rng.Value <> ""
        rng.Offset(58).EntireRow.Insert
        Set rng = rng.Offset(59)
    Wend
End Sub

Answer 1

利用rng.Offset(58).resize(19).EntireRow.Insert

Answer 2

杰夫，

试试这个：

Sub Insert58_v2()
    Dim rng As Range

    Set rng = Range("A3")
    While rng.Value <> ""
        rng.Offset(58).Resize(19).EntireRow.Insert
        Set rng = rng.Offset(77)
    Wend
End Sub

Answer 3

Gimp 的回答当然是可编辑的：

Set rng = Range("A3")是起始单元格

rng.Offset(58)是'每行有多少'

Resize(19)是要插入多少行

Set rng = rng.Offset(77)应该是两行+插入的总和