Extract a part of two dimensional array into a single dimensional one

[Faheemi]

Hi there,

I want to extract a column of a two dimensional array into a single dimensional array.

Say a two dimensional array

1 | abc
2 | xxx
3 | www
4 | qqq
5 | sss

I want to extract just the second column into a single dimensional array

Thanks for your help

Faheem Hameed

 

[Parke]

Does this do what you want?

Dim arrayTwo(3,3)
Dim arrayOne(3)

For i = 0 to 3
For j = 0 to 3
arrayTwo(i,j) = i & "," & j
next ' j
next ' i

For k = 0 to 3
arrayOne(k) = arrayTwo(0,k)
s = s & vbcrlf & arrayOne(k)
next

msgbox s