Vba excel сортировка примеры

Excel VBA Sort Range

Sorting a range in VBA is done by the range.sort method. It is a property of the range method with which a user can sort a range in order. The arguments for this function are: Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3. All the arguments for this function are optional.

As part of data organizing or data structuring, it is important to sort the data and make it organized. A similar thing is also available with VBA. A common question about new learners of VBA is how we can use this sort of option as part of VBA automation. This article guides you through the VBA Sort range in detail.

With Excel, we are all familiar with the sort option available under the DATA tab.

Sort Option in VBA

To use the sort option, first, we need to decide what our data range is and mention the same data range by using the RANGE object in VBARange is a property in VBA that helps specify a particular cell, a range of cells, a row, a column, or a three-dimensional range. In the context of the Excel worksheet, the VBA range object includes a single cell or multiple cells spread across various rows and columns.read more. Then, only we can access the “Sort” option in VBA. For example, assuming my data range is from A1 to D10, we can provide the data range as follows.

Code:

Sub Sort_Range_Example()

  Range ("A1:D10")

End Sub

Now, put a dot and select the “SORT” method.

Code:

Sub Sort_Range_Example()

  Range("A1:D10").Sort

End Sub

Below is the syntax of the SORT method of range. Though syntax has different arguments, we do not need all of them for our VBA codingVBA code refers to a set of instructions written by the user in the Visual Basic Applications programming language on a Visual Basic Editor (VBE) to perform a specific task.read more. So, we need only a few elements.

[Key1]: In the data range we are sorting, we need to specify which column we need to sort. For example, in the data range of A1: D10, if we want to sort the data based on column B, then [Key1] will be Range(“B1”).

[Order1]: The mentioned column in the [Key1] argument should sort in what order? We can choose two options here: “xlAscending” or “xlDescending.”

Header: The mentioned data range has headers or not? If yes, we can supply “xlYes,” or else we can supply “xlNo.”

Example of Sort Range in VBA

Let us take the example of the Excel VBA sort range to understand this better.

You can download this VBA Sort Range Excel Template here – VBA Sort Range Excel Template

Look at the below data structure.

We have data from A1 to E17. First, we will sort the data based on “Country-wise.” Then, follow the below steps to write the code to sort the data.

Step 1: Start the excel macroA macro in excel is a series of instructions in the form of code that helps automate manual tasks, thereby saving time. Excel executes those instructions in a step-by-step manner on the given data. For example, it can be used to automate repetitive tasks such as summation, cell formatting, information copying, etc. thereby rapidly replacing repetitious operations with a few clicks.
read more procedure.

Code:

Sub Sort_Range_Example()

End Sub

Step 2: First, mention the data range using the RANGE object.

Code:

Sub Sort_Range_Example()

  Range ("A1:E17")

End Sub

Step 3: Now, choose the “Sort” method of the Range object.

Code:

Sub Sort_Range_Example()

  Range("A1:E17").Sort

End Sub

Step 4: Since we are sorting the data based on “Country-wise,” our Key 1 argument column will be Range (“B1”).

Code:

Sub Sort_Range_Example()

  Range("A1:E17").Sort Key1:=Range("B1"),

End Sub

Step 5: Once we mention the required column, we need to mention in what order we need to sort the data, and “Order1” will be the “xlAscending” order.

Code:

Sub Sort_Range_Example()

   Range("A1:E17").Sort Key1:=Range("B1"), Order1:=xlAscending,

End Sub

Step 6: Our data has headers so that that header will be “xlYes.”

Code:

Sub Sort_Range_Example()

  Range("A1:E17").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlYes

End Sub

We have mentioned all the elements which are required to sort the data. Then, execute the code by pressing the F5 function and key and see the result.

Output:

The data has been sorted based on country names from A to Z.

Now, assume we need to sort the data based on country-wise. Also, we need to sort the “Gross Sales” from highest to lowest. In such cases, we also need to use Key2 and Order2 arguments.

After mentioning Key1 and Order1, let us choose Key2.

Code:

Sub Sort_Range_Example()

  Range("A1:E17").Sort Key1:=Range("B1"), Order1:=xlAscending,Key2:=

End Sub

Since we are sorting the data based on the “Gross Sales” column, our Key2 column name will be Range(“D1”).

