マクロ高速化対策
'画面の更新を停止
Application.ScreenUpdating = False
'再計算を停止
Application.Calculation = xlCalculationManual
'~~~ここに処理~~~
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
'画面の更新を停止
Application.ScreenUpdating = False
'再計算を停止
Application.Calculation = xlCalculationManual
'~~~ここに処理~~~
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True