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

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

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

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

.Pattern = "(.*?@)(\d+)(@)|(.)" If .test(strTxt) Then MsgBox Application.Evaluate(.Replace(strTxt, "$2+") & "0") 如何在数据验证单元格区域禁用粘贴 liuzishan344343: 第四行代码，CommandBars.FindControl(, 128).List(1), 无法带出来List(1)。这个List（1）是什么意思呢？是不是哪里漏掉了呢？ 使用VBA打印PDF文件 2401_89371534: 可以设置打印成A3嘛