【ExcelVBA】VLOOKUPの方法について。

質問

《全体の仕様（今回の質問に関連する箇所のみ）》
１）作業列にある2桁の数字の頭に「1」を付加して「1XX」という3桁の数字にし、D列にコピーする。
２）その3桁の数字をキーとし、別ファイルの「A列：キー / C列：商品名」という一覧からVLOOKUPで商品名をE列に表示させたい。

１）に関しては、過去にこのように質問させて頂きました。
http://oshiete1.goo.ne.jp/qa3976946.html

マクロでVLOOKUPを使うのは初めてでして、２のロジックの考え方について、迷っています。

まず、キーとなる数字を編集してから、一番上の行～最終行にかけて、一気にVLOOKUPをかけた方がよいのでしょうか？
それともループの中で1行編集するごとに、VLOOKUP関数をキー列の隣に入れていった方がよいのでしょうか？

処理が早い方、且つできればソースがシンプルな方（当方VBAはかなり初心者です…）は、どちらの考え方になるのでしょうか？

（なお、キーとなる3桁の数字は、編集後は文字列扱いになっていましたが、それを関数で数字に直すのは、自力でなんとかできました）

回答No.1

Wendy02 · ベストアンサー

こんにちは。

結論的なものではありませんが、一応、ここを検索してみると分かりますが、マクロで、VLOOKUPは、あまり意味がないのです。特に、はっきりとした理由ではないのですが、引数として、Rangeオブジェクトの範囲を常に入れておく入れたりしても、VLOOKUPでは、途中で面倒になってしまうのです。

A1:C10

　A　　B　　C
あ　　1　　11
い　　2　　12
う　　3　　13
え　　4　　14
お　　5　　15
か　　6　　16
き　　7　　17
く　　8　　18
け　　9　　19
こ　　10　　20

E
い
あ
う

-------------------------------
'Vlookup 関数を使わないで、検索する方法

Sub Test1()
Dim i As Variant
Dim c As Variant
Dim myData As Range
Set myData = Range("A1:C10")

'Application.ScreenUpdating = False
For Each c In Range("E1", Range("E65536").End(xlUp))
　i = Application.Match(c.Value, myData.Columns(1), 0)
　If Not IsError(i) Then
　　'F 列に出力する
　　c.Offset(, 1).Value = myData.Cells(i, 3).Value
　End If
Next c
'Application.ScreenUpdating = True
Set myData = Nothing
End Sub
------------------------------------

それから、

<1>まず、キーとなる数字を編集してから、一番上の行～最終行にかけて、一気にVLOOKUPをかけた方がよいのでしょうか？

<2>それともループの中で1行編集するごとに、VLOOKUP関数をキー列の隣に入れていった方がよいのでしょうか？

VLookUp を使うのは別として、ループの中で1行ごとにほうが、コードとしては分かりやすいかと思います。

マクロの処理を速くする方法は、
Application.ScreenUpdating = False

'セルにアクセスするコードを入れる

Application.ScreenUpdating = True

お礼

こんにちは。
ここの皆様のお陰で、無事完成しました。
書いて頂いたコードを既存のコードに組み込む方法がわからなくて、結局ループの中でVLOOKUPをかけたのですが、VBAの考え方など非常に参考になりました。
本当にありがとうございました。