multi-dimensional array to single column

[pcm2004]

Hi,

I need a macro that allows me to select a matrix of cells and convert it into a single column. My matrix is like so:

1a 1b 1c 1d 1e 1f
2a 2b
3a 3b 3c 3d

I want to change this into a single column like this:

1a
1b
1c
1d
1e
1f
2a
2b
3a
3b
3c
3d

and paste it in a selected location. Thanks so much.

[jeffreybrown]

Hello & Welcome to the Board,

Try this...

The results are pasted to column H with you sample data

Please Login or Register  to view this content.

[JBeaucaire]

'ROWS TO COLUMNS
Here's a macro for taking random rows of data and putting them into a single column of values.

Rows to Column - Part 5

Please Login or Register  to view this content.

[pcm2004]

Thanks Jeff and Jerry Beaucaire!

Jerry's code did exactly what I had in mind. Thanks to both of you for prompt response. Your help makes this forum terrific!

[snb]

There's no need copying (that slows down the macro):

Please Login or Register  to view this content.

[JohnM3]

Hi

I was not sure what variable type sn was so I
made it a variant.

When I run your code I get the following values in a column. Please
note the blank between 2b and 3a

1a
1b
1c
1d
1e
1f
2a
2b

3a
3b
3c
3d

If I debug each co1 thru the for loop I see

?UBound(sn)
?c01
|1a|1b|1c|1d|1e|1f
?c01
|1a|1b|1c|1d|1e|1f|2a|2b||||
?c01
|1a|1b|1c|1d|1e|1f|2a|2b|||||3a|3b|3c|3d||

If I look at each element in the variant sn I see

?sn(12)
3d
3c
3b
3a

2b
2a
1f
1e
1d
1c
1b
1a

I am not certain if my variable definition have introduced a problem.

Dim sn As Variant
Dim j As Integer
Dim c01 As String

regards
John

[snb]

Please, use code tags....

You might use:

Please Login or Register  to view this content.

[JohnM3]

That worked!

regards
John