As has been stated by several posters. Of course, you obviously didn't read
them, or you would have noted that already.
--
John C


"Don Guillett" wrote:


Because I am pompous and arrogant, I say that it IS the proper way IN THIS
CASE. I think it absolutely silly to burden a project with unnecessary
calculations and other formula overhead. Of course, the formula solution
could be used but the results should then be converted to values.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"John C" <johnc@stateofdenial wrote in message
...
No. If you have been using excel for long, which I am assuming you have,
then
you should be the first to know that there are MANY ways to achieve the
same
result. Just because you use a macro, does not make it the 'proper' way.
--
John C


"Don Guillett" wrote:

You are absolutely correct. But then, so am I.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"John C" <johnc@stateofdenial wrote in message
...
Formula solutions have been given. Some people aren't comfortable with
macros, or VBA for that matter. To say that your way is the 'proper'
way,
and
that other ways are subsequently improper is both arrogant and pompous.
The
macro way is typically cleaner, but if it is a one time rearrangement,
for
someone to go through all the learning of macros, and operation thereof
I
think is a bit much.
--
John C


"Don Guillett" wrote:


Please don't shout. I can hear well despite my age. I would NOT use a
formula for this. You should learn how to do it properly.

If you're new to macros, you may want to read David McRitchie's
intro
at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"teresa" wrote in message
...
HOW CAN YOU DO THIS AS A FORMULA??
SORRY THIS HAS CONFUSED ME MORE?

THANKS,

TERESA


"Don Guillett" wrote:

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,