Redim preserve

数组是包含相同数据类型的一组变量的集合，对数组中的单个变量引用通过数组索引下标进行。在内存中表现为一个连续的内存块，必须用Global或Dim语句来定义。定义规则如下：
Dim 数组名([lower to ]upper [, [lower to ]upper, ….]) as type ;Lower缺省值为0。二维数组是按行列排列，如XYZ(行，列)。
除了以上固定数组外，VBA还有一种功能强大的动态数组，定义时无大小维数声明；在程序中再利用Redim语句来重新改变数组大小，原来数组内容可以通过加preserve关键字来保留。如下例：
Dim array1() as double : Redim array1(5) : array1(3)=250 : Redim preserve array1(5,10)

Sub 按钮8_Click()

    Dim arr() As Variant
    ReDim Preserve arr(0) As Variant
    arr(0) = "0"
   
    Debug.Print arr(0)
   
    ReDim Preserve arr(2) As Variant
    arr(1) = 1
    arr(2) = "2"
    Debug.Print Trim(arr(1))
    Debug.Print arr(2)


End Sub