编写脚本。字典在不使用字典的情况下添加项目。添加-BUG?

编写脚本。字典喜欢在你查找值的时候无缘无故地添加值!用30秒的示例演示:

创建新工作表并填写 A1:A4 = {1,2,3,4}

插入新的vba模块并添加此代码

Public Sub test()

    Dim rowIndex As Integer
    '
    Dim dict As Scripting.Dictionary
    Set dict = New Scripting.Dictionary

    For rowIndex = 1 To 4

        dict.Add Trim(Sheet1.Cells(rowIndex, 1).Value), rowIndex

        Dim notEvenAddingSoWhyAreYouAdding As Variant
        notEvenAddingSoWhyAreYouAdding = dict(Sheet1.Cells(rowIndex, 1).Value)

    Next rowIndex

End Sub

在上放置断点 Next rowIndex

运行sub并检查 dict . 它现在有两个值, "1" 和 1 ,如下图所示:

什么这个地狱

我意识到我有 Trim(...) 中的函数 dict.Add() 行,这意味着有两个不同的键在使用,但为什么它在执行查找时会添加额外的值?!这毫无意义-现在 dict.Count 不会给我期望的价值。