Excel隔行插入行，今天来用VBA解决

要给一个工作表区域隔行插入行，有一个比较常规的方法，就是添加辅助列，输入数字1,1.1,2,2.1以此类推，然后进行排序，就可以隔行插入行了。

今天来介绍一个使用VBA来给一个区域隔行插入行的办法。如果不熟悉VBA的小伙伴想要尝试，可以先新建一个Excel进行练习，不要在正式的文档里面直接使用。

现在有这样一个数据区域，要进行隔行插入一行。

打开网易新闻 查看精彩图片

1.按下快捷键Alt+F11，打开VBA编辑器。

2.在左侧右键单击，鼠标移动到插入选项，选择模块。

打开网易新闻 查看精彩图片

3.输入以下VBA代码：

Sub InsertRows()Dim i As IntegerFor i = 2 To 19 Step 2Rows(CInt(i)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAboveNext iEnd Sub

打开网易新闻 查看精彩图片

4.按下F5键运行，结束以后回到工作表，就会发现区域里面已经隔行插入一行了。

打开网易新闻 查看精彩图片

关于代码的说明：

演示里面单元格A1:A10，插入一行以后下面的行都会相应往下移动一行，而插入以后整体会有19行，因此是从2到19，间隔为2。如果是实际表格的话，就要根据实际情况来进行修改。

以上就是今天介绍的使用VBA来进行隔行插入一行的办法了，有兴趣的小伙伴们可以打开工作簿试一下。

点赞在看和转发是我们持续创作的动力！