在VBA中，Worksheet.Sort方法如何使用，举例说明-CSDN博客

本文链接：https://blog.csdn.net/fsyuheduo/article/details/143796066

==标题==

在VBA中，Worksheet.Sort方法如何使用，举例说明

==正文==

前面学习Range.Sort是对指定范围内的数据进行排序

在VBA中，Range.sort方法如何使用，举例说明

在学习中还看到有一个Worksheet.Sort也就是工作表也有Sort方法,下面我们一起来学习一下。

##概述

在VBA中，Worksheet.Sort方法用于对工作表中的数据进行排序。该方法允许你指定排序的范围、排序的列、排序的顺序（升序或降序）等。

###语法

expression.Sort(Key1, Order1, Key2,Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)

###参数说明

● Key1: 指定第一个排序字段，可以是单元格区域或字符串。

● Order1: 指定Key1的排序顺序，可以是xlAscending（升序）或xlDescending（降序）。

● Key2: 指定第二个排序字段，可选。

● Order2: 指定Key2的排序顺序，可选。

● Key3: 指定第三个排序字段，可选。

● Order3: 指定Key3的排序顺序，可选。

● Header: 指定第一行是否包含标题，可以是xlYes（包含标题）、xlNo（不包含标题）或xlGuess（自动检测）。

● OrderCustom: 指定自定义排序顺序的索引，可选。

● MatchCase: 指定是否区分大小写，可以是True或False。

● Orientation: 指定排序方向，可以是xlTopToBottom（从上到下）或xlLeftToRight（从左到右）。

● SortMethod: 指定排序方法，可以是xlPinYin（拼音排序）或xlStroke（笔画排序）。

● DataOption1: 指定Key1的排序选项，可以是xlSortNormal（默认）或xlSortTextAsNumbers（将文本作为数字排序）。

● DataOption2: 指定Key2的排序选项，可选。

● DataOption3: 指定Key3的排序选项，可选。

##示例场景

假设我们有一个Excel工作表，其中包含员工信息，包括姓名、部门和工资。我们的目标是对这个列表按部门升序排序，如果部门相同，则按工资降序排序。

###示例代码

Sub SortData()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")' 修改为你的工作表名称
With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ws.Range("B2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=ws.Range("C2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .SetRange ws.Range("A1:C5")' 修改为你需要排序的范围
        .Header = xlYes ' 表示第一行是标题行
        .MatchCase =False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
EndWith
EndSub

###解释

● Set ws = ThisWorkbook.Sheets("Sheet1"): 设置要操作的工作表对象。

● .SortFields.Clear: 清除所有现有的排序条件。

● .SortFields.Add: 添加新的排序条件。第一个参数Key指定了排序的关键字段；Order参数指定了排序的方向（升序或降序）。

● .SetRange: 定义要排序的数据范围。

● .Header = xlYes: 指定数据的第一行是标题行，不会被当作数据处理。

● .Apply: 应用排序规则。

==The end==