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

Question

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

当我的单元格少于大约 32 000 个时，我的 VBA 代码效果很好：

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