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
复制执行时,只需要执行其中任一行代码即可。

菊子曰 用菊子曰写博客,就是爽!
posted @ 2011-04-29 17:58  surfacetension  阅读(2966)  评论(0编辑  收藏  举报