オートフィルタ「すべて選択」をVBAでやりたい

質問

エクセルで複数列にフィルタを設定しているときに
一括でフィルタを「すべて選択」にできるマクロを作りたいです。

例えばA1～F10にまでフィルタリングの範囲を設定したとします。
ただし、一部の行列（3行目とかD列とか）だけは非表示設定にします
（フィルタリングではなく右クリックから非表示にします）

さて、今、列以上に対して同時にフィルタリング抽出をかけた場合
全列に対して一括して「すべて選択」をチェック付けた状態にし
全データを表示しなおすにはどのようなVBAを書いたらよいでしょうか？
※元々フィルタリングを使わず非表示にしている個所は、
　マクロを走らせた後も非表示のままになるようにするという前提で
　ご回答くださいますようお願いします。

回答No.1

kagakusuki · ベストアンサー

以下の様なマクロでは如何でしょうか？

Sub Macro()

With ActiveSheet
If TypeName(.AutoFilter) = "AutoFilter" Then
If .AutoFilter.FilterMode Then ActiveSheet.ShowAllData
End If
End With

End Sub

お礼

遅くなってすみません‼︎ありがとうございます‼︎