VBA删除和插入空行 | VBA实例教程

除非注明，文章均为战战如疯原创，转载请保留链接: http://www.zhanzhanrufeng.com/cat1/256.html，VBA交流群273624828。

本节来看一下怎么在Excel中批量插入和删除空行。先说插入空行，假设我们每隔一行都要插入一个空行，看下面的代码：

Sub 插入空行()
Dim i&, j&
For i = Sheet1.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
Sheet1.Rows(i).Insert
Next
End Sub

插入空行用的是Insert方法，插入的时候要从最后一行向上依次添加，上面的代码是插入一个空行，那如果插入2行呢？看代码

Sub 插入空行2()
Dim i&, t
For i = Sheet1.[a1].End(xlDown).Row To 2 Step -1
Sheet1.Rows(i).Resize(2).Insert
Next
End Sub

插入两行用的是Resize函数。下面再看怎么批量删除空行

Sub 删除空行()
Dim i&, t
t = Timer
For i = Sheet1.[a65536].End(xlUp).Row To 2 Step -1
If Application.CountA(Rows(i)) = 0 Then
Sheet1.Rows(i).Delete
End If
Next
MsgBox "耗时" & Format(Timer - t, "0.0000") & "s"
End Sub

CountA判断某个范围内非空单元格的个数，如果非空单元格为0，说明这整行都是空的，用Delete方法删除。