这个问题应该可以说几乎算不上问题的,就是从后往前逐个单元格进行检查就可以,只要为空,就将该单元格所在行删掉。但今天发现一个更快速的方法,利用specialcells方法,速度更快。冲着这个执行的速度,代码的简洁值得为它单写一篇博客。
代码非常简单:
Sub 快速删除含有空白单元格的行()
'下面代码均可以实现相同效果
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Columns(1).SpecialCells(4).EntireRow.Delete
End Sub
复制执行时,只需要执行其中任一行代码即可。
![菊子曰](https://i-blog.csdnimg.cn/blog_migrate/35245947a4c10a59b3bc1a3902188396.png)