按指定列排序的VBA代码

briancai20

各位大神，请帮忙看看附档的ABC列如何按照 G列的顺序来排序。 G列的顺序是不固定的，每天都要这么排，很费劲。请大神支招，小弟不胜感谢。

briancai20

见附档的例子

sliang28

briancai20 发表于 2016-3-8 10:48
见附档的例子

请查看附件

雪舞子

1. Sub test()
   
2.     Dim ar
   
3.     ar = Range("g1:g" & [g65536].End(3).Row)
   
4.     Application.AddCustomList ListArray:=ar
   
5.     Range("a1:c" & [a65536].End(3).Row).Sort key1:=Range("a1"), order1:=1, _
   
6.     Header:=xlNo, OrderCustom:=Application.CustomListCount + 1
   
7.     Application.DeleteCustomList Application.CustomListCount
   
8. End Sub

复制代码

如何按照指定列排序.rar (15.27 KB, 下载次数: 16)

2016-3-8 21:10 上传

点击文件名下载附件

briancai20

雪舞子 发表于 2016-3-8 21:10

谢谢，是否这样就把G列的数据全部导到自定义列表中了，但是如果每次都不一样，这样自定义列表是不是很满，会不会拖慢速度？

雪舞子

briancai20 发表于 2016-3-9 12:31
谢谢，是否这样就把G列的数据全部导到自定义列表中了，但是如果每次都不一样，这样自定义列表是不是很满， ...

你去看一下自定义列表就知道，
列表中已经不存在了。

实际上使用一次就删除了（最后一句代码），
这样对列表没有任何影响。

很渴望看到大神是怎么写的代码，但是这个不让下载，不知道什么情况