Question

excel里面的vba：点击一次按钮Button1，增加一个空行，再点击一次再增加一个空行

点击几次按钮就增加几个空行：隔32行增加一个空行，再点一次就在空行的后面再增加一个空行，以此类推。
请问怎么编程？

Answer 1

ActiveSheet.Rows(33).Insert

很高兴能够帮助到你,如果回答解决了你的问题的话,请"采纳"我的答案,谢谢!

Answer 2

在当前单元格位置插入行:
Rows(Activecell.Row).Insert

Answer 3

Private Sub CommandButton1_Click()
N = Range("B1")
If N = 1 Then
R = Selection.Row
S = Str(R + 32) & Chr(58) & Mid(Str(R + 32), 2, Len(Str(R + 32)))
Rows(S).Select
Selection.Insert Shift:=xlDown
N = N + 1
Range("B1") = N
Range("B2") = R + 32
Else
R = Range("B2")
S = Str(R+1) & Chr(58) & Mid(Str(R+1), 2, Len(Str(R+1)))
Rows(S).Select
Selection.Insert Shift:=xlDown
End If
End Sub