【EXCEL】オートフィルタで使える便利なVBAマクロ一覧

[chat face=”pose_atama_kakaeru_man.png” name=”” align=”left” border=”gray” bg=”none” style=””]Excelでオートフィルタをよく使うけど、チェックを付けたり、外したり、全部解除したり…毎回同じ作業をするのがなにかと面倒。どうにかならないかな？[/chat]

[chat face=”shigoto_woman_casual.png” name=”ごん” align=”right” border=”gray” bg=”none” style=””]VBAマクロを使えば効率よく自動化できるよ[/chat]

仕事で日報や経費の計算、作業員名簿などなにかとオートフィルタを使う機会が多いかたは

フィルタでチェックを入れ替える
フィルタの（すべて選択）を選ぶ
フィルタであいまい検索をする

など、同じ作業を繰り返すことがたくさんあるのではないでしょうか？

この記事では、何度も使うオートフィルタの機能をVBA（マクロ）で自動化して、作業の負担を減らす方法をご紹介しています。

EXCELのオートフィルタで使える便利なマクロ

ここで紹介するマクロをボタンに設定するとワンタッチで利用することができます。

オートフィルタの選択部分を解除する

まずはフィルターで選んだ項目を全て外し、表が全部見えている状態に戻すマクロです。

Sub Macro_filterclear()
Range("A1").Select
If ActiveSheet.FilterMode Then
  ActiveSheet.ShowAllData
  End If
End Sub

マクロの内容説明

オートフィルタの条件を指定したセルの値から選択する

Sub macro_filterSell()
Selection.AutoFilter Field:=3, Criteria1:=Range("D1").Value
End Sub

マクロの内容説明

オートフィルタの条件を指定するマクロ

Sub macro_filterCon()
Selection.AutoFilter Field:=3, Criteria1:="1"
End Sub

マクロの内容説明

オートフィルタで二つの条件を指定するマクロ

Sub macro_filter2con()
Selection.AutoFilter Field:=3, Criteria1:="<10", Operator:=xlAnd, Criteria2:=">=5"
End Sub

マクロの内容説明

[chat face=”shigoto_woman_casual.png” name=”ごん” align=”left” border=”gray” bg=”none” style=””]今回のマクロでは「xlAnd」なので「10より下」かつ「5以上」の数値が抽出されるね[/chat]