vba：vlookとindex&match

vlook

Sub setVlook()

On Error GoTo err:

    With Worksheets("sheet1")

        .Range("I3:I10") = WorksheetFunction.VLookup(.Range("B3:B10"), Sheet2.Range("$A$3:$B$10"), 2, False)
    
    End With

    Exit Sub
 
err:
 
    Debug.Print err.Number, err.Description
    
End Sub

index&match

Sub setIndex()

On Error GoTo err:

    With Worksheets("sheet1")
    Dim i As Long
    For i = 3 To 10
       ' index(取得したい値, match(参照元のkey, 参照先のkey))
        .Range("I" & i) = WorksheetFunction.Index(Sheet2.Range("B3:B10"), WorksheetFunction.Match(.Range("A" & i), Sheet2.Range("A3:A10"), 0))
    Next i
    End With

    Exit Sub
 
err:
 
    Debug.Print err.Number, err.Description
    
End Sub