Playing with arrays... sort of

[bdl004]

Hi Guys,

I have a bit of a strange question...

What I have is an array such as the following: myArray(1)=(1 2 3 4 5), myArray(2)=(6 7 8 9 10), myArray(3)=(11 12 13 14 15), and myArray(4)=(16 17 18 19 20).


What I would like to do is to change this array such that I end up with: newArray(1)=1, newArray(2)=2, newArray(3)=3, etc. until myArray(20)=20.

I have tried using "split" to no avail thusfar and I am wondering if it is possible to do this?

Thanks very much in advance!
Brett
<!-- / message -->

 

[Andrew Poulsom]

Example:

Sub Test()
    Dim myArray(1 To 4)
    Dim newArray As Variant
    myArray(1) = "1 2 3 4 5": myArray(2) = "6 7 8 9 10": myArray(3) = "11 12 13 14 15": myArray(4) = "16 17 18 19 20"
    newArray = Split(Join(myArray, " "), " ")
    MsgBox UBound(newArray)
End Sub

The variant array will be zero based.

 

[bdl004]

Perfect. Thanks for the reply!