VBA区域排序录制的一段代码，怎么能简写下

heshushan

排序区域从A4开始 一直到F999999


    With ActiveSheet.Sort
        With .SortFields
            .Clear
            .Add Key:=Range("A4"), Order:=xlAscending
        End With
        .Header = xlNo
        .MatchCase = False
        .SortMethod = xlPinYin
        .Orientation = xlSortColumns
        .SetRange Rng:=Selection
        .Apply
    End With


麻烦大神们了

在线等

网海遨游

你参考下:
排序　
[a2:c44].Sort [a2],1,,[b2],2,[c2],2,header:=1
先按A2,再按B2,最后按C2排序

1是升序；2是降序；header:=(0自动判断；1有标题；2无标题）；SortMethod:=(1是拼音；2是笔画）

heshushan

网海遨游 发表于 2020-2-24 14:13
你参考下:
排序　
[a2:c44].Sort [a2],1,,,2,[c2],2,header:=1

有没有一个简单的方法能排序的可以排序日期 客户 金额 结算记录等等

网海遨游

没有附件,不能测试 .

heshushan

网海遨游 发表于 2020-2-24 15:49
没有附件,不能测试 .

佩戴附件了

网海遨游

楼主,你最好有个模拟排序的效果.

网海遨游

目前,给你提供这个排序

Sub 排序()
   Dim r
   '排序  日期[a3], 客户[b3], 金额[c3]
  r = Cells(Rows.Count, 1).End(3).Row
  Range("a3:f" & r).Sort [a3], 1, , [b3], 2, [c3], 2, Header:=1'日期是第1关键字
End Sub