Application.ScreenUpdating = FALSE '禁止屏幕刷新 Application.Calculation = xlCalculationManual '计算模式为手动 ‘通常在Sub结束前改回: Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = TRUE