高速なロジックは？

質問

お世話になります。

エクセルで次のような処理をする時、
高速と思われるＶＢＡのロジックをご教授ください。

---------------------------------------
●データ仕様

Sheet1、2のA列にコードがそれぞれ５万行
Sheet1のコードはユニーク
Sheet2にはダブりもある

●処理内容
Sheet2にSheet1と同じコードあった場合は
Sheet2の該当行B列に、Sheet1の行番号を表示
------------------------------------------

（１）コードが、数値のみの場合
（２）コードが、文字数字混在の場合

考え方だけで結構ですので宜しくお願いします。

回答No.2

Wendy02 · ベストアンサー

＞（２）コードが、文字数字混在の場合
で、まさか、文字列 = CStr(数値)ということはないと思います。

そうでなかったら、Excelの場合は、Sheet1側は、列をA:A をRangeオブジェクトに入れ、検索値としてSheet2 のデータは配列に入れ、
Application.Match(検索値,範囲(Range),0)
で、Sheet1のA:Aを検索させれば、そのまま戻り値で行番号が得られます。
また、エラーが返るときは、Matchの戻り値は、IsError で取れます。

Match関数で行うのが最も反応が早いはずです。

お礼

早速の回答ありがとうございます。
アドバイス、試してみたいと思います。

回答No.4

komet163

こんにちは。
Access をお持ちなら、シートをテーブルに
掃き出して、クエリを組めば一発です。
上記の一連の操作をExcel VBA で記述して、
結果もエクセルシートに返すように作れば、
ユーザにはエクセルのみ見せて、アクセスを
意識させずに処理もできます。
しかし、テーブルメンテを考えるなら、
以後はアクセスにてデータ更新すべきですが。

以上、アクセスが所有されていることを前提に書きました。

お礼

早速の回答ありがとうございます。
有意義なアドバイスいただきましたが
今回はあくまでもエクセル使用ということで
申し訳ありません。

回答No.3

BLUEPIXY

Sheet1のコードをソートしておき
Sheet2のコードを２分検索する。

Sheet1のコードがソートされていてユニークだったら、ＶＢＡを使うまでもないような気がいたします

お礼

早速の回答ありがとうございます。
＞ＶＢＡを使うまでもないような
ＶＢＡの勉強ということで・・・。

回答No.1

hana-hana3

処理としては単純ですが、「重複セルの探し方」で速度が変化します。

下記の「VBA 高速化テクニック」を参考にして、組んでみてください。

参考URL：

http://www.officetanaka.net/excel/index.htm

お礼

早速の回答、ありがとうございます。
ご紹介のサイトじっくり読ませて頂きます。