一 什么是VBA数组
数组可以大大节省系统运算时间，提高效率。数组就是储存一组数据的数据空间，数据类型可以是数字，可以是文本也可以是对象，也可以是VBA数组。
二 VBA数组的存在形态
VBA数组是以变量形式存放的一个空间，它也有行有列，也可以是三维空间。
1 常量数组
array（1，2）
array（array（1，2，3），array（"a","b","c"))
2 静态数组
常量数组是一个教室，已经有四个人坐在教室，静态数组是有一个教室，但是并没有人坐在教室里。
2.1 单维数组
x(4) ‘有五个位置，编号从0到4
arr（1 to 10) '有10个位置，编号从1到10
2.2 二维数组
arr（1 to 10,1 to 2) '十行两列的空间，总共20个位置，这是二维数组
2.3 三维数组
三维数组应用并不广泛。
arr（1 to 10,1to 2, 1 to 3) '三维数组，总共10*2*3 = 60 个位置。
3 动态数组
arr() ’不知道有多少行多少列
三 数组写入数据
1 按编号写入和读取
1.1 写入一维数组
Sub t1()
Dim x As Integer
Dim arr(1 To 10) ‘十个座位的数组
For x = 1 To 7
arr(x) = x * 10
Next x
Stop
End Sub
Sub t1()
Dim x As Integer
Dim arr(1 To 10)
For x = 1 To 7
arr(x) = x * 10
Next x
arr(4) = 234
Stop
End Sub
1.2 二维数组写入数据
Sub t2()
Dim x As Integer, y As Integer
Dim arr(1 To 5, 1 To 4)
For x = 1 To 5
For y = 1 To 4
arr(x, y) = Cells(x, y)
Next y
Next x
Stop
End Sub
2 动态数组
写入分为两步，第一步声明一个不固定大小的数组，第二步在已经知道数组大小的情况下再重新声明一下。
Sub t3()
Dim arr()
Dim row
row = Sheets("第二十讲").Range("a65536").End(xlUp).row - 1
ReDim arr(1 To row)
For x = 1 To row
arr(x) = Cells(x, 1)
Next x
Stop
End Sub
原始表格图如下
3 批量写入
批量写入可以由常量数组导入，或者由单元格区域导入
Sub t4()
Dim arr()
arr = Array(1, 2, 3, "a") ’由常量数组导入
Stop
End Sub
Sub t5()
Dim arr
arr = Range("a1:a5") ‘由单元格区域导入
Stop
End Sub
