多条件自定义排序

wangzqxa

谢谢赐教！又碰到一个问题，排序一次很好，如果排序第二次就会出错！

zhaogang1960

wangzqxa 发表于 2014-2-14 19:43
谢谢赐教！又碰到一个问题，排序一次很好，如果排序第二次就会出错！

经测试没有发现问题

wangzqxa

好奇怪，我试好多次了都是这样。请帮忙看看！我用的是07版的，会不会是版本问题！郁闷！

wangzqxa

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, 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

红色字体出错！晕！请斑竹出马！

wangzqxa

斑竹：我把您2011年8月24日帮助帖找出来了，请看：  http://club.excelhome.net/thread-756365-2-1.html，问题和我一样，可是我弄不来，请赐教!

yjh_27

参见附件。

wangzqxa

yjh_27 发表于 2014-2-14 20:31
参见附件。

谢谢帮助！但是实际B列不是甲1—甲9，而是具体的人名，试了一下不行！

http://club.excelhome.net/thread-756365-2-1.html里解决的思路貌似可以，但是我不会弄！

yjh_27

wangzqxa 发表于 2014-2-14 20:51
谢谢帮助！但是实际B列不是甲1—甲9，而是具体的人名，试了一下不行！

http://club.excelhome.net/t ...

对应修改crr数组，在其第二列赋值你需的人名序列。

yjh_27

也可将序列在单元格指定，然后读入crr.

wangzqxa

yjh_27 发表于 2014-2-14 21:11
对应修改crr数组，在其第二列赋值你需的人名序列。

搞得晕头转向，弄不出来。再具体点