首页 › 实战技术 › 插入行VBA

nnsea 发表于 2023-9-19 14:18:58

插入行VBA

Sub 插入一行()
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub


Sub 指定单元格()
    Dim i As Integer
   Set ws = Sheet1.Range("a1")
    For i = 1 To ws
      Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next i
End Sub

Sub 弹出()
    Dim i As Integer
    Dim ws As Integer
    ws = InputBox("请插入多少行", "温馨提示")
    For i = 1 To ws
      Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next i
End Sub

查看完整版本: 插入行VBA