求教vba的range.sort方法，需要根据三个字段依次排序，怎么写？

答案:2 悬赏:20 手机版

解决时间 2021-11-10 01:24

提问者网友：謫仙
2021-11-09 18:21

最佳答案

五星知识达人网友：長槍戰八方
2021-11-09 19:54

先用.SortFields.Clear删除排序字段，然后依次添加多个.SortFields.Add排序关键字即可，下面的例子代码在EXCEL2010上执行的：
Sub YgB()
    ActiveWorkbook.Worksheets("标保明细").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("标保明细").Sort.SortFields.Add key:=Range("A2:A3339")
    ActiveWorkbook.Worksheets("标保明细").Sort.SortFields.Add key:=Range("B2:B3339")
    ActiveWorkbook.Worksheets("标保明细").Sort.SortFields.Add key:=Range("C2:C3339")
    With ActiveWorkbook.Worksheets("标保明细").Sort
        .SetRange Range("A1:Y3339")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

全部回答

1楼网友：时间的尘埃
2021-11-09 21:11

录制宏就知道了

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！