reversing the order of 2 columns

[lezawang]

Hi
Is there any way/trick to reverse a table without using sorting? Here is my table

From

[TABLE="class: grid, width: 128"]
<colgroup><col width="64" span="2" style="width:48pt"> </colgroup><tbody>[TR]
[TD="width: 64"]average[/TD]
[TD="width: 64"]grade[/TD]
[/TR]
[TR]
[TD="align: right"]0[/TD]
[TD]f[/TD]
[/TR]
[TR]
[TD="align: right"]50[/TD]
[TD]c[/TD]
[/TR]
[TR]
[TD="align: right"]60[/TD]
[TD]b[/TD]
[/TR]
[TR]
[TD="align: right"]80[/TD]
[TD]a[/TD]
[/TR]
</tbody>[/TABLE]

To

[TABLE="class: grid, width: 128"]
<colgroup><col width="64" span="2" style="width:48pt"> </colgroup><tbody>[TR]
[TD="width: 64"]average[/TD]
[TD="width: 64"]grade[/TD]
[/TR]
[TR]
[TD="align: right"]80[/TD]
[TD]a[/TD]
[/TR]
[TR]
[TD="align: right"]60[/TD]
[TD]b[/TD]
[/TR]
[TR]
[TD="align: right"]50[/TD]
[TD]c[/TD]
[/TR]
[TR]
[TD="align: right"]0[/TD]
[TD]f[/TD]
[/TR]
</tbody>[/TABLE]

Thank you very much.

 

[Peter_SSs]

One way, copied across and down

Excel Workbook
	A	B	C	D	E
1	average	grade
2	0	f		80	a
3	50	c		60	b
4	60	b		50	c
5	80	a		0	f
Reverse

 

[mohadin]

VBA?

Sub revers()
    Dim a As Variant
    Dim i, j, lr, t As Integer
    lr = Cells(Rows.Count, 1).End(xlUp).Row - 1
    a = Cells(2, 1).Resize(lr, 2)
    ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
    t = 1
    For i = lr To 1 Step -1
        For j = 1 To 2
            b(t, j) = a(i, j)
        Next
        t = t + 1
    Next
    Cells(2, 3).Resize(lr, 2) = b
End Sub

 

[James006]

Why is Sorting prohibited ...???

 

[lezawang]

Thanks all for the help. Not prohibited but I thought there is another way I do not know off. Thanks all once again

Why is Sorting prohibited ...???

 

[Peter_SSs]

Thanks all for the help. Not prohibited but I thought there is another way I do not know off. Thanks all once again

You're welcome.

.. and of course if the data started out in a jumbled order then sorting wouldn't reverse the table anyway.

 

[mohadin]

You are very well come
Be happy

 

[Peter_SSs]

If you are interested, here is a vba way to reverse a table (but keep the headings) without looping through the rows and columns.

Sub Reverse_Table()
  Dim rws As Long, cols As Long
  Dim vRws As Variant, vCols As Variant
  
  With Range("A1").CurrentRegion
    rws = .Rows.Count
    cols = .Columns.Count
    vRws = Application.Transpose(Split("1 " & Join(Application.Transpose(Evaluate(rws + 1 & "- row(1:" & rws - 1 & ")")))))
    vCols = Application.Transpose(Evaluate("row(1:" & cols & ")"))
    .Offset(, cols + 1).Value = Application.Index(.Value, vRws, vCols)
  End With
End Sub