中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

應用場景

對職工信息按照學歷排序(適用于Excel 2007及以上版本)

知識要點

1：Sort.SortFields.Add 方法  創(chuàng)建新的排序字段，并返回一個 SortFields 對象。

2：Sort.SortFields.Clear 方法，清除存儲的排序狀態(tài)

Sub 按學歷排序()

    ActiveSheet.Sort.SortFields.Clear '清除sort對象的字段

    '添加新的排序字段

    ActiveSheet.Sort.SortFields.Add Key:=Range('C2:C' & Cells(Rows.Count, 3).End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, _

                                CustomOrder:='大學,高中,初中,小學', DataOption:=xlSortNormal

    With ActiveSheet.Sort

        .SetRange Range('A2:D' & Cells(Rows.Count, 3).End(xlUp).Row) '指定排序區(qū)域

        .Header = xlNo '不要表頭

        .Apply '執(zhí)行排序

    End With

End Sub