Excel中VB自定义函数无法正常匹配数组内字符串与日期组合值的求助

现有代码的核心错误点 #

• 数组索引基准不匹配：从工作表单元格区域传入VBA的二维数组，默认以1作为行、列的起始索引，不存在索引为0的元素。原代码读取arr(x,0)、arr(x,1)会直接触发下标越界，或者读取到空值。
• 匹配逻辑完全偏离需求：原代码中两个匹配标记Found1、Found2一旦被设为True就不会重置，只要在整个数组的任意位置找到了目标字符串、任意位置找到了目标日期，就会判定匹配成功，完全没有校验两个值是否属于同一行。比如第1行的字符串和第3行的日期匹配，代码会直接返回True，和“同一行两个值完全一致才算匹配”的规则完全相悖。
• 语法错误：循环行的注释使用了双斜杠//，这不是VBA支持的注释格式，会直接触发编译错误，导致代码完全无法运行。
• 无提前退出机制：即便已经找到匹配行，代码也会遍历完整个传入的整列区域，计算效率极低；且没有显式设置无匹配时的返回值，存在隐式逻辑漏洞。
• 日期比对存在类型隐式转换风险：工作表取出的日期存储为双精度序列号，直接用=比对时，可能因为文本型日期、格式差异导致匹配失效。

修复后的可运行代码 #

Function IsInArray(stringToBeFound As String, ByVal dateToBeFound As Date, arr As Variant) As Boolean
    Dim rowIdx As Long
    ' 初始化默认返回值为未匹配
    IsInArray = False
    
    ' 非数组传入时直接退出，避免运行报错
    If Not IsArray(arr) Then Exit Function
    
    ' 按行遍历，适配不同起始索引的二维数组
    For rowIdx = LBound(arr, 1) To UBound(arr, 1)
        ' 逐行校验同行值的匹配状态
        Dim sameRowStrMatch As Boolean, sameRowDateMatch As Boolean
        ' 字符串列取数组第一列（对应引用区域左列）
        sameRowStrMatch = CStr(arr(rowIdx, LBound(arr, 2))) = stringToBeFound
        ' 日期列取数组第二列（对应引用区域右列），转序列号比对规避格式差异
        sameRowDateMatch = IsDate(arr(rowIdx, UBound(arr, 2))) And CDbl(arr(rowIdx, UBound(arr, 2))) = CDbl(dateToBeFound)
        
        ' 同一行两个值完全匹配，立即返回结果并退出循环
        If sameRowStrMatch And sameRowDateMatch Then
            IsInArray = True
            Exit Function
        End If
    Next rowIdx
End Function

使用注意事项 #

• 公式引用的区域必须和列的存储顺序匹配：使用现有公式=IsInArray(C6,D6,'Sheet2'!C:D)时，对应规则是C列存字符串值、D列存日期值，和代码中取列的逻辑完全匹配。如果Sheet2的C列存日期、D列存字符串，需要调整函数内的取值列顺序，或者调整公式的参数顺序。
• 修复后的逻辑完全匹配需求：只有同一行同时存在和目标字符串、目标日期完全一致的两个值时，才会返回True，其余情况全部返回False，和示例规则一致——数组最后一组为[string1][date1]时返回匹配成功，前两组值不完全匹配时返回False。
• 新增的提前退出机制会在匹配成功后直接停止遍历，不用跑完整张表的所有行，大幅降低整列引用带来的计算卡顿问题。

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