如何在VBA多维数组中基于第二维度执行VLOOKUP查询？

问题根源 #

VLOOKUP的固有限制是只能以数组的第一列作为查询依据，所以直接用第二列（或其他非首列）的值作为查询条件时，必然无法得到结果。下面提供两种实用的解决方案：

方案1：使用INDEX+MATCH组合（依赖Excel工作表函数） #

这种方法可以摆脱首列限制，直接指定查询列和返回列，代码修改如下：

Sub FixedCode_IndexMatch()
    Dim myArray(1 To 10, 1 To 4) As Variant
    Dim i As Integer
    Dim inputVal As Variant
    Dim outputVal As Variant
    
    ' 填充多维数组
    For i = 1 To 10
        myArray(i, 1) = "a" & i
        myArray(i, 2) = "b" & i
        myArray(i, 3) = "c" & i
        myArray(i, 4) = "d" & i
    Next i
    
    ' 写入工作表（可选步骤）
    Range("A1:D10").Value = myArray
    
    ' 指定要查询的第二列值（比如"b2"）
    inputVal = "b2"
    
    ' 核心逻辑：提取第二列作为查询范围，匹配后取对应行的第4列值
    outputVal = Application.Index( _
        myArray, _
        Application.Match(inputVal, Application.Index(myArray, 0, 2), 0), _
        4 _
    )
    
    ' 结果判断与输出
    If Not IsError(outputVal) Then
        MsgBox "对应第4列的值是: " & outputVal
    Else
        MsgBox "未找到匹配值"
    End If
End Sub

代码说明：

• Application.Index(myArray, 0, 2)：从多维数组中提取第二列，生成一个一维数组供MATCH查询
• MATCH(inputVal, ..., 0)：找到目标值在第二列中的行号
• 外层INDEX：根据行号和目标列索引（这里是4）取出对应值

方案2：自定义通用查询函数（纯VBA逻辑） #

如果不想依赖Excel工作表函数，可以写一个自定义函数，直接遍历数组实现任意列查询，复用性更强：

' 自定义数组查询函数：返回指定列的匹配值
' 参数说明：arr=目标多维数组，lookupVal=查询值，lookupCol=查询列索引，returnCol=返回列索引
Function ArrayLookup(arr As Variant, lookupVal As Variant, lookupCol As Integer, returnCol As Integer) As Variant
    Dim i As Long
    ' 遍历数组所有行
    For i = LBound(arr, 1) To UBound(arr, 1)
        If arr(i, lookupCol) = lookupVal Then
            ArrayLookup = arr(i, returnCol)
            Exit Function ' 找到匹配后直接退出
        End If
    Next i
    ' 无匹配时返回错误值
    ArrayLookup = CVErr(xlErrNA)
End Function

' 调用示例
Sub UseCustomFunction()
    Dim myArray(1 To 10, 1 To 4) As Variant
    Dim i As Integer
    Dim inputVal As Variant
    Dim outputVal As Variant
    
    ' 填充数组
    For i = 1 To 10
        myArray(i, 1) = "a" & i
        myArray(i, 2) = "b" & i
        myArray(i, 3) = "c" & i
        myArray(i, 4) = "d" & i
    Next i
    
    ' 查询第二列的"b3"，返回第四列的值
    inputVal = "b3"
    outputVal = ArrayLookup(myArray, inputVal, 2, 4)
    
    ' 结果输出
    If Not IsError(outputVal) Then
        MsgBox "对应值是: " & outputVal
    Else
        MsgBox "无匹配结果"
    End If
End Sub

优势：

• 不依赖Excel环境，纯VBA逻辑运行更稳定
• 代码逻辑直观，便于扩展（比如支持模糊匹配、多条件查询等）

内容的提问来源于stack exchange，提问作者BB8 was great