Application.ScreenUpdating = FALSE '禁止屏幕刷新 Application.Calculation = xlCalculationManual '計算模式爲手動 ‘通常在Sub結束前改回: Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = TRUE