transpose for loop?

[MR3]

i would like to write a VB for loop that just takes the top row column headers and puts them into the first column. for example

Before
name = A1 address = B1 Number = C1

After
name = A1 address = A2 Number = A3

but the loop much go the entire top row or until it sees no more data

 

[VoG]

Try

Sub XPose()
Dim LC As Long
LC = Cells(1, Columns.Count).End(xlToLeft).Column
Cells(1, 1).Resize(LC).Value = Application.Transpose(Range(Cells(1, 1), Cells(1, LC)))
End Sub

 

[Peter_SSs]

In a similar vein, I had

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> Swap()<br>    <SPAN style="color:#00007F">With</SPAN> Range("A1", Cells(1, Columns.Count).End(xlToLeft))<br>        .Resize(.Columns.Count, 1).Value = Application.Transpose(.Value)<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

Not sure if the original values had to be removed?

 

[MR3]

both worked! thanks