VBA中Collection的最大容量限制由什么因素决定？

我使用三层嵌套Collection存储Excel中的验证数据，结构为coll1(case)(subtype)(item)：

• 顶层：所有数据源（cases）的验证数据集合
• 第二层：单个case下的不同数据类型集合
• 第三层：对应数据类型的有效标签列表

输入数据是从Excel垂直单元格区域读取的唯一字符串列表，格式为\validation_data_class\case\type\label，通过Split()函数拆分为数组解析。相关代码如下：

Public tag_data As Collection

Private Sub load_tags(inp As Variant)
    Dim i As Long, label() As String
    Dim case_name As String, type_name As String, tag_name As String
    Dim tmp_coll As Collection, tmp_coll2 As Collection
    
    Set tag_data = New Collection
    
    For i = LBound(inp) To UBound(inp) ' Check this works if only one entry in the list - may need IsArray() check
        label = Split(inp(i, 1), "\")
        Select Case label(1)
        Case "tag"
            ' Extract the case name from the label and get its number, so we can store data in the right element of tag_data()
            case_name = label(2): If Not KeyExists(tag_data, case_name) Then Set tmp_coll = New Collection: tag_data.Add tmp_coll, case_name
            
            ' Extract the type name from the label and store it, if needed
            type_name = label(3): Set tmp_coll = tag_data(case_name)
            If Not KeyExists(tmp_coll, type_name) Then Set tmp_coll2 = New Collection: tmp_coll.Add tmp_coll2, type_name
            
            ' Extract the actual tag and store it in the list (assumes we have ensured no duplicates already)
            tag_name = label(4): Set tmp_coll = tag_data(case_name)(type_name)
            Debug.Assert i < 719
            tmp_coll.Add tag_name, tag_name

        Case "prop"
            ' Still to implement
        End Select
    Next i
End Sub

Function KeyExists(coll As Collection, key As String) As Boolean

    On Error GoTo ErrHandler

    IsObject (coll.Item(key))
    
    KeyExists = True
    Exit Function
ErrHandler:
    ' Do nothing
End Function

实际运行时遇到的问题：向最底层带键的Collection添加第719个元素时触发Debug.Assert并静默失败；如果不为该层设置键，则能成功添加721个元素。临时方案是不设键，但后续验证需要低效遍历查找，因此想了解VBA中Collection带键时的容量限制因素。

限制因素分析 #

• 哈希冲突累积：VBA Collection的键存储依赖哈希表实现，当元素数量接近哈希表的桶容量阈值时，哈希冲突的概率会大幅上升，导致新元素无法被正确映射存储，最终添加失败。而无键模式下只是线性存储，不存在哈希冲突问题。
• 内存占用差异：带键的Collection需要额外存储键的哈希值、键字符串本身以及索引映射关系，内存开销远高于无键集合。当内存分配达到VBA进程的局部限制时，带键集合会更早触及容量瓶颈。
• 底层实现的硬限制：VBA的Collection并非为大规模数据存储设计，带键存储时的内部哈希表桶数有硬编码上限。当元素数量接近这个上限时，无法继续添加带键元素；而无键模式下仅受限于进程内存，限制更宽松。

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