VBA调用WorksheetFunction.MATCH布尔逻辑时出现类型不匹配错误

问题根因 #

原VBA代码触发类型不匹配的核心原因有三点：

• VBA不支持直接通过多单元格区域 = 单个值的写法生成布尔值数组，这种写法在VBA里只会返回单个布尔值（仅对比区域左上角单元格和目标值），无法作为INDEX函数的数组参数传入
• MATCH函数的查找值传入了字符串类型的"TRUE"，但公式运算返回的匹配目标是布尔类型的True，二者类型不一致
• 原代码未做无匹配场景的错误处理，当组合框选中值不存在于Answer列时也会直接抛出运行错误

可用修复代码 #

方案1：Evaluate复刻工作表公式（写法最简洁） #

直接调用工作表的公式计算引擎，还原你原本在单元格里可用的公式逻辑，只需要把公式里引用当前行的[@Answer]替换为组合框的选中值即可：

Private Sub ShowMeQues_Click()
    Dim ws1 As Worksheet
    Dim calcResult As Variant
    
    Set ws1 = Sheets("Information")
    
    ' 拼接公式字符串，文本值需要用双引号包裹
    calcResult = ws1.Evaluate( _
        "INDEX(TBQA[Question],MATCH(TRUE,INDEX(TBQA[Answer]=""" & TBABox.Value & """,0),0))")
    
    If Not IsError(calcResult) Then
        MsgBox calcResult
    Else
        MsgBox "未找到匹配的问题内容", vbExclamation
    End If
End Sub

注意：这里用ws1.Evaluate而不是Application.Evaluate，可以保证结构化表引用的作用域正确，不会因为当前活动工作表不是Information表导致引用失败。

方案2：遍历结构化表匹配（兼容性最强） #

直接通过VBA的ListObject对象操作结构化表，不需要依赖工作表公式计算，不会出现数组运算的类型问题：

Private Sub ShowMeQues_Click()
    Dim ws1 As Worksheet
    Dim tbQA As ListObject
    Dim targetAnswer As String
    Dim listRow As ListRow
    Dim questionText As String
    
    Set ws1 = Sheets("Information")
    Set tbQA = ws1.ListObjects("TBQA")
    targetAnswer = TBABox.Value
    questionText = ""
    
    ' 遍历结构化表所有行，匹配Answer列的值
    For Each listRow In tbQA.ListRows
        If listRow.Range(1, tbQA.ListColumns("Answer").Index).Value = targetAnswer Then
            questionText = listRow.Range(1, tbQA.ListColumns("Question").Index).Value
            Exit For ' 找到第一个匹配项后终止遍历
        End If
    Next listRow
    
    If questionText <> "" Then
        MsgBox questionText
    Else
        MsgBox "未找到匹配的问题内容", vbExclamation
    End If
End Sub

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