VBA 一维动态数组常用方法备忘

一维动态数组常用方法：

Sub arrayTest()
    Dim i As Long
    Dim arrTest() As String
    
    ReDim Preserve arrTest(0)
    
    '利用Preserve关键字保留之前装入数组内容并动态扩张数组下标
    For i = 1 To 10
        ReDim Preserve arrTest(UBound(arrTest) + 1)
        arrTest(UBound(arrTest)) = "Test_" & Format(i, "00")
    Next i
    
    '输出装入数组内容
    For i = 1 To UBound(arrTest)
        Debug.Print arrTest(i)
    Next i
    
    
End Sub

在立即执行窗口中会输出如下结果

Test_01
Test_02
Test_03
Test_04
Test_05
Test_06
Test_07
Test_08
Test_09
Test_10