宏每隔第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

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

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

rng.Offset(58)是'每行数后'

Resize(19)是要插入的行数

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

的总和

Answer 3

杰夫，

尝试一下：

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