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

在VBA中使用Vlookup函数与Match函数来返回特定值的代码示例如下：

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

上述代码中，首先设置要查找的值为变量searchValue，设置要进行查找的范围为变量lookupRange。然后使用Match函数在lookupRange中查找searchValue的匹配位置，返回的匹配位置存储在变量matchValue中。接着使用Vlookup函数在lookupRange的第二列中查找匹配值，并将匹配值存储在变量resultValue中。最后，通过弹出消息框输出匹配位置和匹配值。

请注意，上述代码中使用的是Excel的VBA语法，需要在Excel中的VBA编辑器中运行。在其他开发环境中，可能需要进行相应的调整和修改。

希望以上代码对你有所帮助。如果还有其他问题，请随时提问。