excel - n行ごとに19行を挿入するマクロ?

Question

58行ごとに19行を挿入したい。このマクロは 1 つの行を挿入しますが、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