在VBA中是否有一个类似索引的函数可以在完全匹配时返回多列数据？

Function MultiColumnLookup(lookupValue As Variant, lookupRange As Range, returnColumns As Range) As Variant
    Dim resultArray As Variant
    Dim i As Long
    
    resultArray = Application.Index(lookupRange.Value, Application.Match(lookupValue, lookupRange.Columns(1), 0), 0)
    
    If Not IsError(resultArray) Then
        ReDim Preserve resultArray(1 To 1, 1 To returnColumns.Columns.Count)
        
        For i = 1 To returnColumns.Columns.Count
            resultArray(1, i) = returnColumns.Cells(1, i).Value
        Next i
    End If
    
    MultiColumnLookup = resultArray
End Function

Sub TestMultiColumnLookup()
    Dim lookupValue As Variant
    Dim lookupRange As Range
    Dim returnColumns As Range
    Dim result As Variant
    
    ' 设置查找值
    lookupValue = "ABC"
    
    ' 设置查找范围
    Set lookupRange = Range("A1:A10")
    
    ' 设置返回列范围
    Set returnColumns = Range("B1:C1")
    
    ' 调用函数
    result = MultiColumnLookup(lookupValue, lookupRange, returnColumns)
    
    ' 输出结果
    If Not IsError(result) Then
        MsgBox "Column B: " & result(1, 1) & vbNewLine & "Column C: " & result(1, 2)
    Else
        MsgBox "No match found."
    End If
End Sub