使用VBA在工作表中快速插入行

版权声明：本文为博主原创文章，转载请注明出处。 https://blog.csdn.net/taller_2000/article/details/81230233

在工作表中插入行，有需要用到代码吗？是不是杀鸡用牛刀的感觉。其实不是这样的，在很多复杂的应用场景中，插入行不再是简单的单击鼠标右键就可以即刻完成的。比如需要隔行插入空行，如果有一万行数据，是不是搞到手抽筋了。再比如插入空行的数量不是固定的，这样操作起来是不是要累瞎双眼了。
原始数据如下。

使用代码插入行也非常简单，插入单行代码如下，三行代码的效果是完全相同的。

Sub InsertOneRow()
    Cells(2, 1).EntireRow.Insert
    Rows(2).Insert
    Range("2:2").Insert
End Sub

so easy吧！

再来看看插入多行的代码。

Sub InsertFourRows()
    Cells(2, 1).Resize(4, 1).EntireRow.Insert
    Rows("2:5").Insert
    Range("2:5").Insert
End Sub

这效果也就杠杠的！

只是这个表格有些丑，似乎小姐姐们都喜欢用这个风格的。

点个按键运行代码，这是什么鬼！？怎么把第二行搞成这个德行了，肯定要被小姐姐骂了。

赶紧拿出菊花宝典（为什么不是其他花，此处省略一万字… …），原来Insert方法还有参数可以用呢，拿出来操练一把。

Sub InsertRowWithFormatControl()
    Rows(2).Insert CopyOrigin:=xlFormatFromRightOrBelow
End Sub

其实就是这么简单，想插入几行就几行，想用什么格式就用什么格式。