Vlookup with Match和Not Match返回VBA中的特定值。请找到下面的代码。我需要知道如何获得匹配值

Sub VlookupWithMatch()
    Dim searchValue As String
    Dim lookupRange As Range
    Dim matchRange As Range
    Dim resultRange As Range
    Dim resultValue As Variant
    
    ' 设置要查找的值
    searchValue = "要查找的值"
    
    ' 设置要进行查找的范围
    Set lookupRange = Range("A1:A10")
    
    ' 使用Match函数查找匹配的位置
    Set matchRange = lookupRange.Columns(1)
    matchValue = Application.WorksheetFunction.Match(searchValue, matchRange, 0)
    
    ' 使用Vlookup函数返回匹配的值
    Set resultRange = lookupRange.Columns(2)
    resultValue = Application.WorksheetFunction.Vlookup(searchValue, resultRange, 1, False)
    
    ' 输出结果
    MsgBox "匹配位置：" & matchValue & vbCrLf & "匹配值：" & resultValue
End Sub