Thread
:
Need transpose? help....
View Single Post
#
2
March 15th, 2010, 09:19 PM posted to microsoft.public.excel.worksheet.functions
Bob Phillips[_3_]
external usenet poster
Posts: 489
Need transpose? help....
Off the top, untested
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
For i = LastRow To 1 Step -1
For j = LastCol To 2 Step -1
.Rows(i + 1).Insert
.Cells(i, j).Cut .Cells(i + 1, "A")
Next j
Next i
End With
--
HTH
Bob
"Jethro Bodeene" Jethro
wrote in message
...
I have a spreadsheet with 151 columns by 49 rows of data. I need to
transpose this data from its current state, to only 1 vertical column.
How
can I do this? Thks
Bob Phillips[_3_]
View Public Profile
View message headers
Find all posts by Bob Phillips[_3_]
Find all threads started by Bob Phillips[_3_]