VBA报错：评估含函数的If语句时，函数调用需返回Variant/Object

报错原因分析 #

报错信息Function call on left-hand side of assignment must return Variant or Object while evaluating if statement with function的核心问题集中在函数内部的赋值错误、参数检查逻辑错误以及语法结构缺失：

1. 函数返回值赋值错误 #

函数定义名为isStringInFirstColumnOfMultidimensionalArray，但内部却给未定义的isStringInArray变量赋值（isStringInArray = True、isStringInArray = False）。VBA要求函数返回值必须通过函数名本身赋值，错误的变量名导致VBA无法识别函数返回逻辑，触发语法错误。

2. IsMissing函数使用不当 #

IsMissing仅对Variant类型的可选参数有效，而你的可选参数varToReceivePositionOfString声明为Integer类型，这会导致参数检查逻辑完全失效。

3. 代码语法结构不完整 #

在Else分支后缺少End If，破坏了代码的结构完整性，进一步加重语法错误。

修正后的完整函数代码 #

Public Function isStringInFirstColumnOfMultidimensionalArray( _
      stringToBeFound As String, arr As Variant, _
      Optional ByRef varToReceivePositionOfString As Variant) As Boolean
    Dim i As Long
    ' 初始化函数返回值为False
    isStringInFirstColumnOfMultidimensionalArray = False
    
    For i = LBound(arr) To UBound(arr)
        If arr(i, 1) = stringToBeFound Then
            ' 找到匹配项，设置返回值为True
            isStringInFirstColumnOfMultidimensionalArray = True
            ' 检查可选参数是否传入（Variant类型支持IsMissing检测）
            If Not IsMissing(varToReceivePositionOfString) Then
                varToReceivePositionOfString = i
            End If
            ' 找到后立即退出循环，提升效率
            Exit Function
        End If
    Next i
End Function

关键修正点说明 #

• 修复返回值赋值：将所有isStringInArray替换为函数名isStringInFirstColumnOfMultidimensionalArray，确保返回值正确关联到函数本身。
• 调整可选参数类型：把varToReceivePositionOfString改为Variant类型，让IsMissing函数可以正常检测参数是否被传入。
• 补全语法结构：在Else分支后添加End If，修复代码结构错误。
• 优化循环变量：将i声明为Long类型（避免数组元素过多时Integer溢出），并初始化函数返回值为False，逻辑更严谨。

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