关于按钮插入行（格式、公式都插入）

weizexon

顶一下，等高手

totalwolf

rrl525老兄支持

liwen

Sub 插入行()
n = InputBox("请输入你要插入的行数，只限小写数字", "插入行", "1")
a = ActiveSheet.Range("A65535").Rows.End(xlUp).Row - 2
ActiveSheet.Rows(a & ":" & a + n).Insert Shift:=xlDown
ActiveSheet.Range("A" & a - 1 & ":J" & a - 1).AutoFill Destination:=ActiveSheet.Range("A" & a - 1 & ":J" & a + n), Type:=xlFillDefault
End Sub