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 になる
Preserve が無いと、 myArray(0) と、myArray(1) は、Long型の初期値 0 になる
Microsoft Office ブログランキングへ