求支持数组作为键、具备O(1)性能的类字典对象（Excel场景）

你遇到的问题很典型——VBA的Scripting.Dictionary确实只支持能被哈希的基本类型（比如字符串、数字）作为键，数组或者自定义对象默认按引用比较，没法直接当键用。不过有几种简单且能保持O(1)查找性能的方案，最实用的是多键拼接成唯一字符串，另外还有自定义类辅助的方案，下面详细说明：

方案1：拼接多键为唯一字符串（最推荐） #

这是最简单高效的方法，核心思路是把三个键列的值用一个不会出现在键内容中的分隔符拼接成单个字符串，用这个字符串作为字典的键。只要分隔符选得合适，就能保证每个多键组合对应唯一的字符串，完全满足需求，而且字典的查找/插入性能依然是O(1)。

示例代码（从ListObject读取数据） #

Sub BuildMultiKeyDictFromListObject()
    Dim targetSheet As Worksheet
    Dim dataTable As ListObject
    Dim keyDict As Object
    Dim tableRow As ListRow
    Dim combinedKey As String
    ' 选一个不会在KeyCol1/KeyCol2/KeyCol3中出现的分隔符，比如竖线|或者空字符Chr(0)
    Const KEY_DELIMITER As String = "|"
    
    ' 初始化对象（替换成你的工作表和ListObject名称）
    Set targetSheet = ThisWorkbook.Worksheets("YourSheetName")
    Set dataTable = targetSheet.ListObjects("YourTableName")
    Set keyDict = CreateObject("Scripting.Dictionary")
    
    ' 遍历ListObject的每一行，构建字典
    For Each tableRow In dataTable.ListRows
        ' 拼接三个键列的值
        combinedKey = tableRow.Range(dataTable.ListColumns("KeyCol1").Index).Value & KEY_DELIMITER & _
                      tableRow.Range(dataTable.ListColumns("KeyCol2").Index).Value & KEY_DELIMITER & _
                      tableRow.Range(dataTable.ListColumns("KeyCol3").Index).Value
        
        ' 添加到字典（直接赋值会自动处理新增/覆盖）
        keyDict(combinedKey) = tableRow.Range(dataTable.ListColumns("ValueCol1").Index).Value
    Next tableRow
    
    ' 测试查找功能
    Dim testKey As String
    testKey = "Chevy|Lumina|2003"
    If keyDict.Exists(testKey) Then
        Debug.Print "找到对应值：" & keyDict(testKey) ' 输出 $75
    Else
        Debug.Print "未找到该键"
    End If
End Sub

注意事项 #

• 如果你的键值里可能包含竖线|，可以改用**空字符Chr(0)**作为分隔符，因为正常文本内容几乎不会出现这个字符，能彻底避免键冲突。
• 拼接字符串的操作非常快，不会影响字典的O(1)性能特性。

方案2：自定义类封装多键（适合特殊场景） #

如果因为某些原因不能用字符串拼接（比如键内容包含所有可能的分隔符），可以创建一个自定义类来封装三个键，然后通过生成唯一哈希值的方式作为字典的键。不过这个方案比字符串拼接复杂，一般只在特殊场景下使用。

步骤： #

1. 插入一个类模块，命名为MultiKey，添加以下代码：

Public Key1 As Variant
Public Key2 As Variant
Public Key3 As Variant

' 生成唯一哈希字符串（本质还是拼接，只是封装在类里）
Public Function GetHashKey() As String
    Const DELIMITER As String = Chr(0)
    GetHashKey = Key1 & DELIMITER & Key2 & DELIMITER & Key3
End Function

2. 然后在主代码中使用这个类：

Sub UseCustomClassForDict()
    Dim targetSheet As Worksheet
    Dim dataTable As ListObject
    Dim keyDict As Object
    Dim tableRow As ListRow
    Dim multiKey As MultiKey
    
    Set targetSheet = ThisWorkbook.Worksheets("YourSheetName")
    Set dataTable = targetSheet.ListObjects("YourTableName")
    Set keyDict = CreateObject("Scripting.Dictionary")
    
    For Each tableRow In dataTable.ListRows
        Set multiKey = New MultiKey
        multiKey.Key1 = tableRow.Range(dataTable.ListColumns("KeyCol1").Index).Value
        multiKey.Key2 = tableRow.Range(dataTable.ListColumns("KeyCol2").Index).Value
        multiKey.Key3 = tableRow.Range(dataTable.ListColumns("KeyCol3").Index).Value
        
        ' 用类生成的哈希字符串作为键
        keyDict(multiKey.GetHashKey()) = tableRow.Range(dataTable.ListColumns("ValueCol1").Index).Value
    Next tableRow
    
    ' 测试查找
    Set multiKey = New MultiKey
    multiKey.Key1 = "Chevy"
    multiKey.Key2 = "Lumina"
    multiKey.Key3 = 2003
    If keyDict.Exists(multiKey.GetHashKey()) Then
        Debug.Print "找到对应值：" & keyDict(multiKey.GetHashKey())
    End If
End Sub

为什么不推荐Collection？ #

很多人会想到用Collection，但Collection的查找是线性遍历（O(n)），当数据量较大时性能会明显下降，不符合你要求的O(1)性能，所以不推荐。

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