VBA 集合操作：Collection 与 Dictionary

在VBA编程中，集合（Collection）和字典（Dictionary）都是用于存储和管理数据的容器。它们各有特点，适用于不同的应用场景。

Collection 对象

创建Collection对象：

Dim myCollection As Collection
Set myCollection = New Collection

基本操作

添加元素到集合：

myCollection.Add "第一个元素"  ' 默认键（位置）
myCollection.Add "第二个元素", "key2"  ' 自定义键

获取集合中的元素：

Dim item As String
item = myCollection(1)  ' 通过位置获取
item = myCollection("key2")  ' 通过键获取

删除元素：

myCollection.Remove 1  ' 删除第一个元素
myCollection.Remove "key2"  ' 通过键删除

检查元素是否存在：

On Error Resume Next
Dim exists As Boolean
exists = (Not myCollection("key2") Is Nothing)
On Error GoTo 0

Dictionary 对象

添加对Microsoft Scripting Runtime的引用：

1. 打开VBA编辑器
2. 点击"工具"菜单
3. 选择"引用"
4. 勾选"Microsoft Scripting Runtime"

创建Dictionary对象：

Dim myDict As Object
Set myDict = CreateObject("Scripting.Dictionary")

基本操作

添加键值对：

myDict.Add "key1", "值1"
myDict.Add "key2", "值2"

获取值：

Dim value As Variant
value = myDict("key1")  ' 通过键获取

检查键是否存在：

If myDict.Exists("key1") Then
    ' 键存在
End If

删除键值对：

myDict.Remove "key1"  ' 删除特定项
myDict.RemoveAll  ' 删除所有项

Dictionary的特有功能

获取数量：

Dim count As Integer
count = myDict.Count

获取所有键的数组：

Dim keys As Variant
keys = myDict.Keys

获取所有值的数组：

Dim values As Variant
values = myDict.Items

Collection 与 Dictionary 的比较

性能比较

执行查找操作时，Dictionary通常比Collection快得多，特别是对于大型数据集。

测量查找时间差异的代码示例：

Sub ComparePerformance()
    Dim col As Collection
    Dim dict As Object
    Dim i As Long
    Dim startTime As Double
    Dim endTime As Double
    Dim iterations As Long

    ' 初始化集合和字典
    Set col = New Collection
    Set dict = CreateObject("Scripting.Dictionary")

    ' 添加10000个元素
    For i = 1 To 10000
        col.Add "Item " & i
        dict.Add "Key" & i, "Item " & i
    Next i

    ' 测试Collection查找时间
    iterations = 1000
    startTime = Timer
    For i = 1 To iterations
        On Error Resume Next
        Dim item As Variant
        item = col(Int(Rnd * 10000) + 1)
        On Error GoTo 0
    Next i
    endTime = Timer
    Debug.Print "Collection查找时间: " & (endTime - startTime) & "秒"

    ' 测试Dictionary查找时间
    startTime = Timer
    For i = 1 To iterations
        If dict.Exists("Key" & (Int(Rnd * 10000) + 1)) Then
            Dim value As Variant
            value = dict("Key" & (Int(Rnd * 10000) + 1))
        End If
    Next i
    endTime = Timer
    Debug.Print "Dictionary查找时间: " & (endTime - startTime) & "秒"
End Sub

使用场景建议

何时使用Collection

1. 当只需要简单的列表存储，不需要通过键快速访问时
2. 当确定数据量很小（通常少于100项）时
3. 当无法添加额外引用（如某些受限环境）时

创建小型数据列表：

Dim weekdays As Collection
Set weekdays = New Collection
weekdays.Add "Monday"
weekdays.Add "Tuesday"
weekdays.Add "Wednesday"
weekdays.Add "Thursday"
weekdays.Add "Friday"
weekdays.Add "Saturday"
weekdays.Add "Sunday"

何时使用Dictionary

1. 当需要通过键快速查找数据时
2. 当数据集较大时（通常超过100项）
3. 当需要检查键是否存在时
4. 当需要存储键值对时

创建快速查找的映射表：

Dim countryCodes As Object
Set countryCodes = CreateObject("Scripting.Dictionary")

