Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
結尾再增加這兩句:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
這樣,電腦就不刷屏,也不計算,速度會快很多。