【ExcelVBA】オートフィルタの設定と解除

ExcelVBA,オートフィルタ


オートフィルタの設定

パターン１：オートフィルタの見出し範囲を明示する方法
Sub sample()

    ThisWorkbook.ActiveSheet.Range("A1:B1").AutoFilter

End Sub

パターン２：オートフィルタの見出し範囲を自動で認識させる方法
Sub sample()

    ThisWorkbook.ActiveSheet.Range("A1").AutoFilter

End Sub

結果


実行前のテーブル



オートフィルタの解除

Sub sample()

    ThisWorkbook.ActiveSheet.AutoFilterMode = False

End Sub

結果


実行前のテーブル


ピボットテーブルのフィルタ解除（クリア）は他の方法が必要です。オートフィルタとは別物なのでご注意ください。
ピボットテーブルのフィルタ解除（クリア）： ActiveSheet.PivotTables(1).ClearAllFilters