сортировать по возрастанию/по убыванию vba excel not working

Question

Я создаю макрос, сортирующий по возрастанию/убыванию диапазон ячеек в соответствии с его значениями. Проблема заключается в том, что она не работает со следующими данными:

11_NR-10.pdf 16_NR-10.pdf 1_NR-10.pdf 6_NR-10.pdf

Когда я пытаюсь разобраться , я получаю следующий результат:

1_NR-10.pdf 11_NR-10.pdf 16_NR-10.pdf 6_NR-10.pdf

ли кто-нибудь знает, как мне помочь?

Код:

Dim xlSort As XlSortOrder 
Dim LastRow As Long 

With ActiveSheet 

    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 

    If (.Range("A3").Value > .Range("A" & CStr(LastRow))) Then 
     xlSort = xlAscending 
    Else 
     xlSort = xlDescending 
    End If 

    .Range("A3:A" & LastRow).Sort Key1:=.Range("A3"), Order1:=xlSort, Header:=xlNo, _ 
     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
     DataOption1:=xlSortNormal 


End With 
ActiveWorkbook.Save 

Answer 1

У меня есть функция ДОПОЛНИТЕЛЬНОЕ только для этого. Полный непроверенный код ниже:

Public Sub MySuperSort() 
    Dim sortType31 As Integer, lastRow As Long 

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row 

    sortType = ([A3] > Cells(lastRow, 1)) 
    Call MyOrder(Range(Cells(3, 1), Cells(lastRow, 1)), 1, False) 

    ActiveWorkbook.Save 
End Sub 

Private Sub MyOrder(ByVal tableRange As Range, ByVal columnIndex As Integer, ByVal ascending As Boolean, Optional ByVal header As Boolean = True) 
    Dim orderBy As Integer, hasHeader As Integer 
    orderBy = IIf(ascending, xlAscending, xlDescending) 
    hasHeader = IIf(header, xlYes, xlNo) 

    With tableRange.Parent 
     .Sort.SortFields.Clear 
     .Sort.SortFields.Add _ 
      Key:=Intersect(tableRange, tableRange.Columns(columnIndex)), _ 
      SortOn:=xlSortOnValues, Order:=orderBy, DataOption:=xlSortNormal 
     With .Sort 
      .SetRange tableRange 
      .header = hasHeader 
      .MatchCase = False 
      .Orientation = xlTopToBottom 
      .SortMethod = xlPinYin 
      .Apply 
     End With 
    End With 
End Sub