Application.ScreenUpdating = FALSE '禁止屏幕刷新
Application.Calculation = xlCalculationManual '计算模式为手动
‘一般在Sub结束前改回:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = TRUE
Application.ScreenUpdating = FALSE '禁止屏幕刷新
Application.Calculation = xlCalculationManual '计算模式为手动
‘一般在Sub结束前改回:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = TRUE
转载于:https://my.oschina.net/u/582827/blog/1838023