排序的基本方式

最新推荐文章于 2023-01-31 08:51:15 发布

aigadi

最新推荐文章于 2023-01-31 08:51:15 发布

阅读量651

点赞数

文章标签：算法

本文链接：https://blog.csdn.net/qq_65730580/article/details/127193581

版权

Sub 以选定区域排序()
For i = 1 To 3
    '排序区域
    Dim rng As Range, seet As Worksheet
    Set seet = Sheet1
    Set rng = seet.Range(Cells(1, i), Cells(20, i))
        rng.Select
        seet.Sort.SortFields.Clear
        seet.Sort.SortFields.Add Key:=rng, Order:=xlDescending
        With seet.Sort
            .SetRange rng
            .Apply
        End With
Next
End Sub
Sub 筛选后进行排序()
    Sheet1.Sort.SortFields.Clear
    '排序对象sort；https://learn.microsoft.com/zh-cn/office/vba/api/excel.sort
    With Sheet1.AutoFilter.Sort
        .SortFields.Clear                         '清除工作表里所有排序条件
    '新增排序条件：AutoFilter.sort.sortfields.add2
    'Asc升序，desc降序；枚举：XlSortOn，XlSortOrder，XlSortDataOption
        .SortFields.Add2 Key:=Range("A2:A10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add2 Key:=Range("B2:B