Home » エクセル » 解決！Windows10でエクセルマクロの処理が遅い

解決！Windows10でエクセルマクロの処理が遅い

time 2020/01/13

※この記事は他の記事と統合をおこないました。申し訳ありませんが下記をご参照ください。

また、下記ではWindows11での検証も行いました。

Office365 Windows11でエクセルマクロは遅くなるのか？クリップボードの履歴をオン

OSがそろそろWindows10になりましたか？最後のWindowsのバージョンとなり、今後は定期的な大型アップデートは入りますが、以降に新しいWidowsは出ないとのことなので、OSのサポート期限について大きな話題になる事はならないかもしれませんね。

でも、大型アップデートは頻繁にやっているので、これが使用中にやられると困るのでシステム部門の方は大変なのかもしれないですけど・・・。

Windows10でエクセルマクロが遅くなる事が判明

下記の記事でも取り上げました。

解決！Windows10になったらエクセルマクロが動かない

Windows10の機能「クリップボードの履歴」がマクロ処理のスピード低下につながっています。おそらくですが、マクロで「Copy」を実行する部分が大幅に低下しているようです。

クリップボードの履歴をオンとオフでスピードの比較

テストはシート１を１００シートコピーするサンプルで行います。

新規のエクセルファイルを作成して、コードの編集画面に下記のコードを張り付けてください。

Option Explicit

Public Sub SheetCopy()
    Dim intLoop As Integer
    Dim strMsg As String
    Dim datStart As Date
    Dim datEnd As Date
    
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
        .DisplayAlerts = False
    End With
   
    datStart = Now
    
    For intLoop = 1 To 100
        Worksheets.Add after:=Worksheets(Worksheets.Count)
        
        With Worksheets(1)
            .Activate
            .Range("A1:AX20000").Copy
        End With
        
        With Worksheets(Worksheets.Count)
            .Activate
            .Range("A1").PasteSpecial Paste:=xlPasteValues
        End With
    Next
    
    datEnd = Now
    
    strMsg = "Start: " & Format$(datStart, "hh:nn:ss") & "   End: " & Format$(datEnd, "hh:nn:ss")
    
    Call MsgBox(strMsg)
    
    Debug.Print strMsg
    
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
        .DisplayAlerts = True
    End With
End Sub

100シートをコピーするマクロですが、2度の目実行の時にはコピーした100シートを消すか、新しいエクセルにコードをコピーして実行してください。

※当初、不要シートを削除するようにしておりましたが、事故防止のためにその部分は削除しました。