vba中字典循环时的报错_vba 数组字典被锁

'本错误/问题与字典相关, 因为如果是一般的for i=1 to X 这种循环未出现问题.
'同一个存在于某固定行数的For循环体系如果没跑完不能回到之前并继续进行同一个(存在于某固定行数)的循环, 否则报错
'该数组被固定或暂时锁定, 英文: This array is fixed or temporarily locked.
'如果是到了另一个For循环体系(不同行数), 虽然循环的内容一模一样, 但是不报错
Option Explicit

Sub Test()
Dim d, dK, i
Set d = CreateObject(“scripting.dictionary”)
d(1) = 2: d(2) = 3

'For Each dK In d.keys
'GoTo 100
'Next dK
100
Stop
'For i = 1 To 2
'GoTo 100
'Next i
For Each dK In d.keys
'GoTo 100
Next dK

End Sub