excel插入行数VBA

nnsea

Sub 弹出插入行()
    Dim i As Integer
    ws = InputBox("请插入多少行", "温馨提示")
    If ws = "" Then
        MsgBox "录入数据为空，程序结束执行。", , "温馨提示"
        Exit Sub
    End If
    For i = 1 To ws
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next i
End Sub