Excel VBA : Delete entire row if cell in column A is blank (Long Dataset)

我正在尝试删除长数据集中A列中具有空白单元格的所有行(Excel中超过60 000行)

当我的aprox少于32,000个单元时，我有一个VBA代码可以很好地工作:

   Sub DelBlankRows()

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

   End Sub

有人知道一种方法可以在大量行上工作吗？

谢谢

最佳答案

您可以尝试:

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

Application.ScreenUpdating切换用户是否可以看到在代码中进行的更新，并且尝试Columns("A:A").SpecialCells(...可以节省时间，因为它实际上不必选择未经测试的单元格。