Video : Mengurutkan Data Metode 1 - Menggunakan Fitur Excel

Berikut adalah baris programnya:

Sub UrutkanData()
  Dim WB1 As Workbook
  Dim WS1_1 As Worksheet
  Dim BrsAkhr As Long
  Set WB1 = ActiveWorkbook
  Set WS1_1 = ActiveSheet
  With WS1_1
     BrsAkhr = .Range("A" & .Rows.Count).End(xlUp).Row
     .Sort.SortFields.Clear
     .Sort.SortFields.Add2 Key:=Range("C2:C" & BrsAkhr), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
     .Sort.SortFields.Add2 Key:=Range("B2:B" & BrsAkhr), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     With .Sort
       .SetRange Range("A1:C" & BrsAkhr)
       .Header = xlYes
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
     End With
  End With
End Sub