VBA中数组值与单元格值匹配失败问题求助

问题描述 #

• 在用户身份验证权限控制流程中，尝试将数组值与单元格值匹配时失败，二者视觉上均为"16589455"，但实际从单元格读取的CurrentUser包含空格（调试输出可确认），导致匹配不成立。
• 单元格值：ThisWorkbook.Worksheets(DATASheet).Cells(1, 52).value = "16589455"
• 调试显示数组元素UserId(1)为"16589455"，但CurrentUser存在隐形空格。

解决方案 #

核心是清除CurrentUser中的空白字符，可选择以下两种处理方式：

• 基础空格清除：用Trim函数去除字符串首尾的空格
• 彻底清除隐形空白：结合Clean和Trim函数，清除包括换行、制表符在内的所有非打印字符及首尾空格

修改后的代码 #

Sub ClientSegregation()
    Call Globalvariables
    
    Dim UserID
        UserID = Array("14526398", "16589455", "16598785", "12658744", "12658746", "15987456", "14896523", "16589564", "13658794", "18991548", "11122233")
    
    Dim ws, wsDest As Worksheet
    Dim wbk2, wbk1 As Workbook
    Dim lastRow, LastColumn As Long
    Dim WS_Count, i As Integer
    Dim cel, CellOfValue As Range
    
    'Dynamic references
    BackwardPath = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
    inputpath = BackwardPath & "\Models_Inputs"
    LastColumn = Cells(88, Columns.Count).End(xlToLeft).Column
    
    fileStr = inputpath & "\Database.xlsx"
    Set wbk1 = ThisWorkbook
    Set wbk2 = Workbooks.Open(fileStr)
    
    ' 清除CurrentUser中的空白字符，二选一即可
    ' 方式1：仅去除首尾空格
    CurrentUser = Trim(ThisWorkbook.Worksheets(DATASheet).Cells(1, 52).Value)
    ' 方式2：清除所有非打印字符+首尾空格（更彻底）
    ' CurrentUser = Trim(Clean(ThisWorkbook.Worksheets(DATASheet).Cells(1, 52).Value))
    
    For i = 0 To UBound(UserID)
        If UserID(i) = CurrentUser Then
            MsgBox "OK"
        End If
    Next i
    
End Sub

额外验证建议 #

调试时可添加以下代码，通过长度差异确认空白字符是否被清除：

Debug.Print "CurrentUser长度：" & Len(CurrentUser)
Debug.Print "数组元素长度：" & Len(UserID(1))

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