ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   trying to get data from rows to columns (https://www.excelbanter.com/excel-discussion-misc-queries/446569-trying-get-data-rows-columns.html)

Kathryn39

trying to get data from rows to columns
 
Hello!

I was wondering if anyone could help me; I have about 200 rows of data, with about 200 values in each row, but I would like to have the information that is in each row, to be in a column instead, just wondering is there a quick way of doing this as opposed to copying and pasting each of them?
All help appreciated!

thank you,

Kathryn

Spencer101

Quote:

Originally Posted by Kathryn39 (Post 1603651)
Hello!

I was wondering if anyone could help me; I have about 200 rows of data, with about 200 values in each row, but I would like to have the information that is in each row, to be in a column instead, just wondering is there a quick way of doing this as opposed to copying and pasting each of them?
All help appreciated!

thank you,

Kathryn

Have a look in the Excel Help for how to use "Paste Special / Transpose".
Should do exactly what you're after.

Kathryn39

Quote:

Originally Posted by Spencer101 (Post 1603653)
Have a look in the Excel Help for how to use "Paste Special / Transpose".
Should do exactly what you're after.

Hi Spencer,

Thank you that worked great!
Kathryn

Don Guillett[_2_]

trying to get data from rows to columns
 
On Sunday, July 15, 2012 9:09:40 AM UTC-5, Kathryn39 wrote:
Hello!

I was wondering if anyone could help me; I have about 200 rows of data,
with about 200 values in each row, but I would like to have the
information that is in each row, to be in a column instead, just
wondering is there a quick way of doing this as opposed to copying and
pasting each of them?
All help appreciated!

thank you,

Kathryn




--
Kathryn39


This should do it

Sub transposeemSAS()
Dim lr As Long
Dim i As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lr
Rows(i).Copy
Cells(Rows.Count, i).End(xlUp)(2).PasteSpecial _
Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, transpose:=True
'MsgBox i
Next i
Rows(1).Resize(lr).Delete
End Sub

Spencer101

Quote:

Originally Posted by Kathryn39 (Post 1603670)
Hi Spencer,

Thank you that worked great!
Kathryn

Pleasure was all mine, Kathryn. Glad to be of help. :)

choganj

Quote:

Originally Posted by Kathryn39 (Post 1603651)
Hello!

I was wondering if anyone could help me; I have about 200 rows of data, with about 200 values in each row, but I would like to have the information that is in each row, to be in a column instead, just wondering is there a quick way of doing this as opposed to copying and pasting each of them?
All help appreciated!

thank you,

Kathryn

Definitively you can copy from row and paste special to column but there are other methods around.

You can try recording a micro to do your job. On the other hand you can use OFFSET formula to do your job.

You can also visit http://www.techyv.com/questions/simp...ow-data-column for more information.

I hope this would be of some help.


All times are GMT +1. The time now is 11:52 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com