多条件自定义排序

yjh_27

wangzqxa 发表于 2014-2-14 22:09
搞得晕头转向，弄不出来。再具体点

把自定义序列写入sheet2

莫悠悠

这也是我想要的，明天抽时间看看

swl111

zhaogang1960 发表于 2014-2-14 18:34
请参考：

  With Range("A3:R" & Range("A65536").End(xlUp).Row)

.Sort Key1:=Range("F3"), Order1:=1, key2:=Range("C3"), order2:=1, Header:=xlNo

老师好，我只用这两句，在Range("A3:R" & Range("A65536").End(xlUp).Row)
这一句的前面加了一个sheets("明细表")后，怎么会出错？我是在模块中跨表call这段代码。谢谢！！！

guaxiaodai11

最近需要用到這個知識，做個記號來學習一下

吾股丰登

赵刚老师就是热情又厉害

shirf

回复留下脚印，谢谢分享！

zhongyangfu

我要禁用排序功能，怎么写代码呢？

szd1208

zhaogang1960 发表于 2014-2-14 18:35
请测试附件

老师 ， 可不可以，第一列 A列 ， 按照 自定义筛选 部分包含的词 “例如 包含 “一”“二”“三”“”” 这样排序？

一念天堂

• Sub Macro1()
•     Application.ScreenUpdating = False
•     With Range("A3:R" & Range("A65536").End(xlUp).Row)
•         .Sort Key1:=Range("F3"), Order1:=1, key2:=Range("C3"), order2:=1, key3:=Range("d3"), order3:=1, key4:=Range("e3"), order4:=1, Header:=xlNo
•         Application.AddCustomList ListArray:=Array("甲1", "甲2", "甲3", "甲4", "甲5", "甲6", "甲7", "甲8", "甲9")
•         .Sort Key1:=Range("b3"), Order1:=1, Header:=xlNo, OrderCustom:=Application.CustomListCount + 1
•         Application.DeleteCustomList ListNum:=Application.CustomListCount
•         Application.AddCustomList ListArray:=Array("一队", "二队", "三队")
•         .Sort Key1:=Range("a3"), Order1:=1, Header:=xlNo, OrderCustom:=Application.CustomListCount + 1
•         Application.DeleteCustomList ListNum:=Application.CustomListCount
•     End With
•     Application.ScreenUpdating = True
• End Sub
  

如上图，如果D列和E列也有内容并且也需要自动排序的话，添加红色部分：key3:=Range("d3"), order3:=1, 可以运行，但是继续添加key4:=Range("e3"), order4:=1,就提示未找到命名参数；
后来看了下，原来最多只能对3列排序，如果超出3列的话，只能分组写吗？分成多组排序？

另外，VBA宏多个列同时排序时，要和工作表里排序列的顺序颠倒吗？比如工作表排序的列顺序是A,B,C,D；VBA里写的时候要把D列放到KEY1吗？