Sorting in excel sheet, is a very common functionality. Most excel users should be knowing already. But here we are going to learn how to do sorting using Excel VBA. If you are working on any automation in excel, it will be useful to know. You might want to provide users with a sorting button so that they can sort their data simply with a click.

Types of sorting in Excel

There are 2 types of sorting available in Excel. They are Simple and Custom Sorting.

Simple Sorting

Simple sorting is nothing but sorting alphabetically or by number in ascending or descending order.

Sub Sorting()

'---  First Select the Range which you want to sort

Range("I8:L15").Select

'---  Now clear the Sort fields before sorting. This is important otherwise sorting will not take place

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("I8"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort

'---  Select the Range on which you want to perform the Sort.
'---  If it includes the header row as well then put .Header=xlYes, else xlNo.

 .SetRange Range("I8:L15")
.Header = xlYes

'---  It is better to put MatchCase as False. In case you want Sorting as Case senstavie then you can make it "True"

.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

Custom Sorting

In custom sorting, we do the sorting on the basis of a list of Values. For example: sorting by Month’s or Day’s Name if we do the simple sorting then, all the Months will be sorted alphabetically and so the order will no longer be valid. For such sorting, we create a custom list in an Ascending or Descending Order, how you want.

Note: CustomOrder can have any number of Values in any Order. Sorting will be done exactly in the same order.

For Example:

For Month Sorting:

CustomOrder:= "Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec"

For Some Custom Sorting:

CustomOrder:= "Passed,Failed,Inquiry,Defect"

Sub Sorting()

'---  First Select the Range which you want to sort 

Range("I8:L15").Select

'---  Now clear the Sort fields before sorting. This is important otherwise sorting will not take place

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear

'---  For custom Sorting we need to add the custom list in same order how you want to sort.

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("I8"), SortOn:=xlSortOnValues, _
Order:=xlAscending, CustomOrder:= "Mon,Tue,Wed,Thu,Fri,Sat,Sun", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort

'---  Select the Range on which you want to perform the Sort. 
'---  If it includes the header row as well then put .Header=xlYes, else xlNo 

.SetRange Range("I8:L15")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub