排序

zax010

Sub zz()
    Dim d, ar, br
    t = Timer
    Set d = CreateObject("Scripting.Dictionary")
    ar = Range("A1").CurrentRegion: br = ar
    Application.ScreenUpdating = False
    For j = 1 To 3
        For i = 1 To UBound(ar)
            d(ar(i, j)) = i
        Next
        For x = 1 To UBound(br)
            If d.exists(br(x, 4)) Then
                br(x, j) = ar(d(br(x, 4)), j)
            Else
                br(x, j) = ""
            End If
        Next
        d.RemoveAll
    Next
    [h1].Resize(UBound(br), UBound(br, 2)) = br
    Application.ScreenUpdating = True
    MsgBox Timer - t
End Sub

zax010

>>>>>>>>>>>>>>>>>>>>


求助.rar (255.49 KB, 下载次数: 8)

2016-7-17 23:25 上传

点击文件名下载附件

lsc900707

zax010 发表于 2016-7-17 23:26
>>>>>>>>>>>>>>>>>>>>

亲，速度快了很多（用时才0.12秒）。不过楼主有个26列排序的新附件呢，你没注意吧？

lsc900707

zax010 发表于 2016-7-17 23:26
>>>>>>>>>>>>>>>>>>>>

大师，26列数据如果按照Z列排序的话，就要这样修改吧？如果结果正确，那么这个字典+数组法也忒强大了，用时0.82秒不到：

Sub zz()
    Dim d, ar, br
    t = Timer
    Set d = CreateObject("Scripting.Dictionary")
    ar = Range("A1").CurrentRegion: br = ar
    Application.ScreenUpdating = False
    For j = 1 To 25
        For i = 1 To UBound(ar)
            d(ar(i, j)) = i
        Next
        For x = 1 To UBound(br)
            If d.exists(br(x, 26)) Then
                br(x, j) = ar(d(br(x, 26)), j)
            Else
                br(x, j) = ""
            End If
        Next
        d.RemoveAll
    Next
    [aa1].Resize(UBound(br), UBound(br, 2)) = br
    Application.ScreenUpdating = True
    MsgBox Timer - t
End Sub

zax010

lsc900707 发表于 2016-7-18 04:43
大师，26列数据如果按照Z列排序的话，就要这样修改吧？如果结果正确，那么这个字典+数组法也忒强大了，用 ...

应该是这样。

yjh_27

lsc900707 发表于 2016-7-17 23:47
亲，速度快了很多（用时才0.12秒）。不过楼主有个26列排序的新附件呢，你没注意吧？

4L附件 改进提速。20几秒>>>1点几秒

张雄友

你这种情况是建立在c列没有重复值的基础上的，如果是这样，用辅助列很容易实现。

lsc900707

yjh_27 发表于 2016-7-19 19:01
4L附件 改进提速。20几秒>>>1点几秒

亲，确实提速明显，我的机器测试才0.4秒！

香川群子

zax010 发表于 2016-7-17 23:26
>>>>>>>>>>>>>>>>>>>>

不知道楼主是什么逻辑？

排序结果，如同直接把最后的基准列复制了n遍而已。毫无排序的必要。


……如果基准列是1-10000的乱序排列，而其它26列都是1-10000的各种顺序，那么排序就是毫无意义的事。
所谓排序，就是把基准列复制一下而已。

香川群子

zax010 发表于 2016-7-18 08:34
应该是这样。

如果基准列都是数字，而且是标准的自然数序列，
那么可以直接定义一个数组即可。无需使用字典。这样速度才是最快的。