按多个条件进行排序

42921783

对明细表进行排序，要求如下，

类型：按AA--BB；

城市：按北京--成都--广州--上海--武汉；

数据1：按降序排序。

如左边效果。

补充内容 (2014-1-7 13:05):
问题补充在7楼。

补充内容 (2014-2-13 14:53):
问题补充：如何横向排序？具体问题及附件见14楼。

zhaogang1960

邀请收到，请测试：

1. Sub Macro1()
   
2.     Application.AddCustomList ListArray:=Split("北京--成都--广州--上海--武汉", "--")
   
3.     [a1].CurrentRegion.Sort Key1:=[b2], Order1:=1, key2:=[d2], order2:=2, Header:=xlYes, _
   
4.         OrderCustom:=Application.CustomListCount + 1
   
5.     Application.DeleteCustomList ListNum:=Application.CustomListCount
   
6.     Application.AddCustomList ListArray:=Split("AA--BB", "--")
   
7.     [a1].CurrentRegion.Sort Key1:=[a2], Order1:=1, Header:=xlYes, _
   
8.         OrderCustom:=Application.CustomListCount + 1
   
9.     Application.DeleteCustomList ListNum:=Application.CustomListCount
   
10. End Sub
    
11. 
    
12. 
    

复制代码

zhaogang1960

请看附件
按多个条件进行排序.rar (59.42 KB, 下载次数: 586)

2013-7-10 12:12 上传

点击文件名下载附件

香川群子

按自定义序列排序即可：

1. 
   
2. Sub test()
   
3.     arr = Array("北京", "成都", "广州", "上海", "武汉") '输入自定义序列
   
4.     ' （也可以直接从工作表区域中输入） 比如： arr = Range("A1:A20")
   
5. 
   
6.     Application.AddCustomList listArray:=arr '自定义序列库中加入该自定义序列
   
7.     n = Application.GetCustomListNum(arr) '获取该自定义序列的引用代号
   
8.    
   
9.     Range("A1").CurrentRegion.Sort [d2], 2, , , , , , 1             '先对数据1进行逆排序
   
10.     Range("A1").CurrentRegion.Sort [b2], 1, , , , , , 1, n + 1  '然后对城市按自定义序列进行排序
    
11.     Range("A1").CurrentRegion.Sort [a2], 1, , , , , , 1             '最后对类型进行排序
    
12. 
    
13.    
    
14.     'Application.DeleteCustomList n '从自定义序列库中删除该自定义序列 (也可以保留不删)
    
15.    
    
16. End Sub
    

复制代码

自定义序列汉字输入按国际双位码时这么用：
arr = Array(ChrW(21271) & ChrW(20140), ChrW(25104) & ChrW(37117), ChrW(24191) & ChrW(24030), ChrW(19978) & ChrW(28023), ChrW(27494) & ChrW(27721))


排序时直接这么用不可以，自定义序列只能对应第1个排序参数。如果不是第一个，就只能一个一个来。
Range("A1").CurrentRegion.Sort [a2], 1, [b2], , 1, [d2], 2, 1, n + 1 '排序
   

香川群子

排序操作分解成多步骤进行时，要倒序进行。

即，优先度最低的列要先进行排序，优先度最高的列要放在最后一次排序。

zhaogang1960

香川群子  呵呵， AA -- BB 就用不着 自定义序列了吧。 标准的字母升序而已。  发表于 2013-7-10 14:12 IP:218.90.128.254 删除

就楼主的要求而言，的确如此

42921783

香川群子 发表于 2013-7-10 13:30
按自定义序列排序即可： 自定义序列汉字输入按国际双位码时这么用：
arr = Array(ChrW(21271) & ChrW(2014 ...

若北京再分区，如何排序呢。在北京后面加个*没效果。

42921783

42921783 发表于 2014-1-7 11:28
若北京再分区，如何排序呢。在北京后面加个*没效果。

arr = Array("北京", "成都", "广州", "上海", "武汉")     改为
arr = Array("北京*", "成都", "广州", "上海", "武汉")   并不能实现效果。

香川群子

不要偷懒，你把北京下面所有区也输入到排序参数里去。

用"北京*"这样是不可以的。

香川群子

或者你把北京下面区的信息分列分出来处理。