countryCodes.Add "US", "United States"
countryCodes.Add "CA", "Canada"
countryCodes.Add "MX", "Mexico"
countryCodes.Add "UK", "United Kingdom"

' 快速查找国家代码
Function GetCountryName(code As String) As String
    If countryCodes.Exists(code) Then
        GetCountryName = countryCodes(code)
    Else
        GetCountryName = "Unknown"
    End If
End Function

高级技巧与注意事项

Collection的高级操作

遍历Collection中的所有元素：

Dim item As Variant
For Each item In myCollection
    Debug.Print item
Next item

处理可能的错误：

On Error Resume Next
Dim item As Variant
item = myCollection(100)  ' 可能会超出范围
If Err.Number <> 0 Then
    Debug.Print "索引超出范围"
    Err.Clear
End If
On Error GoTo 0

Dictionary的高级操作

处理重复键的尝试：

Dim myDict As Object
Set myDict = CreateObject("Scripting.Dictionary")

' 设置比较方式
myDict.CompareMode = vbTextCompare  ' 不区分大小写比较

' 尝试添加重复键
myDict.Add "Key1", "Value1"
On Error Resume Next
myDict.Add "KEY1", "Value2"  ' 会被忽略（不区分大小写）
If Err.Number <> 0 Then
    Debug.Print "键已存在: " & Err.Description
    Err.Clear
End If
On Error GoTo 0

批量操作字典：

' 获取所有键
Dim keys As Variant
keys = myDict.Keys

' 获取所有值
Dim values As Variant
values = myDict.Items

' 遍历字典
Dim key As Variant
For Each key In myDict.Keys
    Debug.Print key & ": " & myDict(key)
Next key

性能优化建议

1. 避免在循环中频繁添加或删除元素

2. 预先分配Dictionary容量（如果可能）：

   Dim myDict As Object
   Set myDict = CreateObject("Scripting.Dictionary")
   myDict.CompareMode = vbTextCompare

3. 使用适当的数据类型：对于已知类型的键和值，使用特定类型而非Variant可以提高性能

实际应用案例

案例1：使用Collection处理简单列表

创建一个任务列表并按顺序处理：

Sub ProcessTasks()
    Dim tasks As Collection
    Set tasks = New Collection

    ' 添加任务
    tasks.Add "设计界面"
    tasks.Add "实现功能"
    tasks.Add "测试代码"
    tasks.Add "部署应用"

    ' 按顺序处理每个任务
    Dim i As Long
    For i = 1 To tasks.Count
        Debug.Print "正在处理任务 " & i & ": " & tasks(i)
        ' 这里添加实际的任务处理代码
    Next i
End Sub

案例2：使用Dictionary实现快速查找

创建一个员工ID到姓名的映射，并快速查找员工信息：

Sub FindEmployee()
    Dim employees As Object
    Set employees = CreateObject("Scripting.Dictionary")

    ' 填充员工数据
    employees.Add "E001", "张三"
    employees.Add "E002", "李四"
    employees.Add "E003", "王五"

    ' 查找员工
    Dim empId As String
    empId = "E002"

    If employees.Exists(empId) Then
        Debug.Print "员工ID " & empId & " 的姓名是: " & employees(empId)
    Else
        Debug.Print "未找到ID为 " & empId & " 的员工"
    End If
End Sub

案例3：结合使用Collection和Dictionary

创建一个按类别组织的项目管理系统：

Sub ProjectManagement()
    ' 使用Dictionary存储类别
    Dim categories As Object
    Set categories = CreateObject("Scripting.Dictionary")

    ' 为每个类别创建Collection存储项目
    categories.Add "开发", New Collection
    categories.Add "测试", New Collection
    categories.Add "设计", New Collection

    ' 添加项目
    categories("开发").Add "用户认证模块"
    categories("开发").Add "数据库设计"
    categories("测试").Add "单元测试"
    categories("设计").Add "UI界面设计"

    ' 显示所有项目
    Dim catName As Variant
    For Each catName In categories.Keys
        Debug.Print "类别: " & catName
        Dim item As Variant
        For Each item In categories(catName)
            Debug.Print "  - " & item
        Next item
    Next catName
End Sub