AutoFilterとAdvancedFilterの違いは？メリットデメリットについて｜もしも普通のサラリーマンがお金とITを学んだら

このページでわかること

AutoFilterとAdvancedFilterの違いと使い分けの仕方がわかります。

覚えること

AutoFilterは手軽にサクッと抽出できる。
抽出条件を変更しやすい。
AdvancedFilterは複雑な抽出が一度の操作でできる。
抽出条件をエクセルに書き込めるのでメンテナンスしやすい。
変更できるようにしたいセルの処理
レンジオブジェクト.Locked=False
シートの保護
シートオブジェクト.Protect

こんにちはhokkyokunです。
表の抽出作業でよくお世話になる、AutoFilterとAdvancedFilterですが、
どちらを使えばよいか考察したいと思います。

どちらを使うべきか状況によって変わると思います。
まとめていきたいと思います。

Contents

AutoFilterとAdvancedFilterの構文
どちらを使うべきか
- AutoFilterを使ったほうが良い点
- AdvancedFilterを使ったほうが良い点
  - 複雑な抽出条件処理をする場合
  - 検索条件が可視化される
結局どちらを使うべきなのか

AutoFilterとAdvancedFilterの構文

AutoFilterメソッド

Rangeオブジェクト.AutoFilter([Field], [Criteria1], [Operator], [Criteria2], [VisibleDropDown])

ざっくりな説明をすると
Fieldで表の何番目の列の値を抽出するか設定し、
Criteria1と2で抽出条件を指定、
Operatorで抽出条件の種類を指定（例えばCriteria1と2の条件に同時合う値を抽出するか、どちらか一方でも合う値を抽出するか）
という使い方です。

AdvancedFilterメソッド

Rangeオブジェクト.AdvancedFilter(Action, [CriteriaRange], [CopyToRange], [Unique])

こちらはActionで抽出結果の表示場所を表内にするか、表外にするか指定し、
CriteriaRangeでエクセル上に書かれた検索条件を指定し、
CopytoRangeで表示場所を指定
Uniqueでデータを重複ＯＫにするか重複分は一部非表示にするか
という使い方です。

同じような処理でも扱い方は違います。

どちらを使うべきか

ではどちらを使うべきでしょうか。

どちらか一方だけ覚えれば言いというわけではありません。
どちらも重要でどちらも覚える必要があります。

それぞれにメリットデメリットがあり、状況により使い分ける必要があります。

AutoFilterを使ったほうが良い点

AutoFilterは手軽（検索条件をエクセルに記述しなくていい）

AdvancedFilterは検索条件をエクセルに書く必要があります。
ということは、

書くためのスペースを用意したり、
マクロを動かす前に検索条件を入力したり、
マクロ内で検索条件を自動入力する場合は書式に気をつけてあげたりしなければいけません。

Autofilterはコード内に条件を書き込むので、シートをすっきりさせられます。

検索条件を変化させながらマクロを動かす場合は楽（二段階リストなど、コードあります）

例えば列Ａの値aを検索後、列Ｂにある値を取得し、その中からさらに検索をかける場合、
いわゆる２段階リストを作る際にはAdvancedFilterでは難しいです。

例えば、
下記表にて、年月をフィルタリングして、7月の果物のリスト、8月の果物のリストが作りたいとします。

Sub 二段階リスト()

Dim table As ListObject 'テーブル変数
Dim dicDate As New dictionary '一段階目（年月）のリスト
Dim dicFlt As New dictionary '二段階目（果物）のリスト
Dim r As Range 'Dictionaryオブジェクトに入れるための変数（レンジオブジェクト）
Dim L1, L2 As Variant 'Dictionaryオブジェクトからキーを取り出すための変数
Dim str As String 'メッセージボックス用の変数（文字列）
Set table = ActiveSheet.ListObjects(1)

'一段階目（年月）のリスト作成
For Each r In table.ListColumns("年月").DataBodyRange
    On Error Resume Next
        dicDate.Add r.Value, r.Value
    On Error GoTo 0
Next

'一段階目のリストをFor eachでまわし、それぞれフィルタリングする
'フィルタリング後のデータを二段階目のリストに格納する
For Each L1 In dicDate
    table.Range.AutoFilter
    table.Range.AutoFilter field:=table.ListColumns("年月").Index, Criteria1:=L1
    For Each r In table.ListColumns("果物").DataBodyRange.SpecialCells(xlCellTypeVisible)
        On Error Resume Next
            dicFlt.Add r.Value, r.Value
        On Error GoTo 0
    Next
    
    'メッセージボックス用に文字列を格納する
    For Each L2 In dicFlt
        str = str & "一段階目：" & L1 & "　　" & "二段階目：" & L2 & vbCrLf
    Next
Next

MsgBox str

End Sub

コメントとメッセージボックスで少し長くなりますが、
それを除けば案外コンパクトになると思います。
結構使えるアイデアです！！

これをAdvancedFilterでやると結構面倒です。
書きたくないのでやりません笑