|
▼gg54 さん:
この状態にしたら、こちらでも気が遠くなるほどの時間がかかりました。
で、原因は、Cells の byRowsで検索しておられますから、A10 から A100 に至るまで
16384 * 90 ぐらいのセルをさがすことになりますね。
次に A100 から A1000 になりますと、16384 * 900 ぐらいの出るを対象にしていますね。
値の検索ならこれでもあっという間なんですが、(たぶん値のあるセルだけを検索しているのではないかと想像)
書式検索は、セルを1つずつ、【なめて】処理するようです。
したがって、重い処理は、どうしようもないと思いますが
Cells.Find を
Range("A1", ActiveSheet.UsedRange).Find
に変更すれば、少しはましかもしれません。
ところで、フォーマット規定ですが
With Application.FindFormat.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = myColor
End With
これでよろしいと思いますよ。
|
|