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

ykcbf1100

天地一相 发表于 2023-4-13 15:14
是呀，发现就是看不懂。所有赶紧做了附件上传了。还请再麻烦你一下。

附件供参考。。。

天地一相

fanyoulin 发表于 2023-4-13 15:13
两种方法都可以：
1、依次排序可以执行数量很多的排序，十几个关键字的排序都没有问题；
2、一次排序代码 ...

谢谢，现在用的就是多段代码依次执行的。想简洁点，用一段代码实现，刚好，我就是只有3列需要降序。

天地一相

ykcbf1100 发表于 2023-4-13 15:19
附件供参考。。。

谢谢，测试感觉不对。最终结果和我手动依次降序后不一样。

ykcbf1100

天地一相 发表于 2023-4-13 15:22
谢谢，测试感觉不对。最终结果和我手动依次降序后不一样。

你是三列分别排序？不是多条件？

fanyoulin

天地一相 发表于 2023-4-13 15:20
谢谢，现在用的就是多段代码依次执行的。想简洁点，用一段代码实现，刚好，我就是只有3列需要降序。

10楼那个代码就是写一行里面的排序代码，最多3个关键字；
依次也同样简单，结构如下：
With Range(Cells(1, "a"), Cells(Cells(65000, "o").End(3).Row - 1, "o"))
.Sort key1:=Range("b1"), order1:=xlAscending, Header:=xlYes
.Sort key1:=Range("a1"), order1:=xlAscending, Header:=xlYes
...
end with
但要注意：排序顺序要全部倒过来,也就是最后的排序关键字要放在最前面，比如上面b列要放在a列前面先排

天地一相

ykcbf1100 发表于 2023-4-13 15:24
你是三列分别排序？不是多条件？

谢谢，不是，是依次。我新上传了目前使用的代码截图，我是使用3段这样的代码实现的，现在就想会不会有办法能在一段里加进去3个条件

ykcbf1100

天地一相 发表于 2023-4-13 15:25
谢谢，不是，是依次。我新上传了目前使用的代码截图，我是使用3段这样的代码实现的，现在就想会不会有办 ...

是这意思？

天地一相

ykcbf1100 发表于 2023-4-13 15:33
是这意思？

谢谢，测试结果是对的。能请教那几个参数的意思吗。这写法第一次看到。

ykcbf1100

天地一相 发表于 2023-4-13 15:39
谢谢，测试结果是对的。能请教那几个参数的意思吗。这写法第一次看到。

你这需求不多见的。
排序其实一句代码就行的。
主要三个参数：key是排序字段；Order是排序方式，1升序，2降序；Header是决定标题行是否参与排序，0自动，1有标题，2无标题。

天地一相

ykcbf1100 发表于 2023-4-13 15:44
你这需求不多见的。
排序其实一句代码就行的。
主要三个参数：key是排序字段；Order是排序方式，1升序 ...

谢谢，明白了。你这种写法，能不能不要那获取行号，直接就是那个单元格是筛选键，执行怎样的操作。不太懂呀，正在想你这有明确边界的排序操作会不会速度更快。