1、按alt+F11,将代码粘贴进去:Sub 增加自定义行数() If Not Selection.Information(12) Then Exit Sub n = 朐袁噙岿InputBox("请输入要增加的行数:", "表格行数自定义", 5) If n = "" Then Exit Sub Selection.InsertRowsBelow nEnd Sub

2、然后可以按F5测试下效果,能弹出对话框后,就添加个按钮到工具栏,方便使用。


3、最后是效果图

4、最好将宏添加到Normal模块中,这样每个以后打开的都能用
