使用vba删除列需要大量的时间

新手在这里。

我试图删除一个列使用VBA，它花费了大量的时间。

Sub Add_Delete() Application.ScreenUpdating = False Workbooks("f.xlsx").Sheets("g").Columns("FD:FD").EntireColumn.Delete End Sub 

大约有20000行，共230列。 没有计算正在执行。 只是数据

我究竟做错了什么？ 提前致谢！

Answer 1

如果手动慢，在运行之前也要closures计算，然后重新打开它。

 Sub Add_Delete() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Workbooks("f.xlsx").Sheets("g").Columns("FD:FD").EntireColumn.Delete Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub 

添加屏幕更新也在… 😉