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

风晓 2024-01-01 20:40:51  53109

分类专栏：资讯

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

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

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

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

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

3.输入以下VBA代码：

Sub InsertRows()
Dim i As Integer
   For i = 2 To 19 Step 2
       Rows(CInt(i)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   Next i
End Sub

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

关于代码的说明：

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

网站声明：如果转载，请联系本站管理员。否则一切后果自行承担。

本文链接：https://www.xckfsq.com/news/show.html?id=33586

赞同 0

评论 0 条

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

相关文章

关注我们