Code:

Sub Sort_Range_Example()

  Range("A1:E17").Sort Key1:=Range("B1"), Order1:=xlAscending,Key2:=Range("D1"),

End Sub

Once the Key2 is specified, we need to decide on the sorting pattern of whether it is ascending order or descending order in the Order2 argument. Since we are sorting the sales value from largest to smallest, we can choose the “xlDescending” order.

Code:

Sub Sort_Range_Example()

  Range("A1:E17").Sort Key1:=Range("B1"), Order1:=xlAscending, Key2:=Range("D1"),
  Order2:=xlDescending, Header:=xlYes

End Sub

After that, mention the header argument as “xlYes.” Now, run the code and see what happens.

Output:

Previously, it was sort based only on “Country-wise.” But this time, it sorted based on “Country-wise” first and then on “Gross Sales” from highest to lowest.

Like this, we can use the “Sort” method in VBA to organize the data.

Things to Remember about Excel VBA Sort Range

• The sort is a method available in VBA. To access this method, we need to specify the range of cells we will sort.
• If the data range includes headers, we need to choose the header option as “xlYes.” If not, we can choose “xlNo.”

Recommended Articles

This article is a guide to VBA Sort Range. Here, we discuss how to sort range using the specific column in VBA, Excel example, and downloadable Excel templates. You may also look at these useful functions in Excel: –

• Pivot Table Sort
• VBA Variable Range
• Named Range in VBA
• UsedRange in VBA

Excel VBA Sort

There are different ways to sort the data in Microsoft Excel. There is a sort icon under Excel Data tab ribbon from where you can sort your data in a jiffy and get the results. Why there is a need to write the complex VBA code then?

You need to keep it in your mind every time, VBA codes are there to automate the things. Suppose you have a data which gets updated every now and then. Maybe every Day, Weekly, Monthly, etc. and you need your data in a specific sorted manner. In such cases, VBA SORT function can be used and will come out as a handy tool for your reference.

VBA has a Range.Sort method to sort the data for you. Where Range specifies the range of cells which we want to sort out in ascending or descending order.

The syntax for Range.Sort is as given below:

Where,

• Key – Column/Range you need to sort. Ex. If you want to sort cells A1:A10, you should mention Range(A1:A10)
• Order – This is the parameter which allows you to sort the data in ascending or descending order.
• Header – This is the parameter which specifies whether your column/range has headers or not.

These three parameters are enough for our proceedings. However, there are some other parameters like MatchCase, SortMethod, etc. which you can always explore and see how they work.

How to Use Excel VBA Sort Function?

We will learn how VBA Sort can be used to sort the column without headers, a column with headers and Multiple columns with examples in excel.

You can download this VBA Sort Excel Template here – VBA Sort Excel Template

VBA Sort Function – Example #1

Sorting single column without a header

Suppose you have a column with names as shown below and all you need is to sort this data alphabetically in ascending or descending order.

Follow the below steps to use Sort function in VBA.

Step 1: Define a new sup-procedure under a module and create a macro.

Code:

Sub SortEx1()

End Sub

Step 2: Use Range.Sort function to be able to sort this column in ascending order.

Code:

Sub SortEx1()

Range("A1", Range("A1").End(xlDown)).Sort

End Sub

Here you are giving range starting from cell A1 to the last used/non-empty cell (see the function .End(xlDown)) to Range.Sort function.

Step 3: Now, input the argument values.

Code:

Sub SortEx1()

Range("A1", Range("A1").End(xlDown)).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo

End Sub

As we have discussed earlier, Key, Order, and Header are the important and necessary arguments to be provided. We have given Range(“A1”) as the column starting range which we need to sort. Order is provided as Ascending and Header as No (Which means column doesn’t have header).

This code will check for all non-empty cells starting from A1 and then sort them in ascending order starting from cell A1.

Step 4: Run this code by hitting F5 or Run button manually and see the output.

If you can compare this with the image at the start of this example, you can see that names are sorted in ascending order.

VBA Sort Function – Example #2

Sorting a Single Column with Header

Suppose you have a column with the header as shown below. And you wanted to sort this column in ascending or descending order.

Follow the below steps to use Sort function in VBA.

Step 1: Define a new sub-procedure under a new model to store the macro.

