请教多列依次执行排序的句法

天地一相 · 发表于 2023-4-13 14:41

本帖最后由天地一相于 2023-4-13 16:53 编辑

感谢帮助！例如对A,B,C列按先B，后A，再C列的顺序执行升序操作，目前使用的是3段代码，依次执行。问：是否有一种写法，可在一段代码里，就能实现自定义执行顺序对多列执行降序操作。

ykcbf1100 · 发表于 2023-4-13 14:47

本帖最后由 ykcbf1100 于 2023-4-13 14:50 编辑

现在都学会不上附件了？

chxw68 · 发表于 2023-4-13 14:47

Sub test()
With ActiveSheet
.Range("a1:j100").Sort key1:=.Range("b2"), order1:=xlAscending, key2:=.Range("a2"), order2:=xlAscending, key3:=.Range("c2"), order3:=xlAscending, Header:=xlNo
End With
End Sub

复制代码

洋务德雷 · 发表于 2023-4-13 14:53

ORDER BY B,A,C DESC

天地一相 · 发表于 2023-4-13 15:07

ykcbf1100 发表于 2023-4-13 14:47
现在都学会不上附件了？

谢谢，也感谢指正。原想可能就是一句话的事情用不上附件，以后改正。

grf1973 · 发表于 2023-4-13 15:08

感觉依次执行是有问题的啊。第二次排序会把第一次排序给冲掉。

ykcbf1100 · 发表于 2023-4-13 15:09

天地一相发表于 2023-4-13 15:07
谢谢，也感谢指正。原想可能就是一句话的事情用不上附件，以后改正。

没有附件，代码给你，你不一定能够明白代码的意思，在实际使用中，有可能还得继续再问。

fanyoulin · 发表于 2023-4-13 15:13

两种方法都可以：
1、依次排序可以执行数量很多的排序，十几个关键字的排序都没有问题；
2、一次排序代码简单，但排序个数有上限，一行代码最多能写进去3个关键字排序；

天地一相 · 发表于 2023-4-13 15:14

ykcbf1100 发表于 2023-4-13 15:09
没有附件，代码给你，你不一定能够明白代码的意思，在实际使用中，有可能还得继续再问。

是呀，发现就是看不懂。所有赶紧做了附件上传了。还请再麻烦你一下。

天地一相 · 发表于 2023-4-13 15:17

grf1973 发表于 2023-4-13 15:08
感觉依次执行是有问题的啊。第二次排序会把第一次排序给冲掉。

谢谢，是的，但没事，里面隐藏着特殊需求，非得按顺序依次降序。

		自动登录	找回密码
密码			免费注册

[已解决] 请教多列依次执行排序的句法