VLOOKUP関数（VBA

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)
　Next

End Sub

マスタシートにデータを準備

Sheet1のA列に入力されたNoに対応する品名を、マスタシートから拾ってくる。