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

Question

我正在尝试删除长数据集中A列中包含空白单元格的所有行（excel中超过60 000行）

我有一个VBA代码，当我的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(...可能会节省时间，因为它实际上不必选择单元格 - 未经测试。