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


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

时间:2024-10-13 04:58:34
1、按alt+F11,将代码粘贴进去:Sub 增加自定义行数() If Not Selection.Information(12) Then Exit Sub n = 朐袁噙岿InputBox("请输入要增加的行数:", "表格行数自定义", 5) If n = "" Then Exit Sub Selection.InsertRowsBelow nEnd Sub
4、最好将宏添加到Normal模块中,这样每个以后打开的都能用