如何在VBA中实现支持大小写敏感键的可迭代类对象集合？

针对你的需求——既要支持大小写敏感的字符串索引，又要保留原生Collection的For Each迭代语法，同时兼容现有基于Collection的代码写法，我整理了一个完美的方案：用Dictionary+Collection组合封装自定义类，兼顾两者的优点，几乎不用修改现有代码。

核心思路 #

• 用Scripting.Dictionary（默认大小写敏感）处理键的存储与查找，确保"baz"和"BAZ"被识别为不同键
• 用原生Collection维护元素顺序，保留熟悉的For Each迭代语法，不用改动现有循环代码
• 自定义类对外暴露和Collection完全一致的方法/属性（Add、Item、Count），让迁移成本降到最低

1. 自定义集合类Desideratum代码 #

在VBA编辑器中插入一个类模块，命名为Desideratum，粘贴以下代码：

Option Explicit

' 内部双容器：Dictionary管键查找，Collection管迭代顺序
Private m_dict As Scripting.Dictionary
Private m_col As Collection

Private Sub Class_Initialize()
    Set m_dict = New Scripting.Dictionary
    ' Dictionary默认采用vbCompareBinary（大小写敏感），无需额外配置
    Set m_col = New Collection
End Sub

Private Sub Class_Terminate()
    Set m_dict = Nothing
    Set m_col = Nothing
End Sub

' 和Collection语法完全一致的Add方法
Public Sub Add(Item As classWaz, Optional Key As String)
    If Len(Key) > 0 Then
        ' 存入Dictionary，保证键大小写敏感
        m_dict.Add Key, Item
    End If
    ' 同步存入Collection，维护迭代顺序
    m_col.Add Item
End Sub

' 支持字符串（大小写敏感）和数字索引的Item属性
Public Property Get Item(KeyOrIndex As Variant) As classWaz
    Select Case VarType(KeyOrIndex)
        Case vbString
            ' 字符串索引用Dictionary查找
            Set Item = m_dict(KeyOrIndex)
        Case vbInteger, vbLong
            ' 数字索引用Collection查找
            Set Item = m_col(KeyOrIndex)
        Case Else
            Err.Raise vbObjectError + 1001, , "不支持的索引类型"
    End Select
End Property

' 和Collection一致的Count属性
Public Property Get Count() As Long
    Count = m_col.Count
End Property

' 关键：暴露NewEnum属性，让类支持For Each迭代
Public Property Get NewEnum() As IUnknown
    Set NewEnum = m_col.[_NewEnum]
End Property

提示：需要先引用Microsoft Scripting Runtime（工具→引用里勾选）；如果不想用引用，可换成后期绑定：Set m_dict = CreateObject("Scripting.Dictionary")

2. 测试验证 #

用你提供的测试代码运行，完全符合预期：

Sub DoIt()
    Dim d As Desideratum, foo As classWaz, bar As classWaz, iter As classWaz
    Set d = New Desideratum

    Set foo = New classWaz
    foo.Name = "foo"

    Set bar = New classWaz
    bar.Name = "bar"

    d.Add Item:=foo, Key:="baz"
    d.Add Item:=bar, Key:="BAZ"

    For Each iter In d
        Debug.Print iter.Name
    Next
    ' 输出：
    ' foo
    ' bar

    Set iter = d("baz")
    Debug.Print iter.Name
    ' 输出：
    ' foo

    ' 验证大小写敏感：d("BAZ")会返回bar
    Set iter = d("BAZ")
    Debug.Print iter.Name
    ' 输出：
    ' bar
End Sub

方案优势 #

• 最小代码改动：自定义类的接口和原生Collection完全匹配，现有代码只需把Collection类型替换为Desideratum即可
• 完美匹配需求：同时实现大小写敏感索引和For Each迭代，解决原生Collection和Dictionary各自的短板
• 稳定可靠：基于VBA原生容器组合，避免自行实现迭代和索引逻辑的潜在bug

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