关于EXCEL排序问题？

录制一个宏，稍微改改，用e799bee5baa6e59b9ee7ad94364Worksheet_Change事件触发就行

Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Column = 8 And Target.Row > 1 Then

 Call px

 End If

 Target.Offset(1, 0).Select

End Sub

Private Sub px()

aa = Range("a65536").End(xlUp).Row

    Rows("1:1").Select

    Range(Selection, Selection.End(xlDown)).Select

    Me.Sort.SortFields.Clear

    Me.Sort.SortFields.Add Key:=Range("H2:H11"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

    With Me.Sort

        .SetRange Range("A1:H" & Range("a65536").End(xlUp).Row)

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    Range("i2:i10000").ClearContents

    r = Range("h65536").End(xlUp).Row

  For i = 2 To r

     Cells(i, 9) = Application.Rank(Cells(i, 8), Range("h2:h" & r))

  Next

End Sub

C1=IF(ISERROR(VLOOKUP(A1,B:B,1,0)),"",VLOOKUP(A1,B:B,1,0))

下拉公式

文件，选项，高级，编辑自定义列表。

输入周一路线到周日路线后，添加，确定。

选择数据区域任一单元格，数据，排序，设置如下

列A，次序，从下拉选项中选择 自定义序列，选择最后面的刚才加的自定义序列，确定。

直接排知序会是A1、A10~A19、A2、A20~A29，因为文本格式下A1<A10<A2，如果希望A1、道A2的顺序，一是改为两位数字：A01、A02、A03、...、A09、A10
另外就是拆分为两列，字母一列，数字一专列，选自定义排序，两个关键字，就可以达到效果，最后删除多余的两列。属