多关键字排序

　　本文转载自公众号：VBA168，作者：两个聪。
　　多关键字排序
　　使用Range对象的Sort方法对区域进行排序时，同时最多只能指定3个关键字，当需要按照超过3个关键字对区域进行排序时，可以通过多次执行Sort方法实现。需要注意的是，在排序时应按照各关键字的倒叙顺序。例如，如果按照ABCD的关键字顺序进行排序，则应按DCBA的顺序执行Sort方法。
　　图1带排序数据
　　如图1所示数据表中，需要按总成绩、基础知识、教育学和心理学的成绩降序排列，实例代码如下。
　　SubSortByKeysA（）WithRange（A1）。SortKey1：心理学，order1：xlDescending，Header：xlYes。SortKey1：教育学，order1：xlDescending，Header：xlYes。SortKey1：基础知识，order1：xlDescending，Header：xlYes。SortKey1：总成绩，order1：xlDescending，Header：xlYesEndWithEndSub
　　运行以上过程，结果如图2所示。
　　图2数据排序结果
　　使用Range对象的Sort方法对区域进行超过3个关键字排序时，需要多次执行Sort方法，而通过Worksheet对象的Sort方法则可以一次完成。如下示例代码实现与上面示例代码相同的排序功能。
　　SubMoreKeySort（）WithActiveSheet。Sort。SortFields。Clear。AddKey：Range（G1），SortOn：xlSortOnValues，Order：xlDescending。AddKey：Range（B1），SortOn：xlSortOnValues，Order：xlDescending。AddKey：Range（C1），SortOn：xlSortOnValues，Order：xlDescending。AddKey：Range（D1），SortOn：xlSortOnValues，Order：xlDescendingEndWithWithActiveSheet。Sort。SetRangeRange（A1）。CurrentRegion。HeaderxlYes。ApplyEndWithEndSub
　　第3行代码清除工作表所有的SortFields对象。
　　第47行分别在Sort对象中添加SortFields对象。SortFields对象的Add方法创建新的排序字段，并返回SortFields对象，其语法格式如下。
　　Add（Key，SortOn，Order，CustomOrder，DataOption）
　　该方法的各参数分别对应于Range对象Sort方法的参数。
　　第10行代码指定Sort对象的排序区域。
　　第11行代码指定排序区域包含标题。
　　第12行代码应用工作表排序。