Excel VBA：如果列A中的单元格为空，则删除整行（长数据集）

我试图删除在长数据集中的列A中有空单元格的所有行（在Excel中超过60 000行）

我有一个VBA代码，当我有更less的aprox 32 000单元时效果很好：

Sub DelBlankRows() Columns("A:A").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete End Sub 

有人知道一种方式，以便它在大量的行上工作吗？

谢谢

Answer 1

你可以尝试：

 Application.ScreenUpdating = False Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Application.ScreenUpdating = True 

Application.ScreenUpdating切换代码中的更新是否对用户可见，并尝试Columns("A:A").SpecialCells(...可能节省时间，因为它实际上并不需要select单元格 – 未经testing。