【VBA】动态数组

1. 需求
申请动态数组

2. 实现代码

Function dynamicArr()    Dim arr() As String    ReDim arr(2) '申请数组大小为2(0,1,2)    arr(0) = "0"    arr(1) = "1"    arr(2) = "2"    For Each strTmp In arr        Debug.Print strTmp    Next    Debug.Print "/////"    ReDim Preserve arr(4) '重新申请数组大小，并保存数据    arr(3) = "3"    arr(4) = "4"    For Each strTmp In arr        Debug.Print strTmp    NextEnd Function '输出结果012/////01234

3. 二维数组

使用了Preserve 关键字保存数据，只有最后一维可以动态改变大小；多维数组同理

Function dynamicArr2()    Dim arr() As String    ReDim arr(1, 2)    ReDim arr(4, 4)    ReDim Preserve arr(4, 5)    ReDim Preserve arr(5, 5) '下标越界End Function