How to add a dimension to convert a 1D array into a 2D array?

[Kelvin Stott]

I start with a 1D array, e.g., Array1(1 to 24), and would like to add a dimension and convert this to a 2D array, e.g., Array1(1 to 24, 1 to 36), while retaining the original values from the 1D array.

I tried the following, but the VBA routine exits with an error:

ReDim Preserve Array1(1 to 24, 1 to 36)

Is VBA unable to add extra dimensions to an existing array, or am I using the wrong method?

 

[Eric W]

When using Preserve in a ReDim, you can only change the size of the last dimension, you can't change the size of other dimensions, or add dimensions. If you know that you're going to add a dimension later, just define it originally as 1 To 1 like this:

Sub test1()
Dim array1()


    ReDim array1(1 To 24, 1 To 1)
    
    array1(1, 1) = 5
    
    ReDim Preserve array1(1 To 24, 1 To 36)
    
    Debug.Print array1(1, 1)
    
End Sub