Code:

Sub SortEx2()

End Sub

Step 2: Use Sheets(“Example #2”) to specify which sheet your data is.

Code:

Sub SortEx2()

Sheets ("Example #2")

End Sub

Step 3: Use Range(“A1”).Sort in front of the above code line to make it a sort function.

Code:

Sub SortEx2()

Sheets("Example #2").Range("A1").Sort

End Sub

Step 4: Provide Key1 as Range(“A1”) to sort the data from cell A1, Order1 in order to sort the data in ascending or descending order and Header as Yes in order to let the system know that first row is header in your data.

Code:

Sub SortEx2()

Sheets("Example #2").Range("A1").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes

End Sub

Step 5: Run this code by hitting F5 or Run button manually and See the output.

Here, the data from Example #2 of given excel workbook is sorted in ascending order given that it has a header. Which means that, while sorting this data, first row (which contains Emp Name) is neglected because it is considered as a header for this data in column A.

You can also sort the same data in descending order of alphabets. All you need to do is change the order from ascending to descending.

Step 6: Change order1 to descending in order to sort the data in descending order.

Code:

Sub SortEx2()

Sheets("Example #2").Range("A1").Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlYes

End Sub

Step 7: Run the code and see an output as given below.

You can see that the data is sorted in Descending order.

VBA Sort Function – Example #3

Sorting Multiple Columns with Headers

Till now, we have covered how to sort a single column data in ascending or descending order (without header and with header). What if you have data which you need to sort based on multiple columns? Is it possible to write a code for the same?

The answer is, “Yes, surely it can be done!”

Suppose you have data as given below:

You wanted to sort this data first by Emp Name and then by Location. Follow the below steps to see how we can code it in VBA.

Step 1: Define a new sub-procedure to add a macro under a new module.

Code:

Sub SortEx3()

End Sub

Step 2: Use a With… End With statement to add multiple sort conditions in a single loop.

Code:

Sub SortEx3()

With ActiveSheet.Sort

End Sub

Step 3: Now, use SortFields.Add to add the multiple sort conditions in the same worksheet.

Code:

Sub SortEx3()

With ActiveSheet.Sort

   .SortFields.Add Key:=Range("A1"), Order:=xlAscending
   .SortFields.Add Key:=Range("B1"), Order:=xlAscending

End Sub

Step 4: Decide sheet range to be sorted and header In next step.

Code:

Sub SortEx3()

With ActiveSheet.Sort

    .SortFields.Add Key:=Range("A1"), Order:=xlAscending
    .SortFields.Add Key:=Range("B1"), Order:=xlAscending
    .SetRange Range("A1:C13")
    .Header = xlYes

End Sub

Step 5: Use .Apply to apply all these things under with statement and close the loop writing End With.

Code:

Sub SortEx3()

With ActiveSheet.Sort

    .SortFields.Add Key:=Range("A1"), Order:=xlAscending
    .SortFields.Add Key:=Range("B1"), Order:=xlAscending
    .SetRange Range("A1:C13")
    .Header = xlYes
    .Apply
End With

End Sub

Step 6: Run this code by hitting F5 or Run button manually and see the Output.

In this code, ActiveSheets.Sort helps the system identify the sheet under which data is to be sorted. SortFields.Add allows adding two sorting conditions with their order (Ascending in both cases). SetRange allows the system to set the range from A1 to C13. You can move this range up as well. Apply statements allows the system to apply all the changes made in With loop.

Finally, you’ll get the data which is sorted based on Emp Name First and then by Location.

Things to Remember

• Under VBA Sort, you can create named ranges instead of cell references and use the same. Ex. If you have created the named range for cell A1:A10 as “EmpRange”, you can use it under Range.Sort like Range(“EmpRange”).
• You can sort the data in ascending as well as in descending order same as that of in excel.
• If you are not sure whether your data has a header or not, you can use xlGuess under Header section to let system guess whether the first line of data is a header or not.

Recommended Articles

This has been a guide to Excel VBA Sort. Here we discussed VBA Sort and how to use Excel VBA Sort Function along with practical examples and downloadable excel template. You can also go through our other suggested articles –

1. VBA Match
2. VBA Month
3. VBA While Loop
4. VBA XML