VBA实现多列IF判断与VLOOKUP查询的需求求助

嘿，我完全懂你的困扰！咱们来一步步搞定这个需求～先把你的需求再明确下，避免理解偏差：

• 当Table1里所有单元格都是FALSE时，输出列填0
• 当Table1里至少有一个TRUE时，找到这个TRUE对应的Table2位置，返回该位置的数值（也就是1或者3）

我先给你两种解决方案，一种是直接用Excel公式（不用写代码），另一种是VBA自定义函数（方便你复用），你可以选适合自己的：

方案一：Excel公式实现（无需VBA） #

假设你的Table1是A1:C3，Table2是E1:G3，输出单元格是最后一个结果单元格，可以用这个公式：

=IF(COUNTIF(A1:C3,TRUE)=0,0,INDEX(E1:G3,SUMPRODUCT((A1:C3=TRUE)*ROW(A1:C3))-ROW(A1)+1,SUMPRODUCT((A1:C3=TRUE)*COLUMN(A1:C3))-COLUMN(A1)+1))

公式说明： #

1. COUNTIF(A1:C3,TRUE)=0：检查Table1里有没有TRUE，没有的话直接返回0
2. SUMPRODUCT(...)：定位第一个出现TRUE的单元格的行号和列号，转换成Table2里的相对位置
3. INDEX(E1:G3,...)：根据定位到的位置，提取Table2里对应的数值

如果Table1里有多个TRUE，这个公式会返回第一个出现的TRUE对应Table2的值，如果你需要其他逻辑（比如返回所有对应值的和/最大值），随时告诉我调整～

方案二：VBA自定义函数（适合频繁复用） #

如果你需要更灵活的控制，或者要在多个地方重复使用这个逻辑，写个VBA自定义函数就很方便：

步骤1：打开VBA编辑器 #

按下Alt + F11打开VBA编辑器，右键点击你的工作簿名称 → 插入 → 模块

步骤2：粘贴以下代码 #

Function GetOutput(table1 As Range, table2 As Range) As Integer
    Dim cell As Range
    Dim hasTrue As Boolean
    hasTrue = False
    
    ' 遍历Table1的每个单元格，查找第一个TRUE
    For Each cell In table1
        If cell.Value = True Then
            ' 取Table2中对应位置的数值
            GetOutput = table2.Cells(cell.Row - table1.Row + 1, cell.Column - table1.Column + 1).Value
            hasTrue = True
            Exit For ' 找到第一个TRUE就停止遍历，提升效率
        End If
    Next cell
    
    ' 如果没有找到任何TRUE，返回0
    If Not hasTrue Then
        GetOutput = 0
    End If
End Function

步骤3：使用自定义函数 #

回到Excel界面，在输出单元格里输入：

=GetOutput(Table1的区域, Table2的区域)

比如你的Table1是A1:C3，Table2是E1:G3，就输入=GetOutput(A1:C3, E1:G3)，回车就能得到结果啦！

自定义函数说明： #

• 这个函数会自动遍历Table1，找到第一个TRUE的位置，然后返回Table2对应位置的数值
• 如果Table1全是FALSE，直接返回0
• 如果你需要处理多个TRUE的情况（比如返回所有对应值的和），可以去掉代码里的Exit For，再加个累加逻辑就行

备注：内容来源于stack exchange，提问作者Rax