如何用纯VBA代码实现多条件VLookup，不调用Excel公式功能

核心优化思路 #

完全贴合你提到的Excel数组多条件判断逻辑，同时避免硬编码固定条件数量、减少单元格访问提升性能，全程使用VBA原生能力实现，不调用任何工作表函数、不写入任何单元格公式。

• 一次性将结构化表数据加载到内存数组，比逐行读取单元格效率提升数倍
• 支持任意数量的匹配条件，无需嵌套多层If判断
• 逻辑完全对标 (条件1匹配)*(条件2匹配)*...=1 的数组公式判断规则
• 保留原函数的调用方式，兼容已有调用代码

优化后代码 #

Function GetLookupData(tableName As String, resultColumn As String, conditions As Variant) As Variant
    Dim lo As ListObject, dataArr As Variant, headerArr As Variant
    Dim condCount As Long, condColIdx As Long, matchFlag As Boolean
    Dim i As Long, j As Long, k As Long, resultColIdx As Long
    
    ' 加载结构化表的表头和数据到内存数组
    Set lo = Sheet1.ListObjects(tableName)
    headerArr = lo.HeaderRowRange.Value
    dataArr = lo.DataBodyRange.Value
    condCount = (UBound(conditions) - LBound(conditions) + 1) / 2
    
    ' 定位返回结果的列索引
    For j = 1 To UBound(headerArr, 2)
        If headerArr(1, j) = resultColumn Then
            resultColIdx = j
            Exit For
        End If
    Next j
    If resultColIdx = 0 Then GetLookupData = -1: Exit Function
    
    ' 逐行匹配所有条件
    For i = 1 To UBound(dataArr, 1)
        matchFlag = True
        For j = 0 To condCount - 1
            ' 定位当前条件对应的列索引
            condColIdx = 0
            For k = 1 To UBound(headerArr, 2)
                If headerArr(1, k) = conditions(j * 2) Then
                    condColIdx = k
                    Exit For
                End If
            Next k
            If condColIdx = 0 Then matchFlag = False: Exit For
            ' 单条件不匹配则终止当前行校验
            If dataArr(i, condColIdx) <> conditions(j * 2 + 1) Then
                matchFlag = False
                Exit For
            End If
        Next j
        ' 所有条件匹配直接返回结果
        If matchFlag Then
            GetLookupData = dataArr(i, resultColIdx)
            Exit Function
        End If
    Next i
    
    ' 无匹配结果返回-1
    GetLookupData = -1
End Function

调用示例 #

和原函数完全兼容，同时支持动态扩展条件数量：

' 原3条件调用完全兼容
Debug.Print GetLookupData("Table1", "To", Array("From", "Bulgaria", "Cost", 200, "Currency", "USD"))

' 可直接扩展为4/5/N个条件调用，无需修改函数代码
Debug.Print GetLookupData("Table1", "To", Array("From", "Bulgaria", "Cost", 200, "Currency", "USD", "Date", #2024/1/1#))

逻辑说明 #

1. 先把整个结构化表的表头和数据一次性读入VBA内存数组，避免逐行访问单元格的性能损耗
2. 先定位要返回的结果列位置，再逐行遍历数据
3. 每行数据依次判断所有传入的条件是否全部满足，对应数组公式中多条件相乘等于1的逻辑
4. 找到第一个匹配行直接返回结果，找不到则返回-1

内容的提问来源于stack exchange，提问作者Vityata