VBA中如何将字符串数组元素与Excel工作表单元格区域值进行对比

问题根因及修复方案 #

1. 确认数组下标匹配

VBA 中Dictionary.Keys返回的数组默认是0起始下标，首先要确保你的循环变量valCounter2从0开始遍历，最大值取UBound(result)，不要默认从1开始计数，否则会出现下标越界或者取到非预期值的情况。
遍历数组的标准写法参考：

Dim valCounter2 As Long
' 遍历字典返回的全量姓名数组
For valCounter2 = LBound(result) To UBound(result)
    ' 此处放你遍历行的逻辑
Next valCounter2

2. 强制转换两边值为字符串对比

避免单元格值为数字、空值等类型和数组内的字符串类型不匹配，对比时统一转成字符串：

If CStr(Range("CX" & CStr(LSearchRow)).Value) = CStr(result(valCounter2)) Then

3. 可选：去除两端空白避免匹配失败

如果单元格或数组内的姓名存在首尾空格的情况，对比前加Trim处理：

If Trim(CStr(Range("CX" & CStr(LSearchRow)).Value)) = Trim(CStr(result(valCounter2))) Then

完整参考逻辑

' 提取字典键为数组
Dim result As Variant
result = dic.Keys

Dim valCounter2 As Long
Dim LSearchRow As Long
' 外层遍历所有姓名
For valCounter2 = LBound(result) To UBound(result)
    LSearchRow = 2
    ' 内层遍历表格行
    While Len(Range("A" & CStr(LSearchRow)).Value) > 0
        If Trim(CStr(Range("CX" & CStr(LSearchRow)).Value)) = Trim(CStr(result(valCounter2))) Then
            ' 匹配成功后的逻辑写在这里
            Debug.Print "第" & LSearchRow & "行匹配到姓名：" & result(valCounter2)
        End If
        LSearchRow = LSearchRow + 1
    Wend
Next valCounter2

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