将某列空白单元格所在的行删除#Excel VBA#
如题，预计打算把黄色标示的行全部一齐删除。
如果数据比较大达到几十万行的话，循环寻找A列为空则比较低效。
若用SpecialCells函数把空白单元格全部找到而且选中，则不需要循环，速度较快。
Sub Test ()
dim blk, blk2 as range
dim m as Long
Range("A1:A" & lRow).SpecialCells(xlCellTypeBlanks).SelectSet blk = SelectionSet blk2 = Rows(Selection.Row)For Each m In blkSet blk2 = Union(blk2, Rows(m.Row))Next
blk2.Delete
End Sub谢谢！
本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！