trying to get data from rows to columns

[Kathryn39]

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 th
information that is in each row, to be in a column instead, jus
wondering is there a quick way of doing this as opposed to copying an
pasting each of them?
All help appreciated!

thank you,

Kathry

 

[Spencer101]

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 th
information that is in each row, to be in a column instead, jus
wondering is there a quick way of doing this as opposed to copying an
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]

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!
Kathry

 

[Don Guillett]

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

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]

Hi Spencer,

Thank you that worked great!
Kathryn

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