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

Question

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

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