VBA 中的字典中不存在数据

Question

我在 VBA 中创建了一个字典，如下所示：

Set Curr = CreateObject("Scripting.Dictionary")
For Index = 1 To NoOfCurr
   Curr.Add Cells(15 + Index, 5), Index
Next

创建字典后，我想检查字典中是否存在特定字符串。所以我是这样做的：

tempString = "USD"
itemInarry = IsInArray(tempString, Curr)

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
  IsInArray = arr.Exists(stringToBeFound)
End Function

但是IsInArray 的值为false。不知道为什么。需要一些关于为什么会发生这种情况的指导。

Answer 1

你得到 IsInArray = FALSE 的原因是你用 Range 对象作为键加载了字典，然后测试了字符串作为键的存在。

也许你的意思是Curr.Add Cells(15 + Index, 5).Value, Index

（请注意，如果单元格中的值不唯一，使用此方法会出现错误）

VBA 中的字典中不存在数据

Data doesn't exist in the dictionary in VBA

excel

vba

dictionary