VBA数组进阶

End Sub
HOmT398
数组同样可以运用于工作表数学函数和统计函数，条件是参数可以为数组形式，如下函数： 数学函数：SUMPRODUCT 数组间元素乘积之和 统计函数：STDEV 样本的标准偏差、FREQUENCY 频率
6、 ReDim 和 ReDim Preserve 语句 我们可以根据需要使用 ReDim 语句反复地改变动态数组的上、下界或维数。使用 ReDim 之后，将清除 所有元素。
2、 数组传递
对于给定的 2 个静态数组不能相互赋值，否则将出现编译错误：不能给数组赋值。如：
Sub test() Dim arr1(1) As Integer Dim arr2(1) As Integer arr1(0) = 1: arr1(1) = 2 arr2 = arr1
End Sub
只能将静态数组赋值给动态数组或一个变体变量
分别用来确定数组某一维的上界和下界值。 使用形式如下：
UBound(arrayname[, dimension]) LBound(arrayname[, dimension]) 其中： <arrayname>：必需的。数组变量的名称，遵循标准变量命名约定。 <dimension>：可选的；一般是整型常量或变量。指定返回哪一维的上界。1 表示第一维，2 表示第二 维，如此等等。如果省略默认是 1。
Sub test() Dim arr(1 To 3, 1 To 10) As Integer Dim i As Integer, j As Integer Dim lMAX As Long, lMIN As Long, lAVERAGE As Long For i = 1 To 3 For j = 1 To 10 arr(i, j) = i * j Next Next lMAX = Application.Max(arr) lMIN = Application.Min(arr) lAVERAGE = Application.Average(arr) Debug.Print "lMAX:" & lMAX, "lMIN:" & lMIN, "lAVERAGE:" & lAVERAGE Stop
Sub test() Dim arr(1 To 3, 1 To 10) As Integer Dim i As Integer, j As Integer Dim arrDim1 As Variant For i = 1 To 3 For j = 1 To 10 arr(i, j) = i * j Next Next arrDim1 = Application.Index(arr, 1) Stop arrDim1 = Application.Index(arr, , 2) Stop
Sub test() Dim arr(1 To 2, 1 To 3, 1 To 5) As Integer Stop
End Sub
第3页
VBA 数组进阶
HOmT398
注意， 只有在最底层才有数值。 因为单元格区域无法直接使用三维以上数组，一般很少使用。
5、 常用数组函数
○1 Lbund()/Ubound()函数
End Sub
HOmT398
数组整体表示法： 用中括号大括号表示数组，分号表示维数：
Sub test() Dim arr() As Variant arr = Array(1, 2, 3) Stop arr = [{1,2,3}] Stop arr = [{1,2,3;2,4,6}] Stop
End Sub
End Sub
HOmT398
以下 2 组函数为工作表函数：
○7 SUM()函数
语法：SUM(number1,number2, ...) 说明：number1, number2, ... 为 1 到 30 个需要求和的参数，其中，参数可以为数组。
Sub test() Dim arr(1 To 3, 1 To 10) As Integer Dim i As Integer, j As Integer Dim sngSUM As Single
Sub test() Dim arrTemp1(1 To 100) As String Dim arrTemp2() As Integer
ReDim arrTemp2(1 To 3) As Integer Erase arrTemp1 Stop Erase arrTemp2 Stop End Sub
HOmT398
节点
(下界)最小下标 Lbound (上界)最大下标 Ubound
多维数组：维数大于一维的数组，最多可以定义 60 维的多维数组。 如，Dim arrTemp(1 to 3, 1 to 5) As Integer
根据节点理论，我们将多维数组引入『十八层地狱』概念： 三维以上的数组，跟我们的空间三维概念没有一点关系，维数只是层次概念。多少维数即表示多少节 点（层）。
一、数组基本概念
VBA 数组进阶
HOmT398
1、 什么是数组 数组是一组数。 数组是一组有序列的数。 数组是一组连续可索引的具有相同内在数据类型的元素所成的集合，在未指定为变体变量情况下。
2、 上界、下界和下标 上界：数组某一维可用的最大下标。用 Ubound 函数表示。 下界：数组某一维的最小下标。默认最小下标为 0。用 Lbound 函数表示。 下标；数组某一维的元素个数。
Sub test()
Dim arrTemp() As Integer
Dim i As Integer
ReDim arrTemp(1 To 3, 1 To 5)
For i = 1 To 5
ReDim Preserve arrTemp(1 To 3, 1 To 5, 1 To i)
arrTemp(1, i) = i
Next
End Sub
第7页
7、 释放数组：Erase 语句
VBA 数组进阶
HOmT398
在某些情况下，我们需要释放数组来重新定义数组，或避免数据堆栈内存。 Erase 语句重新初始化大小固定的数组元素，以释放动态数组的存储空间。 Erase 对静态数组和动态数组处理方式不同。对静态数组将保留所有元素个数，参考表 1。而对动态数 组，将清除所有元素，包括维数。因此，在下次引用该动态数组之前，必须使用 ReDim 语句来重新定义 该数组变量的维数。
3、 调试数组方法：本地窗口
Sub test() Dim arrTemp(5) As Integer Stop
End Sub
4、 静态数组、动态数组和多维数组 静态数组：在定义数组时就确定维数和上下界的数组。如，Dim arrTemp(5) As Integer 动态数组：在定义数组时未确定维数和上下界的数组。如，Dim arrTemp() As String
表 1：
数组类型 数值类型数组 字符类型数组（变长） 字符类型数组（定长） 变体类型数组 用户定义类型数组 对象数组
对元素的影响 将元素值置 0 将元素值设为空字符串 将元素值置 0 将元素值设为 Empty 将元素设为单独的变量 将元素值设为 Nothing
8、 数组与 Excel 单元格区域
使用变体变量 Variant 单元格区域值或给单元格区域赋值 Sub test() Dim vArr1 As Variant vArr1 = Range("A1:C3") Stop Range("A5:C7") = vArr1 Stop End Sub
第5页
VBA 数组进阶
Sub test() Dim strJoin As String
○5 Filter()函数
strJoin = Join(Array("a", "b", "c"), ",") Stop End Sub
○6 Index()函数
语法：INDEX(array,row_num,column_num) 说明：使用 Index 返回 1 个数或 1 个一维数组。参数 array 应为 2 维以下数组。
Sub test() Dim arrTemp() As String
arrTemp = Split("E.X.C.E.L", ".") Stop
○4 Join()函数
语法：JOIN(sourcearray[, delimiter]) 说明：返回一个字符串，该字符串是通过连接某个数组中的多个子字符串而创建的。与 Split 函数为 反向操作，sourcearray 参数必须为一维数组。
第4页
VBA 数组进阶
HOmT398
Sub test() Dim arrTemp(1 To 10, 2 To 5) As String
Debug.Print LBound(arrTemp, 1) Stop Debug.Print UBound(arrTemp, 2) Stop End Sub
○2 Array()函数
Sub test() Dim arrTemp() As Integer ReDim arrTemp(1 To 3, 1 To 5) Stop
End Sub
与 ReDim 不同的是，使用了 ReDim Preserve，只能通过改变动态数组最末维数的上界来改变数组的大 小，且不能改变数组维数。即，如果已经用 ReDim 定义了数组，则不能使用 ReDim Preserve 改变了下界 或维数，否则就会出现运行错误信息：下标越界。
注意，在定义动态数组之后，必须使用 ReDim 语句来设置动态数组的维数、上界和下界，为数组重新 分配存储空间。否则，将出现运行错误，提示下标越界。
Sub test() Dim arrTemp() As Integer arrTemp(1) = 100