Excel VBAループの効率の問題

Question

数千の行のデータを調べ、いくつかのフィールドの値に基づいて特定の行を編集する必要があります（条件を満たす場合）。

問題は、（1ループあたり13秒、時には100ループを持つ）時間がかかることです... VBAをフィルタリングしてテーブルをフィルタリングし、フィルタリングされた行を処理しようとしましたが、同じ時間がかかりました。

While l < CurrAloc And k <= lastrow 
    If Cells(k, g) = "Pass" And Cells(k, h) <> "" And Cells(k, i) = "" And Cells(k, j) = "Available" Then 

    Cells(k, ULDecCol) = CurrCustomer 
    Cells(k, ULFromClassifierCol) = CurrClassifier 
    add_to_log k 
    Sheets("Unit List").Select 
    l = l + 1 
    End If 

    k = k + 1 
Wend 

Answer 1

whileループの終了後

Application.Calculation = xlCalculationAutomatic

続いwhileループ前

Application.Calculation = xlCalculationManual

を試してみてください。