在Excel环境中，排序与筛选往往紧密相连，通常在数据处理时，先进行排序以便于筛选所需信息。在Excel 2007中，新增了Sort对象，这一对象在录制宏时会自动应用。然而，本文主要聚焦于Range对象的Sort方法，尤其对于3个以内字段的排序，操作便捷。该方法的语法如下：
Range对象.Sort(Key1,Order1 As XlSortOrder, Key2,Type,Order2 As XlSortOrder, Key3,Order3 As XlSortOrder, Header As XlYesNoGuess, OrderCustom,MatchCase, Orientation As XlSortOrientation, SortMethod As XlSortMethod, DataOption1 As XlSortDataOption, DataOption2 As XlSortDataOption, DataOption3 As XlSortDataOption)
理解每个参数至关重要：
所有参数均非必填。Key1、Key2、Key3用于指定排序字段，确定要排序的值。然而，Key2、Key3不能用于排序数据透视表。Order1、Order2、Order3分别决定Key1、Key2、Key3指定值的排序顺序，常量值为xlDescending（降序）或xlAscending（升序）。Type参数仅用于数据透视表，指定排序元素为标签或值。Header参数用于判断第一行是否包含标题信息，默认值为xlNo，若希望Excel尝试识别标题，设置为xlGuess。OrderCustom参数指定自定义排序顺序，匹配到偏移量进行排序。MatchCase参数设置为True执行区分大小写的排序，False则不区分大小写，不适用于数据透视表。Orientation参数默认按行排序，数据垂直排列，通过指定参数调整为按列排序。SortMethod参数在非英语语言中指定排序方法。DataOption参数有3个，用于指定排序时对文本和数字的处理：默认xlSortNormal对数字和文本排序，xlSortTextAsNumbers将文本视为数据排序。DataOption1、DataOption2、DataOption3分别针对Key1、Key2、Key3指定的单元格区域中的文本排序。
以示例工作表为例，演示了如何使用Sort方法进行排序。首先，以“性别”作为排序字段，升序排列，第一行作为标题信息。接下来，添加排序字段：以“性别”为第一排序字段升序排列，以“总分”为第二排序字段降序排列。代码如下：
Sub testSort1()
Dim rng As Range
Set rng = Range("A1:G10")
rng.Sort Key1:="性别", Order1:=xlAscending, Header:=xlYes
End Sub
运行代码后的结果如下图。
进一步，添加第二个排序字段，代码如下：
Sub testSort2()
Dim rng As Range
Set rng = Range("A1:G10")
rng.Sort Key1:="性别", Order1:=xlAscending, Key2:="总分", Order2:=xlDescending, Header:=xlYes
End Sub
Excel将依据“性别”升序排列，再依据“总分”降序排列，结果如下图所示。
示例1：查找满足特定条件的所有数据并按顺序排列。仍以工作表为例，目标是获取所有男同学的成绩并按总分降序排列。通过结合排序与自动筛选功能实现。
代码如下：
Sub testSort3()
Dim rng As Range
Set rng = Range("A1:G10")
rng.Sort Key1:="性别", Order1:=xlAscending, Key2:="总分", Order2:=xlDescending, Header:=xlYes
rng.AutoFilter Field:=3, Criteria1:="男"
End Sub
运行代码后的效果如下图。
示例2：查找满足特定条件的不重复数据。同样以示例工作表为例，目标是获取男女同学中总分最高的同学数据记录。通过结合排序与高级筛选功能实现。
代码如下：
Sub testSort4()
Dim rng As Range
Set rng = Range("A1:G10")
rng.Sort Key1:="性别", Order1:=xlAscending, Key2:="总分", Order2:=xlDescending, Header:=xlYes
rng.Columns(3).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End Sub
示例3：双击列标题自动排序。在工作表中双击列标题，会按照标题内容升序排列，再次双击同一列标题，降序排列。代码如下：
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Range("A1").CurrentRegion
...
End Sub
示例4：根据活动单元格排序。在示例工作表中，当单元格在A1:G10区域内移动时，将根据活动单元格所在列进行降序排序。代码如下：
Sub Worksheet_SelectionChange(ByVal Target As Range)
...
End Sub
示例5：根据颜色排序。这是Excel 2013 VBA帮助文档中的例子，按单元格背景色进行排序。示例代码如下：
Sub SortbyColor()
...
运行代码后的结果如下图所示。
示例6：排序有部分相同数据的行。面对课程组合存在多种可能（例如“语文、数学、英语”、“数学、体育、历史”、“体育、化学、生物”），要求将相同组合的课程排在一起。代码如下：
Sub SortSameData()
...
示例7：自定义排序。按照单元格区域I1:I5中的顺序对A1:G10进行排序，确保无论数据如何变化，I1:I5中的5名同学始终按照特定顺序排列。代码如下：
Sub CustomSort()
...
这些示例展示了Range对象的Sort方法在实际应用中的多样性和灵活性，从基本排序到复杂排序条件的处理，都展现了其强大的功能。通过掌握这些方法，用户能够高效地管理数据，实现更精确的数据筛选与排序需求。
温馨提示：答案为网友推荐，仅供参考