遍历Dictionary键时提示Key变量未定义的VBA错误排查

嘿，这个问题我太熟悉了！咱们直接说核心原因：你代码里的Key变量根本没声明，而且现在你的VBA项目应该启用了Option Explicit（强制变量声明），这才导致之前能跑的代码现在报错了。

为什么会出现这个差异？ #

• 之前代码能运行：大概率是当时你的VBA模块没有开启Option Explicit，这时候VBA会自动把所有未声明的变量当作Variant类型处理，不会报错，但这是非常不安全的写法——比如你把变量名拼错了（比如写成Kye），VBA只会默默创建一个新变量，不会提醒你，很容易埋下bug。
• 现在报错：要么是你手动在模块顶部加了Option Explicit，要么是新建模块时默认开启了这个设置（现在很多VBA环境默认会开），它要求所有变量必须先声明才能使用，所以For Each Key In dic里的Key因为没声明，直接触发了“变量未定义”的错误。

快速解决办法 #

方案一：显式声明Key变量（强烈推荐） #

在代码的变量声明区域，给Key加上声明即可。因为Dictionary的Key可以是多种类型，用Variant最稳妥；如果你的Key都是字符串（比如ISIN码），也可以用String类型。

修改后的代码片段：

'Create output Array with relevant quantity of stocks held
Dim arrWIP
ReDim arrWIP(dic.Count, 1)
Dim j As Long
Dim Key As Variant ' 新增这行，声明Key变量
For Each Key In dic
    arrWIP(j, 0) = Key 'set ISIN
    For i = LBound(arr, 2) To UBound(arr, 2)
        If arr(1, i) = Key Then
            arrWIP(j, 1) = arrWIP(j, 1) + arr(3, i) 'update quantity
        End If
    Next i
    j = j + 1 'increase counter for arrWIP
Next Key

方案二：关闭Option Explicit（不推荐） #

如果你只是临时想让代码跑起来，可以在模块的最顶部删掉Option Explicit这一行。但真心不建议这么做——这种写法会让代码的可维护性大幅下降，后续很容易因为变量名拼写错误引发更难排查的问题。

额外小提示 #

你的代码最后一行Set dict = Nothing里的变量名拼错了，应该是Set dic = Nothing（和前面声明的dic对应），如果开启了Option Explicit，这个也会报错，记得一起修正哦！

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