如何在VBA插入指定行数？

代码运行前

代码运行后

代码如下：

Sub 插行()

  Dim i%, n% '声明两个整型变量

  For i = 22 To 2 Step -1 '注意：插行删行都必须逆向遍历

      n = Range("A" &i) - 1 '计算应插入的行数n

      If n >0 Then

          Rows(i &":" &i + n - 1).Insert '插入行

      End If

  Next

  MsgBox "处理完毕", 64 '完毕时d出提醒

End Sub

代码原文：【注意：数据地址位于[a1,b1]】

Sub 批量插入指定数量的空白行()

' 百度知道问答_CAPTAIN出品_必属精品_欢迎交流

Dim i&, t&, x&

  t = ActiveSheet.UsedRange.Rows.Count

  For i = t To 3 Step -1

      x = Cells(i - 1, 2).Value

      Rows(i).Resize(x).Insert

  Next

End Sub

代码截图：

生成效果：

---