swapping rows and columns

[bradyj7]

Hi there,

Does anybody know if there is a built in way to convert rows to columns in excel? or would anybody have a macro to do this?

Thank you

John

Example convert this

1111
2222
3333
4444

into

1234
1234
1234
1234

 

[villy]

Use copy paste special transpose

 

[Yahya]

try this code
this is your data

Excel Workbook
	A
1	1111
2	2222
3	3333
4	4444
Sheet1

Excel 2007

code

Sub Test()
Dim i As Integer, j As Integer
For i = 1 To 4
    For j = 1 To 4
        MyT = Cells(i, 2).Value
        Cells(i, 2).Value = Mid(Cells(j, 1), i, 1)
        MyT = MyT & Cells(i, 2).Value
        Cells(i, 2).Value = MyT
    Next j
Next i
End Sub