使用数组

定义与重定义：

'定义空的数组，第一次赋值时确定大小
Dim Mystr()

'定义确实大小的数组
Dim Mystr(100,100)

'保留数据扩充大小,速度慢不推荐
ReDim Preserve MyStr(n)

'擦除数组,释放内存
Erase arr

数组取值：

'一维数组取列
arr = Application.Transpose(.range()）

'一维数组取行
arr = Application.Transpose(Application.Transpose(.range()))

'二维数组取区域
arr = .range()

'二维数组切片
crr = Application.Index(brr, 4, 0) '取arr 第4行
crr = Application.Transpose(application.index(brr, 0, 2))'取brr 第2列

数组的遍历：

'对于一维数组
For i = 1 To UBound(arr)
    '代码块

Next

'对于二维数组
row = UBound(arr, 1)
col = UBound(arr, 2) 
For i = 1 to row
    For j = 1 to col
        '代码块
    Next
Next

将值写入表格

'一维数组写入列
Range("A1:A10") = application.transcope(arr)

'一维数组写入行。 一维数组要理解为一行数。而不是一列数。
Range("A1:J1") = arr

'二维数组写入区域
Range("A1:B10") = arr