常规用鼠标点选好位置再右键插入行数的方法太慢了。
本期介绍一个在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里快速批量插入多行。