批量插入多行

常规用鼠标点选好位置再右键插入行数的方法太慢了。

本期介绍一个在Excel里批量插入多行的方法，代码如下：

Sub 插入多行()

'快捷键为Ctrl + Shift + R

Dim i As Integer

i = Application.InputBox(prompt:="请输入行数：", Type:=1)

'Type = 1的意思是强制要求输入一个数字，如果不是数字则会报错

If i = 0 Then

Exit Sub

'当你改变主意不想插入行数的时候你可以输入数字0

End If Selection.Resize(i).EntireRow.Insert Shift:=xlDown

End Sub

操作过程如下：

1.找到导航栏的开发工具，点击左上角的Visual Basic（或者按Alt+F11）进入VBE（代码界面），点击插入-模块，然后在空白区域粘贴代码。

2.回到Excel主界面，点击宏；找到“插入多行”这个宏，点击选项，将快捷键设置为Ctrl + Shift + R，这样就可以快速执行了。

3.最终随便选择某个（或多个单元格或多行单元格），按快捷键Ctrl + Shift + R，就会有输入框弹出，输入想要插入的行数后点击确定即可。如果不想插入行数的时候就输入数字0。

按照上述步骤即可实现在Excel里快速批量插入多行。