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