VBA编程是常见的Office VBA应用程序开发方式，在日常工作中非常常见，因为强大的VBA功能，加上丰富的知识库和开发工具，VBA编程受到了众多办公室人员的喜爱。

VBA数组是VBA编程中最基本和最重要的数据类型之一。它可以是一维的，也可以是多维的。在VBA程序中，数组通常被用来批量地处理数据和实现复杂的算法。数组的高效使用可以大大提高程序的运行速度，因此在编写VBA程序时，熟练掌握VBA数组是非常必要的。

本文将介绍一些VBA数组的高效应用技巧，帮助读者更好的掌握VBA数组的使用。

一、一维数组

一维数组是最简单的数组形式，它只有一个数组下标，可以将数据按照顺序存储到数组中。下面是一些使用一维数组操作数据的实例。

例1：计算数组中的数值之和

下面的代码定义了一个一维数组a，然后将一些数值存储到这个数组中，最后遍历该数组并计算数值之和。

```vb

Sub Sum1DArray()

Dim a(10) As Integer

Dim i As Integer

Dim sum As Integer

For i = 0 To 10

a(i) = i

sum = sum + a(i)

Next i

MsgBox "Sum of values in array = " & sum

End Sub

```

例2：查找一维数组的最大值

下面的代码定义了一个一维数组a，然后遍历该数组查找最大值。

```vb

Sub Max1DArray()

Dim a(10) As Integer

Dim i As Integer

Dim max As Integer

For i = 0 To 10

a(i) = i

If a(i) > max Then

max = a(i)

End If

Next i

MsgBox "Max value in array = " & max

End Sub

```

二、多维数组

多维数组是由两个或多个下标标识的数组，通常用于表示复杂的数据结构。下面是一个常见的二维数组，可以将它视为一个行和列构成的矩阵。

```vb

Dim a(2, 2) As Integer

```

第一个下标表示行，第二个下标表示列。你也可以使用三个或更多下标来定义多维数组。

例3：向多维数组中赋值

下面的代码定义了一个二维数组a，然后将一些数值存储到这个数组中。

```vb

Sub Assign2DArray()

Dim a(2, 2) As Integer

Dim i As Integer, j As Integer

For i = 0 To 2

For j = 0 To 2

a(i, j) = i + j

Next j

Next i

End Sub

```

例4：访问多维数组中的元素

下面的代码演示了如何访问二维数组中的元素。

```vb

Sub Access2DArray()

Dim a(2, 2) As Integer

Dim i As Integer, j As Integer

For i = 0 To 2

For j = 0 To 2

a(i, j) = i + j

Next j

Next i

MsgBox "a(0,0) = " & a(0, 0) & vbCrLf & _

"a(0,1) = " & a(0, 1) & vbCrLf & _

"a(1,0) = " & a(1, 0) & vbCrLf & _

"a(1,1) = " & a(1, 1)

End Sub

```

三、动态数组

动态数组是在程序运行时创建和改变数组大小的一种数组。在VBA中，你可以使用ReDim语句来重新定义数组大小。在调用ReDim语句时，你必须指定新的数组大小，但不能改变数组类型。下面是一个越界的数组赋值的实例：

```vb

Sub RedimArray()

Dim a(10) As Integer

Dim i As Integer

For i = 0 To 20

a(i) = i ' Array bounds exceeded error here

Next i

End Sub

```

对于大多数情况下，我们建议使用动态数组，而不是静态数组。这样，你就可以根据需要重新定义数组大小，不必浪费内存或缺少足够的空间。

例5：动态数组操作

下面的代码演示了动态数组的使用方法，将数组从初始状态增加到动态状态。

```vb

Sub DynamicArray()

Dim i As Integer

Dim a() As Integer

For i = 1 To 10

ReDim Preserve a(i)

a(i) = i

Next i

MsgBox "Array values: " & Join(a, ", ")

End Sub

```

在上面的代码中，我们首先定义了一个未初始化的数组a（即数组大小为0），然后通过ReDim语句逐步扩展数组的大小。

四、数组遍历

遍历数组是VBA编程中常见的操作。使用for循环语句来遍历数组，可以方便的获取数组中所有元素的值。下面的代码演示了如何遍历一个一维数组和一个二维数组。

例6：遍历一维数组

下面的代码演示了如何遍历一个一维数组。

```vb

Sub Traverse1DArray()

Dim a(10) As Integer

Dim i As Integer

For i = 0 To 10

a(i) = i

Next i

For i = 0 To UBound(a)

MsgBox "Array value at index " & i & " = " & a(i)

Next i

End Sub

```

例7：遍历二维数组

下面的代码演示了如何遍历一个二维数组。

```vb

Sub Traverse2DArray()

Dim a(2, 2) As Integer

Dim i As Integer, j As Integer

For i = 0 To 2

For j = 0 To 2

a(i, j) = i + j

Next j

Next i

For i = 0 To UBound(a, 1)

For j = 0 To UBound(a, 2)

MsgBox "Array value at index (" & i & ", " & j & ") = " & a(i, j)

Next j

Next i

End Sub

```

总结

从上面的例子中，可以看出VBA数组是VBA编程中不可缺少的基本数据类型之一，它可以在很多情况下大大节省编程的时间和精力。在编写VBA程序时，熟练掌握VBA数组的使用，可以极大地提高程序的执行效率。在掌握了基本的数组操作技巧之后，建议读者结合实际问题，逐步深入学习VBA数组的高级应用技巧，进一步提高VBA编程的效率和质量。