|
よろしくお願いします。
下記のプログラムで、sheet1にAutoFilterをやっていれば、それを解除するプログラムの一部ですが、通常は問題なく動きますが、あるとき突然に、ものすごく時間(10秒程度)がかかります。それ以後はどうやっても早くならず、そのままになり、しょうがないので、正常なシートをコピーしてやると元に戻すのですが、原因と対策について教えて頂きたいと思います。
Sub Test()
Dim PL, i
Dim mysht As Worksheet
Dim myaflt As AutoFilter
Dim myrang As Range
Dim Mat()
Dim Nat
Sheets("sheet1").Activate
Set mysht = Sheets("sheet1")
Set myaflt = mysht.AutoFilter
If Not myaflt Is Nothing Then
myaflt.Range.AutoFilter
End If
Set myrang = Nothing
Set myaflt = Nothing
Set mysht = Nothing
・
・
End sub
なぜ 遅くなるのか、また解決方法がありましたら、ご指導お願いします。
|
|