Simple Question: Snaking data --Flatten a matrix

[jsvlad]

I currenlty have data formated like this:


1 4 7
2 5 8
3 6 9


that is..
A1 =1
A2 =2
B1 = 4

If i want the data to be


1
2
3
4
5
6
7
8
9



That is for a simple 3x3 matrix..
but how do i do it with a macro for a matrix that is
4x6 or 7 x 8

or X x Y

I think this is called "flattening"

Thanks

 

[VoG]

Try

Sub flat()
Dim LR As Long, LC As Long, j As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
LC = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
For j = 2 To LC
    Range(Cells(1, j), Cells(LR, j)).Cut Destination:=Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next j
End Sub

 

[jsvlad]

awesome! thanx