如果存在VBA词典对象不起作用

问题描述

我正在将列中的元素与Excel VBA中的字典对象（ProjectList）进行比较。我正在打印调试窗口的键：

For Each X In ProjectList.Keys
    Debug.Print X,ProjectList(X)
Next X

它会打印一个密钥“ A123”。

我正在使用Exists函数查看词典中是否存在“ A123”：

X = "A123"

If ProjectList.exists(X) = False Then
    do something
end if

该过程不断进入“做某事”行，好像它在字典中找不到X一样，尽管它显然在其中，因为调试循环会将其打印出来。我在这里做错了什么？任何帮助表示赞赏！

解决方法

我在填充字典的部分中添加了一个修整语句。

For ThisRow = 2 To LastRow
    ProjectList.Add Key:=Trim(FSht.Cells(ThisRow,1)),Item:=ThisRow
Next ThisRow

我不知道为什么这样做有帮助，因为电子表格中的值没有空格，locals窗口没有空格...我完全困惑为什么这样做有效，但是确实有用。