Snasui Excel Forum

Code: Select all

Sub test()
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:L" & lr).Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
lr = Range("A" & Rows.Count).End(xlUp).Row
With Range("A1:A" & lr)
    .Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
End With
With Range("B1:B" & lr)
    .Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
End With
With Range("C1:C" & lr)
    .Sort Key1:=Range("C1"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
End With
With Range("D1:D" & lr)
    .Sort Key1:=Range("D1"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
End With
With Range("E1:E" & lr)
    .Sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
End With
End Sub

Code: Select all

Sub test1()
Dim lr As Long
Dim ColumnCount As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:L" & lr).Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
ColumnCount = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To ColumnCount
    Columns(i).Sort Key1:=Cells(1, i), _
    Order1:=xlDescending, _
    Header:=xlYes, _
    OrderCustom:=1, _
    MatchCase:=False, _
    Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
Next i
End Sub

Code: Select all

Sub Sort_Rows()

Dim lr As Long, lc As Long, i As Integer

lr = Cells(Rows.Count, 1).End(xlUp).Row

lc = Cells(1, Columns.Count).End(xlToLeft).Column

For i = 2 To lr

    Range(Cells(i, 2), Cells(lr, lc)).Sort Key1:=Cells(i, 2), Order1:=xlDescending, _
        Header:=xlYes, Orientation:=xlLeftToRight, DataOption1:=xlSortNormal

Next i

End Sub