将某列空白单元格所在的行删除#Excel VBA#

如题，预计打算把黄色标示的行全部一齐删除。

如果数据比较大达到几十万行的话，循环寻找A列为空则比较低效。

若用SpecialCells函数把空白单元格全部找到而且选中，则不需要循环，速度较快。

Sub Test ()dim blk, blk2 as range dim m as LongRange("A1:A" & lRow).SpecialCells(xlCellTypeBlanks).SelectSet blk = SelectionSet blk2 = Rows(Selection.Row)For Each m In blkSet blk2 = Union(blk2, Rows(m.Row))Nextblk2.DeleteEnd Sub

谢谢！