Sub 配列Erase()
    Dim MyArray(1) As String
    
    MyArray(0) = "１月"
    MyArray(1) = "１日"
    
    Debug.Print MyArray(0) & "　" & MyArray(1)
    Debug.Print String(10, "-")

    Erase MyArray

    Debug.Print MyArray(0) & "　" & MyArray(1)
    Debug.Print String(10, "-")

End Sub

Erase による配列の初期化を、動的配列で行うとエラーになる。
動的配列で行うと、同時にメモリを解放する為。

 

Microsoft Office ブログランキングへ