VBA中IsInArray函数始终返回False问题排查求助

嘿，我一眼就瞅出你这个IsInArray函数一直返回False的问题所在了——你传给它的ilist是个二维数组，但函数的遍历逻辑完全没考虑这种情况！

为啥会这样？ #

当你把工作表里的一个区域（比如你这里的单行多列范围）直接赋值给Variant变量时，VBA默认会生成一个二维数组，结构是(1 To 行数, 1 To 列数)。你的ilist是从Sheets("B").Range("B1:" & lastColLetter & "1")拿的，所以它是个(1 To 1, 1 To N)的二维数组。

而你原来的IsInArray函数里，For Each element In arr会遍历二维数组的第一维（也就是行），所以element其实是一整行的元素组成的数组——拿一个数组和字符串i_number比，那肯定永远是False啊，数组和字符串根本不是一个类型！

两种快速修复方式 #

方式1：修改IsInArray函数，兼容二维数组

直接调整函数逻辑，既能处理你这种单行二维数组的场景，也能兼容一维数组，还加了数据类型转换和空格处理，避免因格式或隐形空格导致的不匹配：

Private Function IsInArray(valToBeFound As String, arr As Variant) As Boolean
    Dim element As Variant
    Dim col As Long
    
    ' 先判断是不是数组
    If Not IsArray(arr) Then
        IsInArray = (Trim(CStr(arr)) = Trim(valToBeFound))
        Exit Function
    End If
    
    ' 处理二维数组（不管单行还是多行）
    If UBound(arr, 2) > LBound(arr, 2) Then
        ' 遍历所有列（这里默认找第一行的内容，符合你的场景）
        For col = LBound(arr, 2) To UBound(arr, 2)
            ' 转成字符串并去空格，避免格式差异坑
            If Trim(CStr(arr(LBound(arr, 1), col))) = Trim(valToBeFound) Then
                IsInArray = True
                Exit Function
            End If
        Next col
    Else
        ' 处理一维数组的情况
        For Each element In arr
            If Trim(CStr(element)) = Trim(valToBeFound) Then
                IsInArray = True
                Exit Function
            End If
        Next element
    End If
End Function

方式2：把二维数组转成一维数组

如果你不想改函数，那就在赋值ilist的时候，用两次Application.Transpose把单行的二维数组转成一维数组，这样原来的IsInArray就能正常干活了：

' 替换你原来的ilist赋值代码
ilist = Application.Transpose(Application.Transpose(wb.Sheets("B").Range("B1:" & lastColLetter & "1")))

为啥要两次Transpose？因为第一次会把单行二维数组转成单列二维数组，第二次转完就变成一维数组啦，刚好适配你原来的遍历逻辑。

额外要注意的坑点 #

除了数组的问题，你还可以排查这几个地方：

• 数据类型匹配：确保i_number（字符串类型）和工作表里的ident值类型一致——比如如果工作表里的ident是数字，最好把i_number转成字符串再赋值：i_number = CStr(wb.Sheets("CAs").Range("B" & lrow).Value)。
• 隐形空格/特殊字符：有时候单元格内容看起来和字符串一样，但实际有前后空格或者看不见的特殊字符，所以加上Trim()处理绝对是个好习惯。
• 目标数组的正确性：调试时可以用Debug.Print Join(ilist, ", ")（转成一维数组后）或者手动遍历数组打印元素，确认ilist里确实有你要找的i_number。

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