使用CStr处理键时VBA Dictionary条目重复问题排查

在修复涉及数组与Scripting.Dictionary的VBA代码时，使用CStr处理键时出现条目“重复”的异常，已采用替代方案，现针对以下问题做分析：

问题列表 #

• 当前方案：填充Dictionary后Count为267，但执行第二个循环填充dep数组后，dict.Count变为533；
• 旧方案：仅完成Dictionary填充循环后，dict.Count就比预期多1；
• VBE调试时为何会同时显示字符串型和双精度型（Double）的键？

附代码示例与数据源 #

旧方案代码 #

Sub OldDictProcess()
    Dim dict As New Scripting.Dictionary
    Dim rawArr As Variant
    rawArr = Sheet1.Range("A2:C268").Value ' 数据源范围
    
    Dim i As Long
    For i = 1 To UBound(rawArr)
        ' 未强制统一键类型，直接使用单元格原始值
        Dim keyVal As Variant
        keyVal = rawArr(i, 1)
        If Not dict.Exists(keyVal) Then
            dict.Add keyVal, rawArr(i, 3)
        End If
    Next i
    Debug.Print "旧方案填充后Count：" & dict.Count ' 比预期多1
End Sub

当前方案代码 #

Sub CurrentDictProcess()
    Dim dict As New Scripting.Dictionary
    Dim rawArr As Variant, depArr() As String
    rawArr = Sheet1.Range("A2:C268").Value
    
    ' 第一个循环：填充字典，用CStr统一键类型
    Dim i As Long
    For i = 1 To UBound(rawArr)
        Dim keyStr As String
        keyStr = CStr(rawArr(i, 1))
        If Not dict.Exists(keyStr) Then
            dict.Add keyStr, rawArr(i, 3)
        End If
    Next i
    Debug.Print "填充后初始Count：" & dict.Count ' 输出267
    
    ' 第二个循环：填充dep数组
    ReDim depArr(1 To dict.Count)
    Dim j As Long, key As Variant
    j = 1
    For Each key In dict.Keys
        depArr(j) = dict(key)
        ' 错误点示例：如果此处误操作添加了原始数值类型的键
        ' dict.Add rawArr(j, 1), depArr(j)
        j = j + 1
    Next key
    Debug.Print "填充数组后Count：" & dict.Count ' 输出533
End Sub

数据源截图

问题分析与解决 #

1. 填充数组后Count翻倍 #

核心原因是第二个循环中重复插入了不同类型的键。Scripting.Dictionary对键的类型严格区分，比如字符串"123"和数值123会被视为两个不同的键。如果第二个循环中误将原始数值类型的键重新添加到字典（比如代码中不小心执行了dict.Add rawArr(j,1), ...），就会导致原有字符串键保留，同时新增一批数值键，Count直接翻倍。

解决：检查第二个循环的逻辑，确保没有重复添加键的操作；如果需要修改字典值，直接用dict(key) = newValue，而非Add方法。

2. 旧方案填充后Count多1 #

大概率是存在空值/空字符串键，或者循环边界错误。比如数据源中存在空白单元格，直接取单元格值时会得到空变体，CStr处理后变成空字符串""，被作为独立键插入；或者循环范围多包含了一行空白行，导致多添加了一个空键。

解决：在旧方案中添加空值判断，比如If keyVal <> "" And Not dict.Exists(keyVal) Then；同时检查循环的上下界是否与数据源范围匹配。

3. 调试时同时显示字符串和Double类型的键 #

Scripting.Dictionary的键区分数据类型，相同值但不同类型的键会被视为独立条目。出现这种情况，说明代码中部分键用CStr转成了字符串，部分直接使用了原始的Double类型数值。比如数据源中部分单元格是数值格式（返回Double），部分是文本格式（返回字符串），旧方案中直接用单元格值作为键，就会导致字典中同时存在两种类型的键。

解决：统一键的类型，所有键都用CStr转成字符串，或者用CDbl转成数值，确保类型一致。

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