Sub 別のシートからVLookup2()
'参照範囲の宣言
Dim 参照範囲 As Range
'参照範囲はシート3のテーブル
Set 参照範囲 = Sheets("Sheet3").Range("A1").ListObject.Range
'検索値宣言
Dim 検索値 As Variant
'行番号宣言
Dim 行番 As Variant
For 行番 = 2 To Cells(Rows.Count, 1).End(xlUp).Row
検索値 = Cells(行番, 1).Value
On Error Resume Next
Dim 単価の検索結果 As Variant
Dim 都道府県の検索結果 As Variant
'検索結果の宣言
単価の検索結果 = WorksheetFunction.VLookup(検索値, 参照範囲, 2, 0)
都道府県の検索結果 = WorksheetFunction.VLookup(検索値, 参照範囲, 3, 0)
If Err Then
単価の検索結果 = "なし"
都道府県の検索結果 = "なし"
End If
On Error GoTo 0
Cells(行番, 2).Value = 単価の検索結果
Cells(行番, 3).Value = 都道府県の検索結果
Next 行番
End Sub
