我正在尝试删除long数据集中A列中包含空白单元格的所有行(excel中超过60000行)
我有一个VBA代码,当我有少于32,000个单元时,它工作得很好:
Sub DelBlankRows()
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub
有没有人知道一种方法,可以让它在大量的行上工作?
谢谢
发布于 2013-10-17 23:26:48
您可以尝试:
Application.ScreenUpdating = False
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True
Application.ScreenUpdating
切换代码中的更新是否对用户可见,尝试Columns("A:A").SpecialCells(...
可能会节省时间,因为它实际上不必选择未测试的单元格。
https://stackoverflow.com/questions/19430673
复制相似问题