Transpose column to row

[dgutu]

[TABLE="width: 500"]
<tbody>[TR]
[/TR]
[TR]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

[TABLE="width: 192"]
<colgroup><col span="3"></colgroup><tbody>[TR]
[TD]QQ[/TD]
[TD]COL1[/TD]
[TD]COL2[/TD]
[/TR]
[TR]
[TD]q1[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]45[/TD]
[/TR]
[TR]
[TD]q1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]45[/TD]
[/TR]
[TR]
[TD]q1[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]45[/TD]
[/TR]
[TR]
[TD]q1[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]4234[/TD]
[/TR]
[TR]
[TD]q2[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD]q2[/TD]
[TD="align: right"]20[/TD]
[TD="align: right"]12[/TD]
[/TR]
[TR]
[TD]q2[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD]q2[/TD]
[TD="align: right"]40[/TD]
[TD="align: right"]5[/TD]
[/TR]
</tbody>[/TABLE]

Hi I have the above table and I want obtain the following tables result. Please help.

[TABLE="class: outer_border, width: 256"]
<tbody>[TR]
[TD="width: 128, colspan: 2"]q1[/TD]
[TD="width: 128, colspan: 2"]q2
[/TD]
[/TR]
[TR]
[TD]col1[/TD]
[TD]col2[/TD]
[TD]col1[/TD]
[TD]col2[/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]45[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]45[/TD]
[TD="align: right"]20[/TD]
[TD="align: right"]12[/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]45[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]4234[/TD]
[TD="align: right"]40[/TD]
[TD="align: right"]5[/TD]
[/TR]
</tbody>[/TABLE]

 

[montecarlo2079]

I think you could do this with a pivot table.

 

[patel45]

Sub a()
LR = Cells(Rows.Count, "A").End(xlUp).Row
Range("E1") = "q1": Range("G1") = "q1"
Range("B1:C1").Copy Range("E2"): Range("B1:C1").Copy Range("G2")
drow1 = 3: drow2 = 3
For j = 2 To LR
  If Cells(j, 1) = "q1" Then
    Range("B" & j & ":C" & j).Copy Range("E" & drow1)
    drow1 = drow1 + 1
  End If
  If Cells(j, 1) = "q2" Then
    Range("B" & j & ":C" & j).Copy Range("G" & drow2)
    drow2 = drow2 + 1
  End If
Next
End Sub

 

[dgutu]

Sub a()
LR = Cells(Rows.Count, "A").End(xlUp).Row
Range("E1") = "q1": Range("G1") = "q1"
Range("B1:C1").Copy Range("E2"): Range("B1:C1").Copy Range("G2")
drow1 = 3: drow2 = 3
For j = 2 To LR
  If Cells(j, 1) = "q1" Then
    Range("B" & j & ":C" & j).Copy Range("E" & drow1)
    drow1 = drow1 + 1
  End If
  If Cells(j, 1) = "q2" Then
    Range("B" & j & ":C" & j).Copy Range("G" & drow2)
    drow2 = drow2 + 1
  End If
Next
End Sub

thanks patel45