Sort dependent on two columns

[Per_]

Hi,

I need some help to accomplish the below, two sort dependent two columns.


Before:

Col A	Col B
b	2
a	2
a	1
b	1

<tbody>
</tbody>

After:

Col A	Col B
a	1
a	2
b	1
b	2

<tbody>
</tbody>

 

[Logit]

.

Option Explicit


Sub Macro1()


    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1:A4"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B1:B4"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:B4")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[jarjarbingie]

Hi,

I need some help to accomplish the below, two sort dependent two columns.


Before:

Col A	Col B
b	2
a	2
a	1
b	1

<tbody>
</tbody>

After:

Col A	Col B
a	1
a	2
b	1
b	2

<tbody>
</tbody>

http:/ /www.contextures.com/xlSort01.html