How could I take the data in the attached workbook (A1:F6) and transpose it into two columns using a macro?
How could I take the data in the attached workbook (A1:F6) and transpose it into two columns using a macro?
Hi
here goes
rylo![]()
Sub aaa() Dim OutSH As Worksheet Set OutSH = Sheets("Sheet2") For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row For j = 2 To Cells(i, Columns.Count).End(xlToLeft).Column outrow = OutSH.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row OutSH.Cells(outrow, 1).Value = Cells(i, 1).Value OutSH.Cells(outrow, 2).Value = Cells(i, j).Value Next j Next i End Sub
Thank you rylo, this seems to do the trick.
This code is very useful. But when used on huge data range it becomes slow.. Sir can you pls help me in this..
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks