Excel VBA XLOOKUPは指定された範囲から特定の値を検索

以下のようなシーンで利用されます。

・特定のキーに対応する値を取得する。

・複数の条件に基づくデータの検索

Option Explicit

Sub UseXLOOKUP()
    Dim ws As Worksheet
    Dim result As Variant
    Dim lookupValue As String
    Dim lookupArray As Range
    Dim returnArray As Range

    ' シートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 検索値を設定
    lookupValue = "orange"
    
    ' 検索範囲と返す値の範囲を設定
    Set lookupArray = ws.Range("A2:A10")
    Set returnArray = ws.Range("B2:B10")

    ' XLOOKUPを使用して値を検索
    On Error GoTo ErrorHandler
    result = Application.WorksheetFunction.XLookup(lookupValue, lookupArray, returnArray, "見つかりません")
    
    ' 結果をセルに表示
    ws.Range("D1").Value = result
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description
End Sub