ExcelマクロでVLOOKを実行したい

ExcelマクロでVLOOKを実行したい

同一シートにある「全体」の表から必要な項目をVLookで抜き出したくて
下記のマクロを作成しました。

「Sheet1」のA列（A2以下）には検索値（数字6ケタ）を入れています。
A2の検索値でヒットした値はB2・C2に入りましたが、A3以下の検索値は
スルーされてしまいます。どこを直したら良いのか、ご教授ください。
よろしくお願いします。
-----------------------------------------------------------------------
Sub 検索して値を取得する()
Dim 範囲 As Range
Dim 検索値, i As Long
Dim 出荷日 As Date
Dim 商品名 As String

Set 範囲 = Worksheets("全体").Range("E7:HG1000")
Set 検索値 = Worksheets("Sheet1").Cells(i + 2, 1)

If 検索値.Value <> "" Then

商品名 = Application.WorksheetFunction.VLookup(検索値, 範囲, 2, False)
出荷日 = Application.WorksheetFunction.VLookup(検索値, 範囲, 160, False)

Cells(i + 2, 2).Value = 商品名
Cells(i + 2, 3).Value = 出荷日
i = i + 1
End If
End Sub

No.2 ベストアンサー 回答者： edomin7777 回答日時： 2010/05/03 15:44

＃１です。

Set 検索値 = Worksheets("Sheet1").Cells(i + 2, 1)

If 検索値.Value <> "" Then

商品名 = Application.WorksheetFunction.VLookup(検索値, 範囲, 2, False)
出荷日 = Application.WorksheetFunction.VLookup(検索値, 範囲, 160, False)

Cells(i + 2, 2).Value = 商品名
Cells(i + 2, 3).Value = 出荷日
i = i + 1
End If

を
Do

Set 検索値 = Worksheets("Sheet1").Cells(i + 2, 1)

If 検索値.Value "" Then Exit Do

商品名 = Application.WorksheetFunction.VLookup(検索値, 範囲, 2, False)
出荷日 = Application.WorksheetFunction.VLookup(検索値, 範囲, 160, False)

Cells(i + 2, 2).Value = 商品名
Cells(i + 2, 3).Value = 出荷日
i = i + 1

Loop

にしたらどうなる？

この回答へのお礼

見事に希望通りの動作になりました。
素早いお返事ありがとうございました。

お礼日時：2010/05/03 16:04

No.1 回答者： edomin7777 回答日時： 2010/05/03 15:41

「スルーされてしまいます」

いやいや、スルーじゃなくて元々1回しか走るように出来ていない。

次の検索値をセットして、ループさせないとね。

（whileで回して、if文でbreakさせてもいいし。）