高速化

VBAが遅いな〜、と感じたときの対処。次のように画面更新と再計算を抑制するとだいぶ早くなります。

' 画面更新と再計算の抑制
Application.ScreenUpdating = False
Application.EnableCalculation = False

' 画面更新と再計算の再開
Application.ScreenUpdating = True
Application.EnableCalculation = True