VBA入門
フィルターオプションの設定(AdvancedFilter)

ExcelマクロVBAの基本と応用、エクセルVBAの初級・初心者向け解説
最終更新日:2021-10-29

第90回.フィルターオプションの設定(AdvancedFilter)


ワークシートの操作「フィルターオプションの設定」のマクロVBAの記述になります。


便利な機能ではありますが、
そもそも、ワークシートの操作が難しいこともあり、あまり有効に使われていないように感じます。


フィルター詳細設定の使い方

「データ」タブ→「並べ替えとフィルター」グループの「詳細設定」

VBA マクロ フィルターオプション

この機能を使う場合のVBAになります。
フィルターオプションの設定を使うには、
RangeオブジェクトのAdvancedFilterメソッドを使います。


Range.AdvancedFilter メソッド

Range.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)



Action

検索結果を他の範囲にコピーして抽出するか、
検索条件と一致する行だけを同じ選択範囲内に表示するかを、
XlFilterActionクラスの以下の定数のいずれかで指定します。
xlFilterCopy:フィルター処理したデータを新しい場所にコピーします。
xlFilterInPlace:データをそのままにします。

CriteriaRange 検索条件範囲を指定します。
省略すると、検索条件なしで抽出されます。
CopyToRange 引数 Action を xlFilterCopy に設定したときは、抽出された行のコピー先のセル範囲を指定します。
それ以外の場合、この引数は無視されます。
Unique True に設定すると、検索条件に一致するレコードのうち、重複するレコードは無視されます。
False に設定すると、重複するレコードも含めて、検索条件に一致するレコードがすべて抽出されます。
既定値は False です。


「フィルターオプションの設定」AdvancedFilterメソッドの使用例

条件で絞って必要な列のみをコピー

VBA マクロ フィルターオプション

VBA マクロ フィルターオプション

「成績表」シートの合格者について、「合格者」シートに転記します。
このとき、コピーする項目は氏名と必要な科目のみを、「合格者」シートの順番で出力します。

Sub sample()
  Worksheets("成績表").Columns("A:G").AdvancedFilter _
    Action:=xlFilterCopy, _
    CriteriaRange:=Worksheets("合格者").Range("A1:A2"), _
    CopyToRange:=Range("C1:F1")
End Sub

以下のように出力されます。

VBA マクロ フィルターオプション


重複を削除してコピー

もっとも便利なのが、重複を削除して、コピーする場合でしょう。
以下に、サンプルコードを提示します。



Range("A1:A10").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Sheets("Sheet2").Range("A1"), Unique:=True

A1セル~A10セルの重複を削除して、Sheet2へコピーしています。

重複を削除してユニークデータを作成する場合が最も重宝しますが、
その他にも、検索条件をししたり、いろいろな指定が可能です。

引数の指定が不明な場合は、、
マクロの記録で調べて、必要な引数をコピペで使うようにしてください。
ただし、ワークシートでの、この操作は少々難しいです

この機能に限った事ではありませんが、
ワークシートでの操作が出来ない場合は、基本的にはマクロも使用しない事です
重複削除しユニークデータ作成(フィルターオプションの設定)
エクセル作業においては、データの重複を排除して、ユニークなデータを作成する必要がある場合は多々あります。そのような時の操作として、以下の方法があります。・COUNTIF関数で重複を判定して削除 ・ピボットテーブルで重複を削除 ・重複の削除で重複を削除 ・フィルタの詳細設定(フィルターオプションの設定)で重複を削除 …
ワークシートでの操作方法については、しっかり習得してからお使いください。


フィルターオプションの設定の関連記事

重複削除してコピー(AdvancedFilter)
重複データを排除して、別シートにコピーする場合です。以下の表で説明します。フィルターオプションを使います。このマクロは、この指定と同じになりります。似たような方法ですが、コピー部分を自分で記述する場合です。
重複の無いユニークなデータ作成
簡単な例で シート「元データ」A列に、1行目に見出し、2行目以降にデータが入っている シート「ユニーク」このA列に、シート「元データ」のA列をユニーク(一意)にして取り出します。まずは、エクセルらしく、ワークシート関数とフィルターを使って 非常にエクセルらしい、素直な処理です。




同じテーマ「マクロVBA入門」の記事

第86回.総合練習問題10
第88回.並べ替え(Sort)
第89回.オートフィルター(AutoFilter)
第90回.フィルターオプションの設定(AdvancedFilter)
第91回.条件付き書式(FormatCondition)
第126回.入力規則(Validation)
第92回.名前定義(Names)
第93回.ピボットテーブル(PivotTable)
第94回.コメント(Comment)
第95回.ハイパーリンク(Hyperlink)
第96回.グラフ(Chart)


新着記事NEW ・・・新着記事一覧を見る

数字(1~50)を丸付き数字に変換するVBA|VBA技術解説(2022-11-15)
TEXTAFTER関数(テキストの指定文字列より後ろの部分を返す)|エクセル入門(2022-11-14)
TEXTBEFORE関数(テキストの指定文字列より前の部分を返す)|エクセル入門(2022-11-14)
TEXTSPLIT関数(列と行の区切り記号で文字列を分割)|エクセル入門(2022-11-12)
LAMBDA以降の新関数はVBAで使えるか|VBA技術解説(2022-11-11)
WRAPCOLS関数(1次元配列を指定数の列で折り返す)|エクセル入門(2022-11-08)
WRAPROWS関数(1次元配列を指定数の行で折り返す)|エクセル入門(2022-11-08)
EXPAND関数(配列を指定された行と列に拡張する)|エクセル入門(2022-11-07)
TAKE関数(配列の先頭/末尾から指定行/列数を取得)|エクセル入門(2022-11-06)
DROP関数(配列の先頭/末尾から指定行/列数を除外)|エクセル入門(2022-11-06)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.繰り返し処理(For Next)|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.Excelショートカットキー一覧|Excelリファレンス
7.並べ替え(Sort)|VBA入門
8.エクセルVBAでのシート指定方法|VBA技術解説
9.マクロって何?VBAって何?|VBA入門
10.ExcelマクロVBAの基礎を学習する方法|エクセルの神髄




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