Help Transposing every 2 Columns to Rows

Question

Hoping someone can help me out.&nbsp; I'm looking for an automated way to transpose every 2 columns to rows.&nbsp;&nbsp;I want to go from this:To this:Thanks!&nbsp;

mtarler · Answer

Alternatively=WRAPROWS(range, 2)

hansvogelaar · Answer

grantmcyorku&nbsp;
Run this macro:
Sub Transform()
    Dim r As Long
    Dim c As Long
    Dim n As Long
    Application.ScreenUpdating = False
    n = Cells(1, Columns.Count).End(xlToLeft).Column
    For c = 1 To n Step 2
        r = r + 1
        Cells(1, c).Copy Destination:=Cells(r, 1)
        r = r + 1
        Cells(1, c + 1).Copy Destination:=Cells(r, 1)
    Next c
    Cells(1, 2).Resize(1, n - 1).Clear
    Application.ScreenUpdating = True
End Sub

grantmcyorku · Answer

Thanks. Hans Vogelaar. That didn't quite work for me, but got me looking into creating my own macros for the first time, and I now have it working.Cheers!

tauqeeracma · Answer

Hi grantmcyorku&nbsp;&nbsp;You may use the below formula based variant to transpose columns to rows:&nbsp;Formula for Column_1 &gt;&gt;&gt;&gt;&nbsp; &nbsp; =OFFSET($D$2:$S$2,0,((ROW(B5)-ROW($B$5))*2),1,1)Formula for Column_2 &gt;&gt;&gt;&gt;&nbsp; &nbsp;&nbsp;=OFFSET($D$2:$S$2,0,1+((ROW(C5)-ROW($C$5))*2),1,1)&nbsp;A sample file is also attached for your reference.&nbsp;Please let me know if it works for you.&nbsp;ThanksTauqeer

prakashbabu250 · Answer

tauqeeracma&nbsp;it works fine. plz give the formula for multiple rows

Forum Discussion

Help Transposing every 2 Columns to Rows

Share

Resources