vba - 错误 该键已与该集合的元素关联

Question

我正在研究 vba 宏。我试图使用字典。但它给出了错误457，调试器指向toprow.Add ActiveCell.value, val。有人可以告诉这个问题吗？我什至使用了Cstr(activecell.value), Cstr(val)，如类似问题的答案之一中提到的。

Dim toprow As New Dictionary, Dictkey As Variant
Dim val As String

Range("A1").Activate 
i = 0
Do Until i = ColLen
    val = Chr(65 + i)
    toprow.Add ActiveCell.value, val
    i = i + 1
    ActiveCell.Offset(0, 1).Activate
Loop

Answer 1

Add仅当键尚不存在时才可以使用字典对键进行操作。您之前可能不小心输入了 key ，或者您是 watching使用调试观察器的 key ，立即创建 key 。 (=如果您查看字典中的某个键，如果它尚不存在，则会创建该键)。

你必须

• 确保您没有使用调试器查看 key
• 通过在 d.Exists(keyname) 上进行测试来创建唯一条目然后使用d.Add keyname, value方法
• 或者，您可以默认使用 d.Item(keyname) = value 覆盖现有 key 。