利用宏为word表格快速增加行数

1、按alt+F11，将代码粘贴进去：

Sub 增加自定义行数()

    If Not Selection.Information(12) Then Exit Sub

    n = InputBox("请输入要增加的行数:", "搁独表格行数自定义针侧董", 5)

    If n = "" Then Exit Sub

    Selection.InsertRowsBelow n

End Sub

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

3、最后是效果图

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