Excel VBA中使用Dictionary通过值获取键报错，求排查解决

错误原因 #

你用错了Scripting.Dictionary的Key方法——这个方法的作用是修改已存在的键的名称，参数必须是字典中已经存在的键，而不是值。你传入值"one"，但字典里没有这个键，所以会报错。

正确实现：通过值反向查找键 #

Scripting.Dictionary没有内置的反向查找方法，需要自己遍历字典的键集合来匹配对应的值，示例代码如下：

Dim myDictionary
Set myDictionary = CreateObject("Scripting.Dictionary")
myDictionary("a") = "one"
MsgBox myDictionary("a")         ' 正常运行

' 遍历键查找对应的值
Dim targetKey As Variant
For Each targetKey In myDictionary.Keys
    If myDictionary(targetKey) = "one" Then
        MsgBox targetKey ' 输出对应的键"a"
        Exit For ' 找到后退出循环，避免多余遍历
    End If
Next

补充说明 #

如果你的字典存在多个键对应同一个值的情况，可以去掉Exit For，把所有匹配的键收集到数组或另一个字典里。

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