VBAオジサンのらくがき帳

AdvancedFilterを使ってデータをコピーする

2021-07-04 00:00:00

RangeオブジェクトのAdvancedFilterメソッドを使うと、簡単にあるデータの中から条件にあるれこーをコピーすることができます。簡単なサンプルをつかって説明したいと思います。

AdvancedFilterメソッドのパラメーター

• Action – xlFilterCopyに設定すると結果を他の範囲にコピー、xlFilterInPlaceに設定するとその場でフィルタされます。
• CriteriaRange – 検索条件。
• CopyToRange – コピー先の範囲（出力項目の指定）。
• Unique – True に設定すると、出力の重複したデータは1行で出力されます。

AdvancedFilterでデータのコピーを行うためには、まず条件を設定する範囲と出力先の範囲（出力項目）を準備する必要があります。

上記のような状態で下のコードを実行します。

Range("A2:C10").AdvancedFilter xlFilterCopy, Range("E2:E3"), Range("G2:H2"), False

実行結果は以下のようになります。