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("マ…