Excel VBA:如果列A中的单元格为空(长数据集),则删除整行

Question

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

我有一个VBA代码,当我有少于约32000个单元格时效果很好:

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