Excel VBA 怎么排序
发布网友
发布时间：2022-04-26 20:28
共4个回答
热心网友
时间：2023-10-29 15:35
2、 参数位置引用，即按照上述Sort命令的参数顺序直接应用，
如： Range("A1:I19").Sort key1:=Range("G3") 即第1位置参数即为key1
3、Order1、Order2、Order3
这些Order是排序的顺序模式指定参数。即： A-Z升序、或Z-A降序
参数的模式名称为：
A-Z升序= xlAscending 或直接=1
Z-A降序= xlDescending 或直接=2
带参数名引用时：
Order1:=xlAscending 或 Order1:= 1
参数位置引用时，紧跟key后面。（但注意key2和Order2之间要隔一个Type参数）
4、Header
即是否有标题行参数，一共有3个值：
Header:= xlGuess=0 或xlYes=1 或 xlNo=2
即=xlGuess、或=0时，工作表自己判断
=xlYes、或=1时，强制第1行为列标题，即第1行【不参与排序】
=xlNo、或=2时，强制没有列标题。即第1行【也参与排序】
带参数名引用时：
如： Header:= xlGuess
参数位置引用时，在第7个逗号之后。
（如果key只有1个时，要连续空6个逗号，
如：Range("A1:I19").Sort Range("A1"), 1, , , , , , 2 （order1之后连续写6个逗号）
5、MatchCase 是否匹配大小写
MatchCase:=False 、或=0 不区分大小写
MatchCase:=True 、或=1 区分大小写(Case Sensitive)
6、Orientation 排序方向
一般为同一列中从上到下各行进行排序：Orientation:= xlTopToBottom 、或=1
如果是： 同一行中从左到右各列进行排序，则为：Orientation:= xlLeftToRight、或=2
7、SortMethod 排序方法
按拼音排序： SortMethod:= xlPinYin 、或=1 (Use phonetic info)
按笔画排序： SortMethod:= xlStroke、或=2
8、 DataOption1 按数值或按文本排序
DataOption1:= xlSortNormal
9、以上综合示例为： 按参数名引用：
Range("A1:I19").Sort key1:=Range("G3"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, SortMethod:=xlPinYin, _
DataOption1:=xlSortNormal
直接按参数位置：
Range("A1:I19").Sort [G3], 1, , , , , ,0, 1, 0, 1, 1,1
或根据默认为：Range("A1:I19").Sort [G3], 1
热心网友
时间：2023-10-29 15:36
看例子吧。。。
需要定义一个公式。。
a：
=LARGE((Sheet1!$A$1:$A$15=Sheet1!A1)*(Sheet1!$B$1:$B$15),ROW(INDIRECT("1:" & COUNTIF(Sheet1!$A$1:$A$15,Sheet1!A1))))
再在C1输入：
=match(B1,a,0)
下拉即可。
热心网友
时间：2023-10-29 15:36
文件发送到
处理好来认领
热心网友
时间：2023-10-29 15:37
Sub 排序()
With ActiveWorkbook.Worksheets("表").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal '降序排列
.SetRange Worksheets("表").Range("A2:C13")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
升序为Order:=xlAscending
热心网友
时间：2023-10-29 15:35
2、 参数位置引用，即按照上述Sort命令的参数顺序直接应用，
如： Range("A1:I19").Sort key1:=Range("G3") 即第1位置参数即为key1
3、Order1、Order2、Order3
这些Order是排序的顺序模式指定参数。即： A-Z升序、或Z-A降序
参数的模式名称为：
A-Z升序= xlAscending 或直接=1
Z-A降序= xlDescending 或直接=2
带参数名引用时：
Order1:=xlAscending 或 Order1:= 1
参数位置引用时，紧跟key后面。（但注意key2和Order2之间要隔一个Type参数）
4、Header
即是否有标题行参数，一共有3个值：
Header:= xlGuess=0 或xlYes=1 或 xlNo=2
即=xlGuess、或=0时，工作表自己判断
=xlYes、或=1时，强制第1行为列标题，即第1行【不参与排序】
=xlNo、或=2时，强制没有列标题。即第1行【也参与排序】
带参数名引用时：
如： Header:= xlGuess
参数位置引用时，在第7个逗号之后。
（如果key只有1个时，要连续空6个逗号，
如：Range("A1:I19").Sort Range("A1"), 1, , , , , , 2 （order1之后连续写6个逗号）
5、MatchCase 是否匹配大小写
MatchCase:=False 、或=0 不区分大小写
MatchCase:=True 、或=1 区分大小写(Case Sensitive)
6、Orientation 排序方向
一般为同一列中从上到下各行进行排序：Orientation:= xlTopToBottom 、或=1
如果是： 同一行中从左到右各列进行排序，则为：Orientation:= xlLeftToRight、或=2
7、SortMethod 排序方法
按拼音排序： SortMethod:= xlPinYin 、或=1 (Use phonetic info)
按笔画排序： SortMethod:= xlStroke、或=2
8、 DataOption1 按数值或按文本排序
DataOption1:= xlSortNormal
9、以上综合示例为： 按参数名引用：
Range("A1:I19").Sort key1:=Range("G3"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, SortMethod:=xlPinYin, _
DataOption1:=xlSortNormal
直接按参数位置：
Range("A1:I19").Sort [G3], 1, , , , , ,0, 1, 0, 1, 1,1
或根据默认为：Range("A1:I19").Sort [G3], 1
热心网友
时间：2023-10-29 15:36
看例子吧。。。
需要定义一个公式。。
a：
=LARGE((Sheet1!$A$1:$A$15=Sheet1!A1)*(Sheet1!$B$1:$B$15),ROW(INDIRECT("1:" & COUNTIF(Sheet1!$A$1:$A$15,Sheet1!A1))))
再在C1输入：
=match(B1,a,0)
下拉即可。
热心网友
时间：2023-10-29 15:36
文件发送到
处理好来认领
热心网友
时间：2023-10-29 15:37
Sub 排序()
With ActiveWorkbook.Worksheets("表").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal '降序排列
.SetRange Worksheets("表").Range("A2:C13")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
升序为Order:=xlAscending
