エクセルＶＢＡで検索の早い方法

質問

こんにちは。

エクセルのＶＢＡでお教え下さい。

シート１のＡ列に下記の様なデータがあって
ABCDは業者コードだとおもって下さい。
A
A
B
C
D
D

違うシート２に下記のように業者コードの
マスターがあるとします。
A
D

シート１の全てのＡ列がシート２のマスターと
合致するかどうかで、合致しなかった場合にエラーを
表示するようなことをしたい（この場合、BCがエラー）のですが、どういうプログラムにするのが処理的に早いでしょうか？
ぐるぐる順番に回す方法以外になにか良い手は
ありますでしょうか？
お教え下さい。よろしくお願いします。

回答No.4

imogasi · ベストアンサー

（１）総なめ法
（２）Ｆｉｎｄメソッド法
Ｓｈｅｅｔ１の業者コードがＡ列のＡ１：Ａ１００００に１００００件あるとして捉え、Ｓｈｅｅｔ２（マスター）のＡ列（業者コードの列）で「ＦＩＮＤ」メソッド（ＦｉｎｄとＦｉｎｄＮｅｘｔメソッド）を使い、存在するかどうかチェックします。あればＯＫ、なければ（Ｎｏｔｈｉｎｇ）であればエラーをＢ列とかにかきこみ、Ａ２に移って同じことを、Ａ１００００まで繰り返す。
（３）Ｍａｔｃｈｉｎｇ法
マスターは業者コードでソートしてあるとします。
Ｓｈｅｅｔ１のトランザクションの方を業者コードでソートします。
そしてＳｈｅｅｔ１とＳｈｅｅｔ２のデータを業者コード
をマッチングキーにして、マッチング照合のアルゴリズム
で処理します。マスター（Ｓｈｅｅｔ１）のキーがトランザクション（Ｓｈｅｅｔ２）のキーより先行したものがあると、そのトランザクションはマスターに見当たらないものです。（昔の情報処理試験の教科書やＣＯＢＯＬの解説書に良く載っています。）エクセルを離れて、メモリに収まりきれない大量データだとこの処理が、結果的に早いようです。（何十万件以上の事務処理などの場合。）

お礼

ありがとうございます。
とりあえず、今、総なめでやっていますが、
matching法でやってみます。
ありがとうございました。

回答No.5

78tch

おお。＃４さん、勉強になりました。
ところで、マクロでワークシート関数
countif(A1:A100,"A")
を書き込んで、０かどうか判定してからまたマクロで消すっていうのではだめですかね。これを種にFalse表示させるでもいいですし。
それと、Sheet1のA列をAdvancedFilterでUniqueをTrueとしてSheet2か3にでも持っていって、じっくりSheet2と見比べる手もあるかいな、と。

お礼

いろいろとありがとうございました。
参考になりました。

回答No.3

78tch

ども。追加アドバイスですが、方針として、まずはエラーじゃない場合について考えることにして、以下の操作をマクロに記録してみてください。
１．マクロ記録開始
２．シート１でオートフィルタで適当な業者コードでフィルタを掛ける
３．表の十分下側（データ範囲外）のセル（A列がいいかな）を選んでから、「Ctrl」押しながら「↑」キー
４．マクロ記録停止
以上で出来上がるコードを見て、参考になさると良いと思います。

回答No.2

78tch

＃１です。
あなたの表がどんなか分かりませんで仮定ですが
シート２で業者コードの入っているエリアから業者コードをひとつずつ順番に全部取得して、変数に入れます。それをシート１でAutoFilterするときの抽出条件となる文字列に指定してやり、３５５３６行目からSelection.End(xlUp).Selectしてやって、行座標を見れば、何件該当があったか分かります。
ＶＢＡにあまりお詳しくないなら、マクロの自動記録を活用してみてください。便利ですよ。

お礼

ありがとうございます。
マクロの記録で一度やってみます。

回答No.1

78tch

シート２の値で順番にシート１にフィルタ掛けて、行数が０だったらエラー
では？

補足

すいません、どういうようにするのかがわかりません。
もう少し詳しくお教えいただけますでしょうか？