排序

悲伤的小老头

c列有一万行数字，d列有一万行数字，a和b列是数据。
需求一个vba来排序，把c列排序成d列那样，而a和b列的数据也跟着c列一起排序。

求助.rar (247.48 KB, 下载次数: 13)

2016-7-17 18:32 上传

点击文件名下载附件

yjh_27

d列 为自定义序列
然后按 自定义序列 排序

lsc900707

yjh_27 发表于 2016-7-17 18:39
d列 为自定义序列
然后按 自定义序列 排序

大侠：D列数字太多，怎么自定义序列呀？

yjh_27

lsc900707 发表于 2016-7-17 19:12
大侠：D列数字太多，怎么自定义序列呀？

用自定义排序函数，见附件。
请告知运行时间。我的古董机20几秒。

lsc900707

yjh_27 发表于 2016-7-17 19:38
用自定义排序函数，见附件。
请告知运行时间。我的古董机20几秒。

大侠，我测试的时间是6.17秒.

悲伤的小老头

yjh_27 发表于 2016-7-17 18:39
d列 为自定义序列
然后按 自定义序列 排序

大神，我测试了，很好。
不过我这边的数据量又变大了，一共有26列，第26列也就是z列定义为自定义排序
请帮忙改下代码好吗. 求助.rar (250.96 KB, 下载次数: 5)

2016-7-17 22:12 上传

点击文件名下载附件

lsc900707

悲伤的小老头 发表于 2016-7-17 22:12
大神，我测试了，很好。
不过我这边的数据量又变大了，一共有26列，第26列也就是z列定义为自定义排序
...

我依葫芦画瓢，试了一个，不知对不对。
大师，这么多的数字，测试用时6.57秒。看来这自定义排序函数厉害！

yjh_27

悲伤的小老头 发表于 2016-7-17 22:12
大神，我测试了，很好。
不过我这边的数据量又变大了，一共有26列，第26列也就是z列定义为自定义排序
...

Sub aa()
t = Timer

r = Range("a" & Rows.Count).End(xlUp).Row
arr = Range("a1:c" & r)
brr = Range("d1:d" & r)

crr = YjhSort(arr, "a", "3u;1;1;0", , , , , , , brr)

Range("e1").Resize(UBound(crr), 3) = crr

MsgBox Timer - t
End Sub

根据需要改 红色 部分

yjh_27

Sub aa()
t = Timer

r = Range("a" & Rows.Count).End(xlUp).Row
arr = Range("a1:y" & r)
brr = Range("Z1:Z" & r)

crr = YjhSort(arr, "a", "25u;1;1;0", , , , , , , brr)

Range("aa1").Resize(UBound(crr), 25) = crr

MsgBox Timer - t
End Sub

lsc900707

不知道要把3u改成25u，呜呜。。。。。。