在 VBA（Visual Basic for Applications）中，ArrayList 是一个动态数组对象，它提供了比普通 VBA 数组更强大的功能。ArrayList 是 .NET Framework 的一部分，可以通过 VBA 引用 mscorlib.dll 来使用。它允许你动态地添加、删除、排序和查找元素，而无需手动管理数组的大小。

ArrayList 的特点

1. 动态大小：无需预先定义大小，可以随时添加或删除元素。
2. 灵活的操作：支持添加、删除、插入、排序、查找等操作。
3. 支持多种数据类型：可以存储不同类型的数据（如字符串、数字、对象等）。
4. 索引访问：可以通过索引访问元素（从 0 开始）。

如何使用 ArrayList

要使用 ArrayList，需要先引用 mscorlib.dll 库。以下是具体步骤：

1. 引用 mscorlib.dll

1. 打开 VBA 编辑器（按 Alt + F11）。
2. 点击菜单栏的 工具 > 引用。
3. 在弹出的对话框中，找到并勾选 mscorlib.dll。
4. 点击 确定。

2. 创建 ArrayList 对象

Dim myList As Object
Set myList = CreateObject("System.Collections.ArrayList")

ArrayList 的常用方法

以下是 ArrayList 的常用方法：

示例代码

以下是一个完整的示例，展示如何使用 ArrayList：

Sub ArrayListExample()
    Dim myList As Object
    Set myList = CreateObject("System.Collections.ArrayList")

    ' 添加元素
    myList.Add "Apple"
    myList.Add "Banana"
    myList.Add "Cherry"

    ' 插入元素
    myList.Insert 1, "Orange" ' 在索引 1 的位置插入 "Orange"

    ' 删除元素
    myList.Remove "Banana" ' 删除 "Banana"

    ' 排序
    myList.Sort

    ' 反转
    myList.Reverse

    ' 输出 ArrayList 的内容
    Dim i As Long
    For i = 0 To myList.Count - 1
        Debug.Print myList.Item(i)
    Next i

    ' 检查是否包含某个元素
    If myList.Contains("Apple") Then
        Debug.Print "ArrayList 包含 Apple"
    Else
        Debug.Print "ArrayList 不包含 Apple"
    End If

    ' 清空 ArrayList
    myList.Clear
    Debug.Print "ArrayList 已清空，元素数量：" & myList.Count
End Sub

代码解释

1. 创建 ArrayList：
2. 使用 CreateObject("System.Collections.ArrayList") 创建 ArrayList 对象。
3. 添加元素：
4. 使用 Add 方法添加元素到 ArrayList 中。
5. 插入元素：
6. 使用 Insert 方法在指定位置插入元素。
7. 删除元素：
8. 使用 Remove 方法删除指定元素。
9. 排序和反转：
10. 使用 Sort 方法对元素进行排序，使用 Reverse 方法反转元素顺序。
11. 遍历元素：
12. 使用 For 循环遍历 ArrayList 中的元素。
13. 检查元素：
14. 使用 Contains 方法检查 ArrayList 是否包含某个元素。
15. 清空 ArrayList：
16. 使用 Clear 方法清空 ArrayList 中的所有元素。

运行结果

运行代码后，Debug.Print 输出如下：

Cherry
Orange
Apple
ArrayList 包含 Apple
ArrayList 已清空，元素数量：0

ArrayList 与普通 VBA 数组的对比

下面让我们通过一个实际案例 来详细说明如何使用 VBA 中的 ArrayList。这个案例将结合 动态数据处理、条件筛选 和 数据统计，模拟一个实际业务场景。

案例背景

假设你是一家电商公司的数据分析师，负责分析订单数据。你需要完成以下任务：

1. 从 Excel 表格中读取订单数据。
2. 使用 ArrayList 存储订单数据。
3. 按 产品类别 筛选订单，并统计每个类别的 总销售额 和 订单数量。
4. 将统计结果输出到新的 Excel 表格中。

数据表格

1. 订单数据表（Orders）

2. 目标表（Summary）

目标

编写 VBA 代码，完成以下任务：

1. 从订单数据表中读取数据，并存储到 ArrayList 中。
2. 按产品类别筛选订单，统计每个类别的总销售额和订单数量。
3. 将统计结果输出到目标表中。

VBA 代码

