总结

数组：适合处理固定大小、类型一致、需要快速访问的数据。

集合：适合动态增删、键值查找或混合类型数据。

根据具体需求选择合适的数据结构，可显著提升代码效率和可读性。

一、从仓库管理理解数据结构（场景化入门）

储物间模型：

• 数组 → 固定尺寸的储物柜（每个格子有固定编号）
• 集合 → 可伸缩的收纳箱（随意增减物品）
• 字典 → 带标签的储物盒（通过钥匙编号快速查找）

二、数组

2.1 基础操作

2.1.1.基本概念

• 数组是一组有序元素的集合，所有元素类型相同。
• 通过索引（从0或1开始）访问元素。
• 分为静态数组（固定大小）和动态数组（大小可变）。

2.1.2.声明与初始化

' 静态数组
Dim arrStatic(1 To 5) As Integer  ' 索引1到5
Dim arrStatic2(0 To 4) As String   ' 索引0到4

' 动态数组
Dim arrDynamic() As Variant
ReDim arrDynamic(1 To 3)  ' 初始化大小
ReDim Preserve arrDynamic(1 To 5)  ' 保留原有数据并扩展大小

2.1.3.常用操作

• 赋值与访问：

arrStatic(1) = 10 
MsgBox arrStatic(1)

• 遍历数组：

For i = LBound(arr) To UBound(arr) 
Debug.Print arr(i) Next i

• 多维数组：

Dim matrix(1 To 3, 1 To 3) As Integer 
matrix(2, 2) = 5

' ① 声明数组
Dim 成绩单(1 To 50) As Integer  ' 创建50个格子

' ② 填充数据
For i = 1 To 50
    成绩单(i) = Cells(i + 1, 2).Value
Next

' ③ 批量处理
For i = 1 To UBound(成绩单)
    成绩单(i) = 成绩单(i) + 5  ' 每人加5分
Next

' ④ 写回表格
Range("C2:C51").Value = Application.Transpose(成绩单)

• 动态数组：

Dim 动态数组() As Variant
' 自动匹配数据区域
动态数组 = Range("A1").CurrentRegion.Value
' 扩展数组
ReDim Preserve 动态数组(1 To 100, 1 To 5) 

2.2.优点与缺点

• 优点：
• 访问速度快（连续内存）。
• 适合存储固定数量或类型一致的数据。
• 缺点：
• 大小固定（静态数组）或调整麻烦（动态数组需用 ReDim Preserve）。
• 无法直接删除元素。

三、集合

3.1 基础操作

3.1.1.基本概念

• 集合是动态数据结构，可存储不同类型元素。
• 元素通过键（Key）或索引访问（索引从1开始）。
• 属于VBA内置对象，需先创建实例。

3.1.2.创建与基本操作

Dim coll As New Collection  ' 创建集合

' 添加元素（可指定键）
coll.Add "Apple", "Key1"   ' 元素值, 键（可选）
coll.Add 123
coll.Add Range("A1")

' 访问元素
MsgBox coll(1)          ' 通过索引（从1开始）
MsgBox coll("Key1")     ' 通过键

' 删除元素
coll.Remove 1           ' 删除索引为1的元素
coll.Remove "Key1"      ' 删除键为Key1的元素

' 遍历集合
Dim item As Variant
For Each item In coll
    Debug.Print item
Next item

3.1.3.常用属性和方法

• Count：返回集合元素数量。

Debug.Print coll.Count

• Exists函数（需自定义）：

Function IsKeyExists(coll As Collection, key As String) As Boolean 
    On Error Resume Next
    IsKeyExists = Not IsEmpty(coll(key)) 
    On Error GoTo 0 
End Function

3.2 典型应用场景

• 去除重复值（比Excel去重更快）
• 动态记录用户操作日志
• 管理不规则数据组

3.3 优点与缺点

• 优点：
• 动态增删元素。
• 支持键值对，查找方便。
• 可存储混合类型数据。
• 缺点：
• 访问速度慢于数组。
• 无法直接排序或批量操作。

四、数组 vs 集合：选择你的工具

五、五大实战案例

1.使用数组

' 快速处理单元格区域数据
Dim dataRange As Variant
dataRange = Range("A1:C10").Value  ' 读取到二维数组
For i = 1 To UBound(dataRange, 1)
    For j = 1 To UBound(dataRange, 2)
        dataRange(i, j) = dataRange(i, j) * 2
    Next j
Next i
Range("A1:C10").Value = dataRange

2.使用集合

' 管理动态项目列表
Dim tasks As New Collection
tasks.Add "Write code", "Task1"
tasks.Add "Test module", "Task2"
If IsKeyExists(tasks, "Task1") Then
    tasks.Remove "Task1"
End If

3.数组与集合的转换：

' 集合转数组 
Dim arr() As Variant 
ReDim arr(1 To coll.Count) 
For i = 1 To coll.Count 
    arr(i) = coll(i) 
Next i

4.筛选数组元素：

' 使用Filter函数（仅适用于一维数组） 
Dim names() As String 
names = Split("John,Mary,Paul", ",") 
Dim result() As 
String result = Filter(names, "J") ' 返回包含"J"的元素

案例1：数据清洗

Dim 数据池 As Variant
数据池 = Range("A1:G10000").Value  ' 1秒读取万行数据

For i = 1 To UBound(数据池, 1)
    ' 删除特殊字符
    数据池(i, 2) = Replace(数据池(i, 2), "#", "")
    ' 统一日期格式
    If IsDate(数据池(i, 3)) Then 
        数据池(i, 3) = Format(数据池(i, 3), "yyyy-mm-dd")
    End If
Next

Range("A1:G10000").Value = 数据池  ' 1秒写回

案例2：多表合并去重

Dim 总表 As New Collection
On Error Resume Next  ' 忽略重复报错

For Each ws In Worksheets
    For Each cell In ws.Range("A2:A1000")
        If cell <> "" Then 总表.Add cell.Value, CStr(cell.Value)
    Next
Next

' 导出唯一值
Range("H2").Resize(总表.Count).Value = Application.Transpose(总表)

六、避坑指南

6.1 常见错误表

6.2 安全操作规范

' 数组越界防护
If i <= UBound(数据数组) Then
    ' 安全操作代码
End If

' 集合存在性检查
Function 包含Key(集合 As Collection, Key As String) As Boolean
    On Error Resume Next
    包含Key = Not IsEmpty(集合(Key))
    On Error GoTo 0
End Function

七、调试实验室

7.1 立即窗口查看数组

' 输入查看命令
?Join(数据数组, ",")  ' 显示一维数组所有元素
?数据池(2,3)          ' 查看第二行第三列元素

7.2 可视化监视技巧
在VBA编辑器中：

1. 运行→添加监视
2. 输入变量名：数据池
3. 展开查看多维元素

下章预告：《函数与过程》