Video : Mengurutkan Data Metode 1 - Menggunakan Fitur Excel
Tutorial Level 6
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