Range.Sort 方法 (Excel) |
您所在的位置：网站首页 › excel列数值排序 › Range.Sort 方法 (Excel) |
|
Range.Sort 方法 (Excel)
项目
04/07/2023
对值区域进行排序。 语法表达式。排序 (Key1、 Order1、 Key2、 Type、 Order2、 Key3、 Order3、 Header、 OrderCustom、 MatchCase、 Orientation、 SortMethod、 DataOption1、 DataOption2、 DataOption3) expression 一个表示 Range 对象的变量。 参数 名称 必需/可选 数据类型 说明 Key1 可选 Variant 指定第一个排序字段，作为区域名称 (String) 或 Range 对象;确定要排序的值。 Order1 可选 XlSortOrder 确定 Key1 中指定值的排序顺序。 Key2 可选 Variant 第二个排序字段;对数据透视表进行排序时无法使用。 Type 可选 Variant 指定要在数据透视表中对哪种类型的元素进行排序。 指定 xLSortLabels 以按数据透视表区域的行/列标签区域中的扩展范围所针对的标签排序;当 Key1 使用 R1 表示法另外以值或子/总计区域中的单元格为目标时，指定 xLSortValues。 Order2 可选 XlSortOrder 确定 Key2 中指定的值的排序顺序。 Key3 可选 Variant 第三个排序字段;对数据透视表进行排序时无法使用。 Order3 可选 XlSortOrder 确定 Key3 中指定值的排序顺序。 Header 可选 XlYesNoGuess 指定第一行是否包含标题信息。 默认值为 xlNo。如果希望 Excel 确定标题，指定 xlGuess。 OrderCustom 可选 Variant 指定在自定义排序次序列表中的基于一的整数偏移。 MatchCase 可选 Variant 设置为 True 可执行区分大小写的排序; 设置为 False 可执行不区分大小写的排序;不能与数据透视表一起使用。 Orientation 可选 XlSortOrientation 指定是应按行（默认）还是按列进行排序。 将 xlSortColumns 值设置为 1 以按列排序。 将 xlSortRows 值设置为 2 以按行排序， (这是默认值) 。 SortMethod 可选 XlSortMethod 指定排序方法。 DataOption1 可选 XlSortDataOption 指定如何在 Key1 中指定的范围内对文本进行排序;不适用于数据透视表排序。 DataOption2 可选 XlSortDataOption 指定如何在 Key2 中指定的范围内对文本进行排序;不适用于数据透视表排序。 DataOption3 可选 XlSortDataOption 指定如何在 Key3 中指定的范围内对文本进行排序;不适用于数据透视表排序。 返回值Variant 示例此示例使用 ColorIndex 属性获取 A 列中单元格颜色的值，然后使用该值按颜色对区域进行排序。 Sub ColorSort() 'Set up your variables and turn off screen updating. Dim iCounter As Integer Application.ScreenUpdating = False 'For each cell in column A, go through and place the color index value of the cell in column C. For iCounter = 2 To 55 Cells(iCounter, 3) = _ Cells(iCounter, 1).Interior.ColorIndex Next iCounter 'Sort the rows based on the data in column C Range("C1") = "Index" Columns("A:C").Sort key1:=Range("C2"), _ order1:=xlAscending, header:=xlYes 'Clear out the temporary sorting value in column C, and turn screen updating back on. Columns(3).ClearContents Application.ScreenUpdating = True End Sub 支持和反馈有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。 |
今日新闻 |
推荐新闻 |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |