Sub VLookup関数()
Dim LastRow As Integer
Dim i As Integer
LastRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LastRow
Sheets("Sheet1").Cells(i, 2) = _
WorksheetFunction.VLookup(Cells(i, 1), _ThisWorkbook.Sheets("マスタ").Range("A:B"), 2, 0)
NextEnd Sub
マスタシートにデータを準備
Sheet1のA列に入力されたNoに対応する品名を、マスタシートから拾ってくる。