'フィルタの条件設定をクリアする ActiveSheet.ShowAllData
'フィルタの条件設定をクリアする On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0
フィルタのどれかの列でソートがかかっている状態を一括で全解除するには「ShowAllData」メソッドを使用します
このメソッドは、フィルタがかかっていない状態で実行するとエラーが発生します
なので、処理の最初に初期化しておきたいような場合はエラーを無視して実行します
フィルターが設定されているかは調べればわかりますが、あまり意味は無いと思います
また、ここでいう解除とはフィルタ機能の解除ではありません
ソート条件の解除になりますので、注意してください
フィルタを処理中にかけなおす場合は、当然エラーにはなりませんので1つ目のエラー無視は入れずに実行するといいです
ユーザーがフィルタをかけて保存していると、当然処理がうまくいかない可能性がありますのでフィルタのあるシートを処理する場合は最初に入れておくと安心です
ちなみに、昇順降順の矢印の表示もクリアされますがその設定は解除されたりはしません
Worksheets(1).ShowAllData
またこのメソッドはシートに対して行いますので、このコードのようにワークシートを指定して、別のシートのフィルタ条件を解除することもできます