如何在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

编写这个衡数念工作表的CHANGE事件，代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" And Target.Cells.Count = 1 Then

    If Target.Value >= 1 Then

    Rows("3:" & (2 + Target.Value)).Select

    Selection.Insert Shift:=xlDown, 毕圆CopyOrigin:=xlFormatFromLeftOrAbove

    [A3].Select

  咐困  End If

End If

End Sub

1、添加内件名称数据辅渣蔽旦正助列，输入以下公式，然后向下填充公式

=LEN(N2)-LEN(SUBSTITUTE(N2,",",""))+1

2、添加行数对应辅助列，输入以下公式，然后如迟州向下填充公式

=SUM(Q$2:Q2)-Q2

3、输入以下公式，然后向右向下填充公式

=IF(ROW(A1)-1<SUM($Q:$Q),LOOKUP(ROW(A1)-1,$R$2:$R$4,B$2:B$4),"")

生成对应内件名称个数的行数内容。

详见附图同表举例

---