Excel VBA数组：高效数据处理的利器

在Excel VBA编程中，数组是一种极其重要的数据结构，它允许你在单个变量中存储多个值，从而显著提升代码的效率和可读性。相比于直接操作单元格，使用数组可以减少与工作表的交互次数，大幅提高处理速度，特别是在处理大量数据时。

数组的基本概念

数组是一组具有相同数据类型的元素的集合，每个元素通过索引号进行访问。VBA支持一维、二维甚至多维数组。数组的索引默认从0开始，但也可以使用Option Base 1声明从1开始，或者在声明时显式指定上下界。

数组的声明与初始化

声明数组时，需要指定数组的名称、维度以及每个维度的长度。例如：

Dim arr(1 To 10) As Integer ' 一维数组，10个元素，索引从1到10
Dim matrix(1 To 3, 1 To 4) As Double ' 二维数组，3行4列

此外，还可以声明动态数组，使用ReDim在运行时改变大小：

Dim dynArr() As String
ReDim dynArr(1 To 5)
' 使用后可以重新定义大小
ReDim Preserve dynArr(1 To 10) ' Preserve保留原有数据

数组的赋值与读取

可以通过循环或直接赋值来填充数组：

For i = 1 To 10
    arr(i) = i * 2
Next i
' 直接赋值
arr = Array(10, 20, 30) ' 仅适用于Variant数组

读取数组元素：value = arr(5)。对于二维数组：value = matrix(2, 3)。

数组的常用操作

1. 数组与工作表的交互

将数组内容快速写入工作表：

Range("A1:A10") = Application.Transpose(arr) ' 一维数组转置后写入列
Range("A1:C3") = matrix ' 二维数组直接写入对应区域

从工作表读取数据到数组：

arr = Range("A1:A10").Value ' 返回一个二维数组（即使只有一列）
arr = Application.Transpose(Range("A1:A10")) ' 转为一维数组

2. 数组排序

VBA没有内置的数组排序函数，但可以使用System.Collections.ArrayList或自定义排序算法（如冒泡排序）。利用Excel工作表的Sort方法也是一种技巧：

Dim vArr As Variant
vArr = Array(3, 1, 4, 1, 5, 9)
With Range("A1").Resize(UBound(vArr) + 1)
    .Value = Application.Transpose(vArr)
    .Sort Key1:=Range("A1"), Order1:=xlAscending
    vArr = Application.Transpose(.Value)
End With

3. 数组动态扩展

使用ReDim Preserve保留数据的同时增加数组大小，但只能改变最后一维的大小：

ReDim Preserve myArr(1 To 10, 1 To newCols)

数组性能优势

直接操作单元格会触发大量的内存读写和屏幕刷新，而数组操作完全在内存中进行，速度可提升数十倍甚至上百倍。典型应用场景：

• 批量读取数据到数组，处理后再写回工作表。
• 在数组中进行复杂计算或查找，避免频繁访问工作表。
• 构建临时数据结构，如字典映射、缓存等。

实战示例：快速合并多行数据

假设需要将A列中相同B列值的行合并（示例数据见文章末尾）。使用数组可以快速完成：

Sub QuickMerge()
    Dim rng As Range, data As Variant
    Dim dict As Object, key As String, i As Long
    Set rng = Range("A1:C100") ' 假设数据区域
    data = rng.Value ' 读取到数组
    Set dict = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(data)
        key = data(i, 2) ' B列为分组键
        If Not dict.exists(key) Then
            dict(key) = data(i, 1) & "," & data(i, 3)
        Else
            dict(key) = dict(key) & ";" & data(i, 1) & "," & data(i, 3)
        End If
    Next i
    ' 结果写入到新工作表中
    Dim outArr() As Variant, idx As Long
    idx = 0
    ReDim outArr(1 To dict.Count, 1 To 2)
    For Each key In dict.keys
        idx = idx + 1
        outArr(idx, 1) = key
        outArr(idx, 2) = dict(key)
    Next
    Sheets.Add
    Range("A1").Resize(dict.Count, 2).Value = outArr
End Sub

注意事项

• 数组索引越界会导致运行时错误，务必使用LBound和UBound确定边界。
• 从工作表读取的Value属性返回的是Variant类型的二维数组，即使只有一行或一列。如果只有一列，第一维是行号，第二维是1。
• 使用Application.Transpose进行转置时，数组元素数量不能超过65536（Legacy Excel限制）或Excel版本限制。
• 动态数组使用ReDim Preserve会复制原有数据，过于频繁操作会影响性能，建议一次性分配足够大小。

总结

掌握VBA数组是成为Excel VBA高手的必经之路。通过合理运用数组，你可以编写出执行快速、代码简洁的宏。希望本文能帮助你打好基础，并在实际工作中灵活应用。