VBA sort语句 Ordercustom求助

nanxindaqq

情况是这样的，今天用SORT进行排序，其中用到了ordercustom,在EXCEL内置的自定义序列中添加新序列，然后通过索引号用宏排序，但是怎么都不成功，麻烦大神帮看下，序列是吴2，吴1，吴3

nanxindaqq

顶顶顶顶顶顶顶

huang1314wei

13改成14看看

nanxindaqq

huang1314wei 发表于 2016-12-25 14:45
13改成14看看

不行的 12,14我之前都试过了

huang1314wei

nanxindaqq 发表于 2016-12-25 16:48
不行的 12,14我之前都试过了

那就上附件

nanxindaqq

huang1314wei 发表于 2016-12-25 16:56
那就上附件

不知道为什么 上不了附件 我第一上这个论坛 我看我加附件的话 没有我这个EXCEL

nanxindaqq

huang1314wei 发表于 2016-12-25 16:56
那就上附件

终于知道怎么上附件了 原来必须要打包的

huang1314wei

nanxindaqq 发表于 2016-12-25 17:04
终于知道怎么上附件了 原来必须要打包的

1. Sub test()
   
2. Dim n
   
3. n = Application.CustomListCount
   
4. Application.AddCustomList Array("吴2", "吴1", "吴3")
   
5. Range("A1:b7").Sort key1:=Range("b1"), _
   
6. order1:=xlAscending, key2:=Range("a1"), order2:=xlAscending, Header:=xlYes, _
   
7. ordercustom:=n + 2, MatchCase:=False, Orientation:=xlTopToBottom
   
8. Application.DeleteCustomList n + 1
   
9. End Sub

复制代码

nanxindaqq

顶顶顶顶顶顶

nanxindaqq

huang1314wei 发表于 2016-12-25 17:12

大神 你能不能告诉我之前错在哪里哈 你这种是新的方法 通过宏自定义序列