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

ExcelVBA, オートフィルタ


オートフィルタの設定

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

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

End Sub

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

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

End Sub

結果


実行前のテーブル



オートフィルタの解除

Sub sample()

    ThisWorkbook.ActiveSheet.AutoFilterMode = False

End Sub

結果


実行前のテーブル


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