12列依次按升序排序12次的代码问题

tanglf188

shenzhenyang 发表于 2023-2-28 15:09
老师，请问如果是降序是改代码那个地方

你先把自己的需求整明白啊，一般的哪有这么排序的？你是要依次多次排序还是一次性多列排序？

XlSortOrder 枚举 (Excel)
    名称                      值              说明
    xlAscending              1              按升序对指定字段排序。 这是默认值。
    xlDescending        2              按降序对指定字段排序。
    xlManual        -4135              手动排序 (您可以拖动项目以重新排列) 。

tanglf188

这是A-L列依次多次排序代码

SHANGDU629

tanglf188 发表于 2023-2-28 15:16
你先把自己的需求整明白啊，一般的哪有这么排序的？你是要依次多次排序还是一次性多列排序？

XlSortOr ...

老师，谢谢帮助！但奇怪的是【 .Add2 Key:=Range("A2:A" & last), Order:=xlDescending】这一句开始就对象不支持属性，代码运行不下去了。

SHANGDU629

tanglf188 发表于 2023-2-28 15:36
这是A-L列依次多次排序代码

老师，看到你运行的结果已是我要求的结果了，在此非常感谢你的帮助。另在我EXCEL2010版本上运行【.Add2 Key:=Range(Chr(i) & "2:" & Chr(i) & last), Order:=xlDescending】这一句也是跳出【对象不支持该属性】，看来是我的版本太低的原因吗。

tanglf188

SHANGDU629 发表于 2023-2-28 15:49
老师，谢谢帮助！但奇怪的是【 .Add2 Key:=Range("A2:A" & last), Order:=xlDescending】这一句开始就对 ...

两种情况都有附件的，下载附件看看，有错误截图

shenzhenyang

tanglf188 发表于 2023-2-28 15:16
你先把自己的需求整明白啊，一般的哪有这么排序的？你是要依次多次排序还是一次性多列排序？

XlSortOr ...

谢谢老师，在不加, Order:=xlDescending情况，默认是升序。

SHANGDU629

tanglf188 发表于 2023-2-28 16:00
两种情况都有附件的，下载附件看看，有错误截图

辛苦老师不停的指导，也大致上看明白老师二段代码：一段应为升序一段为降序，但奇怪的是到我这2010版本上就运行不了，真是头大了。

gwjkkkkk

SHANGDU629 发表于 2023-2-28 17:59
辛苦老师不停的指导，也大致上看明白老师二段代码：一段应为升序一段为降序，但奇怪的是到我这2010版本上 ...

请楼主参考。。。

SHANGDU629

demonimissyou 发表于 2023-2-28 15:06
Sub yunxing()
Dim i, j, k, l, arr, str
arr = Sheet1.UsedRange

老师，回复的迟了，首先非常感谢你的帮助。感觉你采用的方法是不断比大小的方法，不是自动筛选的方法，这方法也很好，运行一遍结果是对的，12个单元仍是500户，总户数不变，但很奇怪的是每运行一次代码总户数都会减少1~2户，不断弟减，不知是啥原因。

SHANGDU629

gwjkkkkk 发表于 2023-2-28 20:53
请楼主参考。。。

已完全实现了每列都按升级排序的要求，非常感谢老师的帮助！不胜感谢！