Excel宏命令录制排序

如有多个公司，想要统计每月对应公司的相应数据，可以按照组合排序筛选，按照日期第一顺序、公司第二顺序排序。

启用Excel录制宏，开始录制宏，之后进入排序菜单，添加按照日期排序的条件后，再添加按照公司排序。停止录制宏。可以生成一个按钮放到某个单元格内，与刚创建的宏连在一起，点击一下按钮即可实现相应的排序。

类似宏命令代码如下：

Sub 年月公司()
'
' 年月公司 宏
'

'
    Range("表1[[#Headers],[年月]").Select
    ActiveWorkbook.Worksheets("sheet1").ListObjects("表1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("sheet1").ListObjects("表1").Sort.SortFields.Add Key:= _
        Range("表1[年月]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    ActiveWorkbook.Worksheets("sheet1").ListObjects("表1").Sort.SortFields.Add Key:= _
        Range("表1[公司]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("sheet1").ListObjects("表1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

10162020200450UTC+8:00