我正在使用MS Runtime Scripting库中的Dictionary类来存储标签将用于报告模板的位置。有没有办法迭代该字典中的所有键值对,就像在Python中一样?我只想使用密钥作为行号(这一切都在A列中),值将是标签头。
类似的东西:
For Each key in dict
Range("A" & key).Value = dict(key)
Next key
答案 0 :(得分:101)
尝试:
For Each varKey In oDic.Keys()
Range("A" & varKey).Value = oDic(varKey)
Next
请注意,密钥迭代器必须声明为Variant
。