処理時間を内部に記録する

VBAの処理が遅い・重い場合、まずどの処理が遅さの原因か調査するところから対策が開始しますが、その調査に最適です。

Sub 処理時間を内部に記録する()

    'Debug.Print Time で通過時間が記録されます
    '高速化の書き換え時に処理の遅い部分を可視化するのに有効
    
    Debug.Print Time & " ①"
    
    Application.Wait Now + TimeValue("0:00:01") 'テスト1秒待機
    
    Debug.Print Time & " ②"
    
    Application.Wait Now + TimeValue("0:00:02") 'テスト2秒待機
    
    Debug.Print Time & " ③"
    
    Application.Wait Now + TimeValue("0:00:03") 'テスト3秒待機
    
    Debug.Print Time & " ④"

End Sub