Sub 別のシートからVLookup()
Dim tbl As Range
Set tbl = Sheets("Sheet2").Range("A1:B11")
Dim x As String
Dim i As Integer
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
x = Range("A" & i + 1).Value
On Error Resume Next
Dim ret As String
ret = WorksheetFunction.VLookup(x, tbl, 2, 0)
If Err Then
ret = "なし"
End If
On Error GoTo 0
Range("M" & i + 1).Value = ret
Next i
End Sub
