オートフィルタ（AutoFilter）の使い方まとめ

最終更新日：2015-08-16

オートフィルタ（AutoFilter）の使い方まとめ

オートフィルタはエクセルの中でもデータ処理において非常に強力なものです、
特に大量データの処理には書くことのできない機能となっています。
しかし、使い方が難しく、またバージョン違いの影響が大きく、使いずらい物となっていて、問い合わせを受ける事も多いです。

今まで、オートフィルタに関する記事は、いくつかの書いてきました。
まずは、以下の記事をお読み頂きたい。

マクロの記録でVBA：第18回.オートフィルタ

マクロの記録でVBA：第19回.オートフィルタ2

マクロVBA入門：第89回.オートフィルタ（AutoFilter）

マクロVBAサンプル集：オートフィルター（AutoFilter）

マクロVBAサンプル集：日付のオートフィルタ（AutoFilter）

それぞれでVBAの記述について解説していますが、
とても覚えきれるものではありませんし、
かなり面倒なシロモノであることは間違いありません。

何が面倒かというと、
Criteria
の指定方法です。
Criteria1だけで、かつ数値・文字なら、それほどの問題はないのですが、
複数の値や日付のオートフィルタは、とても面倒なものです。

まず最初に考えるべきは、1フィールド(1列)で1値での絞り込みにすることを考えましょう。
どういう事かというと、
ある列の絞り込みで、"a"と"b"を絞り込みたいのなら、
作業列を追加して、"a" or "b" のとき1、それ以外は0を入れます。
そして、作業列で絞り込むようにします。
例.
A列で、"a"と"b"で絞り込むなら
とりあえず100行までとして、
B列に、

For i = 2 To 100
　　If Cells(i, 1) = "a" Or Cells(i, 1) = "a" Then
　　　　Cells(i, 2) = 1
　　Else
　　　　Cells(i, 2) = 0
　　End If
Next

とします。
これでB列でオートフィルタすれば良いわけです。

しかし、ここで問題が発生します。
一行ずつにデータを入れていたら、大量データの時は、それだけで多大な時間がかかってしまいます。
それを解決させるには、配列を使用して、セルへの一括更新のテクニックを使います。

Dim i As Long
Dim ary
ary = Range("A1:B100")
For i = 2 To 100
　　If ary(i, 1) = "a" Or ary(i, 1) = "a" Then
　　　　ary(i, 2) = 1
　　Else
　　　　ary(i, 2) = 0
　　End If
Next
Range("A1:B100") = ary

このようにセルとのやりとりは一括で処理するようにします。
これでB列でオートフィルタすれば高速処理が実現できます。
サンプルのコードはかなり簡易的に書いていますので適宜変更して下さいね。

エクセルの機能を活用しつつ、
オブジェクト操作による、マクロが遅いという問題点を解消します。

マクロVBAでは、単一機能を覚えても、なかなか使いこなせません。
複数の機能を上手に組み合わせることが最も重要で、最も難しいことになります。