簡単なマクロの処理が遅いです。速くする方法はありませんか？

おはようございます
よろしくお願いします

次のマクロがだらだらして遅いです
速く処理する方法がありましたら教えてください

シートモジュールの
Private Sub Worksheet_Change(ByVal Target As Range)
内のマクロですので
If Target.Count = 1 Then　という条件が付いていますので
for nextで書いています

以下がマクロです
For i = 43 To 100
If Cells(i, "AV") = 1 Then Cells(i, "B").Value = Cells(i, "B").Value
Next
Cells(42, "O").Select

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2020/07/27 06:04

遅い原因と言われる中には、シート内に数式があるとゴチャゴチャ自動で再計算を行うので一旦手動にして最後に自動に戻すってのがあります。

VBA の処理を高速化する
https://www.tipsfound.com/vba/02014

ここの『手動計算』って所ですが、『描画を停止』と合わせて良く使われると思いますよ。
その他の手段も場合によっては使用されますので一読されてみては？

この回答へのお礼

早朝から親切に教えていただきありがとうございます
『描画を停止』で劇的に早くなりました
ありがとうございました

お礼日時：2020/07/27 07:24