【VBA研究】Application.Calculation状态影响VBA运行速度

作者：iamlaosong

发现一个现象，当Application.Calculation为自动计算状态时，如果工作表中存有公式，2003版似乎并不降低VBA的运行速度，但2007版则影响很大，速度降低的特别明显，尤其是数据量大，又含有数组公式或者大量使用vlookup、match之类的函数时，速度降低的令人难以忍受。为此，必须将Application.Calculation状态改为人工模式，等运行结束再还原。另一个影响VBA速度的因素是屏幕刷新，为提高速度，可以临时关闭屏幕刷新。即：

VBA通常在程序开始加两句：
Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 
在结尾处再恢复：
Application.Calculation = xlCalculationAutomatic 
Application.ScreenUpdating = True 

需要注意的是，2003版上述两个计算状态对应的名称是：xlManual和xlAutomatic，这个变量名称2007版也可以用。

此外，恢复成自动计算模式时，系统会将公式重新计算一遍，即使再恢复前保存文件，系统也会在保存前自动计算一遍，除非你将“保存工作簿时重新计算”选项关闭：

Application.CalculateBeforeSave = False