我正在尝试删除长数据集中 A 列中包含空白单元格的所有行(Excel 中超过 60 000 行)
我有一个 VBA 代码,当我的单元格数少于大约 32 000 个时,该代码可以很好地工作:
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(...
可能会节省时间,因为它实际上不必选择单元格 - 未经测试。
关于Excel VBA : Delete entire row if cell in column A is blank (Long Dataset),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/19430673/