Sub transposerowstocola()
lr = Cells(rows.Count, 1).End(xlUp).Row
For i = 1 To lr
lc = Cells(i, Columns.Count).End(xlToLeft).Column
dlr = Cells(rows.Count, 1).End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, lc)).Copy
Cells(dlr, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Next i
rows("1:" & lr).Delete
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"teresa" wrote in message
...
Hi,
I have to move the data from numerous columns into one colum as a list,
how can i do this?
eg
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
to
1
2
3
4
5
6
7
8
9
10
1
2
3
4
5
6
7
8
9
10
please help?
thanks,