VBAでVLOOKUP関数を使う

質問

下記VBAでResultsを反映する（更新）するのは、
空白セルだけにするのは、どうすれば良いのでしょうか。
（※参考：http://myrtus21.com/blog/2007/06/vbavlookup.html）

1日かけてトライしていますが、打開できません。

どなたかご教授願います。
どうかよろしくお願いいたします。

Sub 在庫数検索()

Dim SerchName As String
Dim SerchArea As Range
Dim Results As Variant

'初期設定
Range("A2").Activate
ItemCode = Range("A2").Value
i = 0

'検索範囲の設定（ポイント1）
Set SerchArea =Worksheets("シート2").Range("List1")

'商品コードが空になったら終わり
Do Until ItemCode = ""

'エラーになっても続行する（ポイント2-1）
On Error Resume Next

'商品コードに該当するデータを探し、Resultsに入れる
ItemCode = ActiveCell.Offset(i, 0).Value
Results =Application.WorksheetFunction.VLookup(ItemCode, SerchArea, 2, False)

'該当するデータがないとエラーになるための処理、エラーなら空欄にする（ポイント2-2）
If Err <> 0 Then Results = ""

ActiveCell.Offset(i, 1) = Results

i = i + 1

Loop

End Sub

回答No.1

xls88 · ベストアンサー

下記でどうでしょうか。
Iｆ文（★1の処）を追加してみました。

Do Until ItemCode = ""
If ActiveCell.offset(i, 1).value = "" Then '★1
On Error Resume Next
ItemCode = ActiveCell.offset(i, 0).value
Results = Application.WorksheetFunction.VLookup(ItemCode, SerchArea, 2, False)

If Err <> 0 Then Results = ""
ActiveCell.offset(i, 1) = Results
End If '★1
i = i + 1
Loop

お礼

お礼が遅くなりました。

できました！！

本当に助かりました。ありがとうございました。