在vba中按升序排序，最后一行可变

Question

I am having a hard time analyzing the problem in my code. I need to sort ColumnE by ascending order but the problem is the rows that should not be included in the sorting was also sorted.

The highlighted in yellow should not be included in the sorting process. I need to start the sorting in row3.

Here is my code:

        'sort by ascending order
        wsRD.Columns("C:E").Sort key1:=wsRD.Range("E1"), _
        order1:=xlAscending, Header:=xlYes

Can anyone tell me what's wrong in my code? Appreciate your help.

Thank you.

Answer 1

Your selection contains 2 header rows. You can either merge these headers, or set the range in your code as below (change the 9999 as needed):

    'sort by ascending order
    wsRD.Range("C2:E9999").Sort key1:=wsRD.Range("E2"), _
    order1:=xlAscending, Header:=xlYes

Answer 2

The header in the example consists of two rows. And the Header:=xlYes expects only the first row to be a header, thus the second line is taken as part of the values to be sorted.

To fix it, use Range("C1:E" & lastRow5).Sort key1:=Range("E2"), order1:=xlAscending, Header:=xlYes , which takes the lastRow of the fifth column of the ActiveSheet with lastRow(ActiveSheet.Name, 5) .

The whole solution:

Sub TestMe()

    Dim lastRow5 As Long
    lastRow5 = lastRow(ActiveSheet.Name, 5)
    Range("C1:E" & lastRow5).Sort key1:=Range("E2"), order1:=xlAscending, Header:=xlYes

End Sub

Function lastRow(wsName As String, Optional columnToCheck As Long = 1) As Long

    Dim ws As Worksheet
    Set ws = Worksheets(wsName)
    lastRow = ws.Cells(ws.Rows.Count, columnToCheck).End(xlUp).Row

End Function