vba 指定列后插入列_Vba代码插入指定数量的空白行

任务: 在不同的行下面插入指定数量的空白行(本例是要求在每行下面插入B列数字对应的空白行)

插入空白行前

插入空白行后

vba代码如下：

Sub Macro5()

    Dim m, n, i As Integer

    For m = 7 To 1 Step -1

        Sheets("Sheet1").Rows(m & ":" & m).Select

        n = Sheets("Sheet2").Cells(m, 1).Value

        For i = 1 To n Step 1

            Selection.Offset(1, 0).EntireRow.Insert

        Next i

    Next m

End Sub

以上代码注释如下

Sub 在不同的行下面插入指定数