Question

我需要在第15行开始的每张纸上插入1行，然后执行100次。将选择行15,22,29等..并插入。我尝试过以下操作，但插入第一个插入后停止。 “

Sub bugfix()

    Dim rng As Range

    Set rng = Range("A15")
    While rng.Value <> ""
        rng.Offset(7).Resize(1).EntireRow.Insert
        Set rng = rng.Offset(810)
    Wend

End Sub

Answer 1

使用for循环：

对于x = 15到715步骤7

 Rows(x & ":" & x).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

下一个x

Answer 2

回答了我自己关于上述评论的最后一个问题。

For x = 15 To 815 Step 8

 Rows(x & ":" & x).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 Cells(x, 9).Value = "Total"

Next x

设置行数后插入行100次

2 个答案: