vab自定义函数 实现VLOOKUP返回多个查询值

在VBA中，VLOOKUP函数的功能是查找一个值在某个数据范围中的匹配，并返回对应的结果。如果你希望实现VLOOKUP返回多个查询值，可以使用循环遍历的方法来实现。下面是一个示例：

Function VLookupMultiple(lookupValue As Variant, lookupRange As Range, returnRange As Range) As Variant()
    Dim resultArray() As Variant
    Dim resultIndex As Integer
    Dim cell As Range
    
    resultIndex = 0
    
    ' 遍历查询范围，找到匹配的值并存储到结果数组中
    For Each cell In lookupRange
        If cell.Value = lookupValue Then
            resultIndex = resultIndex + 1
            ReDim Preserve resultArray(1 To resultIndex)
            resultArray(resultIndex) = returnRange.Cells(cell.Row - lookupRange.Row + 1).Value
        End If
    Next cell
    
    ' 返回结果数组
    VLookupMultiple = resultArray
End Function

使用这个自定义函数时，你可以在Excel中的一个单元格中输入 `=VLookupMultiple(lookupValue, lookupRange, returnRange)`，然后按下回车键执行函数。其中，`lookupValue` 是要查询的值，`lookupRange` 是数据范围用于查找匹配的值，`returnRange` 是对应的返回结果范围。

函数会遍历查询范围，找到所有匹配的值，并将对应的返回结果存储在一个数组中。最后，函数会将该数组作为返回值返回。

请注意，该函数实现的是类似于VLOOKUP的功能，但是返回的是一个数组，包含所有匹配的值。你可以将返回的数组赋值给一个变量，或者直接在代码中使用返回的数组。