Sub TestRreserve()
    Dim myArray() As Long
    
    ReDim myArray(1)

    myArray(0) = 1
    myArray(1) = 2
    
    ReDim Preserve myArray(2)

    myArray(2) = 3

    Debug.Print myArray(0)
    Debug.Print myArray(1)
    Debug.Print myArray(2)

End Sub

Preserve が無いと、 myArray(0) と、myArray(1) は、Long型の初期値 0 になる

 

Microsoft Office ブログランキングへ