PCメモ

Excelを中心とした業務改善の記録

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

 

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

f:id:abv72:20200915232030p:plain

 

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

f:id:abv72:20200915232200p:plain