将常用的排序模式定制为宏，然后将该宏附加在一个按钮上。今后只要点击这个按钮就可以实现自动排序。

第一步：创建宏。（本例用记录宏的方式）

点击开发工具-录制宏。如图：

手动设定排序。关键字选择产品代码-业务员。如图：

排序完成后，点击停止录制宏。如图：

这样排码渗序的宏就创建好了。对代码稍作修改（多余的删除，如果是初学者确定不了的情况下不调整的话问题也不大）迟大脊代码如下：

Sub 我的排序()

'

' 我的排序 Macro

'

'

    Range("A1:G699").Select

    ActiveWorkbook.Worksheets("高级筛选").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("高级筛选").Sort.SortFields.Add Key:=Range("D2:D12"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets("高级筛选").Sort.SortFields.Add Key:=Range("仿冲C2:C12"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("高级筛选").Sort

        .SetRange Range("A1:G12")

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

End Sub

第二步：创建按钮后附加宏。点击开发工具-插入-选择按钮。如图：

插入按钮后制定宏。如图：

对按钮重新命名为：我的排序。这样就完成了。数据变动后需要再排序时，只要点击这个按钮就可以了。如图：