以下是完整的 VBA 代码，结合 ArrayList 实现上述功能：

Sub AnalyzeOrdersWithArrayList()
    Dim wsOrders As Worksheet, wsSummary As Worksheet
    Dim ordersList As Object ' 用于存储订单数据的 ArrayList
    Dim categorySales As Object ' 用于存储每个类别的总销售额
    Dim categoryCount As Object ' 用于存储每个类别的订单数量
    Dim i As Long
    Dim currentCategory As String, currentSales As Double
    Dim uniqueCategories As Object ' 用于存储唯一的产品类别

    ' 设置工作表
    Set wsOrders = ThisWorkbook.Sheets("Orders")
    Set wsSummary = ThisWorkbook.Sheets("Summary")

    ' 初始化 ArrayList 和 Dictionary 对象
    Set ordersList = CreateObject("System.Collections.ArrayList")
    Set categorySales = CreateObject("Scripting.Dictionary")
    Set categoryCount = CreateObject("Scripting.Dictionary")
    Set uniqueCategories = CreateObject("System.Collections.ArrayList")

    ' 读取订单数据到 ArrayList
    Dim lastRow As Long
    lastRow = wsOrders.Cells(wsOrders.Rows.Count, 1).End(xlUp).Row
    For i = 2 To lastRow ' 假设数据从第 2 行开始
        Dim order As Variant
        order = Array(wsOrders.Cells(i, 1).Value, wsOrders.Cells(i, 2).Value, wsOrders.Cells(i, 3).Value)
        ordersList.Add order
    Next i

    ' 遍历订单数据，统计每个类别的总销售额和订单数量
    For i = 0 To ordersList.Count - 1
        currentCategory = ordersList(i)(1) ' 产品类别
        currentSales = ordersList(i)(2) ' 销售额

        ' 如果类别不存在，初始化统计值
        If Not categorySales.Exists(currentCategory) Then
            categorySales(currentCategory) = 0
            categoryCount(currentCategory) = 0
            uniqueCategories.Add currentCategory
        End If

        ' 累加销售额和订单数量
        categorySales(currentCategory) = categorySales(currentCategory) + currentSales
        categoryCount(currentCategory) = categoryCount(currentCategory) + 1
    Next i

    ' 将统计结果输出到目标表
    wsSummary.Cells(1, 1).Value = "产品类别"
    wsSummary.Cells(1, 2).Value = "总销售额"
    wsSummary.Cells(1, 3).Value = "订单数量"

    For i = 0 To uniqueCategories.Count - 1
        currentCategory = uniqueCategories(i)
        wsSummary.Cells(i + 2, 1).Value = currentCategory
        wsSummary.Cells(i + 2, 2).Value = categorySales(currentCategory)
        wsSummary.Cells(i + 2, 3).Value = categoryCount(currentCategory)
    Next i

    ' 提示完成
    MsgBox "订单数据分析完成！"
End Sub

代码解释

1. 初始化对象：
2. 使用 CreateObject 创建 ArrayList 和 Dictionary 对象。
3. ordersList 用于存储订单数据。
4. categorySales 和 categoryCount 用于存储每个类别的总销售额和订单数量。
5. uniqueCategories 用于存储唯一的产品类别。
6. 读取订单数据：
7. 使用 For 循环将订单数据读取到 ordersList 中，每个订单存储为一个数组。
8. 统计销售额和订单数量：
9. 遍历 ordersList，按产品类别累加销售额和订单数量。
10. 使用 Dictionary 对象 categorySales 和 categoryCount 存储统计结果。
11. 输出结果：
12. 将统计结果写入目标表。

运行结果

运行代码后，目标表将更新为：

在这个案例中，我们通过 ArrayList 和 Dictionary 实现了复杂的数据统计任务。这个案例展示了：

1. 如何使用 ArrayList 动态存储数据。
2. 如何按条件筛选和统计数据。
3. 如何将结果动态输出到 Excel 表格中。

ArrayList 是 VBA 中一个非常强大的工具，特别适合需要动态管理数据的场景。它提供了比普通 VBA 数组更灵活的功能，可以大大简化代码的编写和维护。如果你需要处理动态数据集合，ArrayList 是一个非常好的选择。

希望这个案例能帮助你更好地理解 ArrayList 的高级用法！如果还有其他问题，欢迎随时在评论区留言提问！