创建新的排序字段，并返回一个 SortFields 对象。
语法
表达式。添加 (键、 SortOn、 Order、 CustomOrder、 DataOption)
表达 一个代表 SortFields 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Key | 必需 | 区域 | 指定用于排序的键值。 |
| SortOn | 可选 | Variant | 一个 XlSortOn 值，该值指定用于排序的单元格的哪个属性。 |
| Order | 可选 | Variant | 指定排序顺序的 XlSortOrder 值。 |
| CustomOrder | 可选 | Variant | 指定是否应使用自定义排序次序。 |
| DataOption | 可选 | Variant | 一个 XlSortDataOption 值，该值指定如何对文本进行排序。 |
返回值
SortField
备注
此 API 不包括对数据类型的支持，例如 Geography 或 Stocks。 若要基于这些类型之一的 SubField 定义排序顺序，请参阅 Add2 方法。
示例
本示例按 Column1 按升序对表（Sheet1 上的 Table1）进行排序。
先调用 Clear 方法，以确保清除上一个排序，以便可以应用新排序。
调用 Sort 对象以将添加的排序应用于 Table1。
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Add _
Key:=Range("Table1[[#All],[Column1]]"), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。