VBA中如何创建复合键Dictionary？现有代码报“键已存在”错误

错误原因 #

你的代码逻辑完全偏离了“同一行两列作为复合键”的需求：

• 嵌套循环For Each cell In nameRng + For Each cell2 In operRng会把每个A列值和所有B列值交叉配对，生成大量重复的A列单一键，只要A列有重复值就会触发"Key already exist"错误。
• 没有将同一行的A、B列值组合成复合键，根本没实现你要的“复合键唯一”的目标。

修正后的代码 #

Dim LstRw As Long
Dim Dict As Object
Dim i As Long

Set Dict = CreateObject("Scripting.Dictionary")
' 获取最后一行，确保三列范围一致
LstRw = Cells(Rows.Count, "A").End(xlUp).Row

' 按行遍历，组合同一行的A、B列作为复合键
For i = 2 To LstRw
    ' 用特殊分隔符（比如"|"）拼接A、B值，避免拼接后冲突
    Dim compositeKey As String
    compositeKey = Cells(i, "A").Value & "|" & Cells(i, "B").Value
    
    ' 先判断键是否存在，避免报错（可选，根据需求）
    If Not Dict.Exists(compositeKey) Then
        ' 这里把C列值作为字典的Item，可根据需求修改
        Dict.Add compositeKey, Cells(i, "C").Value
    End If
Next i

关键说明 #

• 复合键必须用唯一分隔符拼接，比如"|"，避免出现类似A列值"AB"+B列值"C"和A列值"A"+B列值"BC"拼接后结果相同的情况。
• 遍历行而非嵌套遍历列，确保只配对同一行的A、B值。
• 可以用Dict.Exists(compositeKey)提前判断键是否存在，避免报错，也可以根据需求覆盖已存在的键（用Dict(compositeKey) = 新值代替Add）。

内容的提问来源于stack exchange，提问作者Alexandre Barrère