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