第90回.フィルタオプションの設定（AdvancedFilter）
ワークシートの操作「フィルタオプションの設定」のマクロVBAの記述になります、
便利な機能ではありますが、
そもそも、ワークシートの操作が難しいこともあり、あまり有効に使われていないように感じます。
フィルタ詳細設定の使い方
RangeオブジェクトのAdvancedFilterメソッドを使います。
Range.AdvancedFilter メソッド
| Action |
検索結果を他の範囲にコピーして抽出するか、 |
| CriteriaRange | 検索条件範囲を指定します。 省略すると、検索条件なしで抽出されます。 |
| CopyToRange | 引数 Action を xlFilterCopy に設定したときは、抽出された行のコピー先のセル範囲を指定します。 それ以外の場合、この引数は無視されます。 |
| Unique | True に設定すると、検索条件に一致するレコードのうち、重複するレコードは無視されます。 False に設定すると、重複するレコードも含めて、検索条件に一致するレコードがすべて抽出されます。 既定値は False です。 |
「フィルタオプションの設定」AdvancedFilterメソッドの使用例
以下に、サンプルコードを提示します。
Range("A1:A10").AdvancedFilter Action:=xlFilterCopy,
_
CopyToRange:=Sheets("Sheet2").Range("A1"),
Unique:=True
その他にも、検索条件をししたり、いろいろな指定が可能です。
引数の指定が不明な場合は、、
マクロの記録で調べて、必要な引数をコピペで使うようにしてください。
ただし、ワークシートでの、この操作は少々難しいです。
この機能に限った事ではありませんが、
ワークシートでの操作が出来ない場合は、基本的にはマクロも使用しない事です。
重複削除しユニークデータ作成（フィルターオプションの設定）
フィルタオプションの設定の関連記事
同じテーマ「VBA入門」の記事
第87回.WorksheetFunction（ワークシート関数を使う）
第88回.並べ替え（Sort）
第89回.オートフィルタ（AutoFilter）
第90回.フィルタオプションの設定（AdvancedFilter）
第91回.条件付き書式（FormatCondition）
第92回.名前定義（Names）
第93回.ピボットテーブル（PivotTable）
第94回.コメント（Comment）
第95回.ハイパーリンク（Hyperlink）
第96回.グラフ（Chart）
第97回.図形オートシェイプ（Shape）
新着記事NEW ・・・新着記事一覧を見る
SQL関数と演算子｜SQL入門（12月1日）
データの取得：集約集計、並べ替え（DISTINKT,GROUP BY,ORDER BY）｜SQL入門（11月30日）
データの取得：条件指定（SELECT,WHERE）｜SQL入門（11月29日）
データの挿入：バルクインサート｜SQL入門（11月28日）
データの挿入（INSERT）と全削除｜SQL入門（11月26日）
テーブル名変更と列追加（ALTER TABLE）とテーブル自動作成｜SQL入門（11月25日）
テーブルの作成/削除（CREATE TABLE,DROP TABLE）｜SQL入門（11月24日）
データベースに接続/切断｜SQL入門（11月23日）
SQLiteのインストール｜SQL入門（11月22日）
SQL入門：VBAでデータベースを使う｜エクセルの神髄（11月22日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜VBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.変数宣言のDimとデータ型｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.マクロって何？VBAって何？｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説
10.ひらがな⇔カタカナの変換｜エクセル基本操作
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。