excel - 在 VBA Excel 中插入行

Question

关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。












要求代码的问题必须表明对要解决的问题的最低理解。包括尝试的解决方案、为什么它们不起作用以及预期的结果。另见:Stack Overflow question checklist


8年前关闭。







Improve this question




有谁知道如何在每行之后插入 4 行，从第 2 行到第 5 行？当然使用 Excel VBA。我附上一张图片来更好地解释它。

任何提示将不胜感激。
问候!

Answer 1

试试下面的代码

Sub InsertRow()


    Dim lastRow As Long
    lastRow = Range("A" & Rows.Count).End(xlUp).Row

    For i = lastRow To 3 Step -1
        Cells(i, 1).Resize(4).Insert Shift:=xlDown
    Next

End Sub