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模块中,这样每个以后打开的都能用