[分享]帮忙增加排序功能[已解决]

xuwenning

请各位大虾看看下面的代码，这段代码是论坛上的网友帮我写的希望得到一个区域中的唯一值，并排列在j2列并排序

排序按

1、先按第一字母顺序排序
2、再按字母后的数字的顺序排序
3、最后按“－”的数字顺序排序

Sub Data_now()
Dim d As Object, rng, i%, j%, k%, arr(1 To 10000, 1 To 4)
[j2:j65536] = ""
Set d = CreateObject("scripting.Dictionary")
rng = Range("A2:D" & [a65536].End(xlUp).Row)
Application.ScreenUpdating = False
For i = 1 To UBound(rng)
  For j = 1 To 4
    If rng(i, j) <> "" Then
      If d(rng(i, j)) = "" Then
        k = k + 1
        arr(k, 1) = rng(i, j): arr(k, 2) = Left(rng(i, j), 1)
        arr(k, 3) = Split(Mid(rng(i, j), 2), "-")(0)
        arr(k, 4) = Split(Mid(rng(i, j), 2), "-")(1)

        d(rng(i, j)) = k
      End If
    End If
  Next
Next
[j2].Resize(k, 4) = arr
[j2].Resize(k, 4).Sort Key1:=[k2], Key2:=[l2], Key3:=[m2]
[k:m] = ""
Application.ScreenUpdating = True

Set d = Nothing
End Sub

案例文档：

 

 

MSRvHROn.rar (209.58 KB, 下载次数: 13)

2008-4-25 08:43 上传

点击文件名下载附件
[求助]帮忙增加排序功能

[此贴子已经被作者于2008-4-26 10:49:15编辑过]

oobird

多了一个值，不知到原因？有吗？

xuwenning

不好意思，哪是我原来代码造成的错误，已经修正！

xuwenning

谢谢谢谢，问题已经解决，

在里我也希望论坛上大虾帮忙解释一下这个排序代码的编程思路，帮助我等新人学习编程、理解编程方法

我在许多地方都能用到这类排序的原理，理解以后希望能自己编辑一个类似的自定义排序函数

Sub 唯一值()
Dim d As Object, rng, i%, j%, k%, arr(1 To 10000, 1 To 4)
[j2:j65536] = ""
Set d = CreateObject("scripting.Dictionary")
rng = Range("A2:D" & [a65536].End(xlUp).Row)
Application.ScreenUpdating = False
For i = 1 To UBound(rng)
  For j = 1 To 4
    If rng(i, j) <> "" Then
      If d(rng(i, j)) = "" Then
        k = k + 1
        arr(k, 1) = rng(i, j): arr(k, 2) = Left(rng(i, j), 1)
        arr(k, 3) = Split(Mid(rng(i, j), 2), "-")(0)
        arr(k, 4) = Split(Mid(rng(i, j), 2), "-")(1)

        d(rng(i, j)) = k
      End If
    End If
  Next
Next
[j2].Resize(k, 4) = arr
[j2].Resize(k, 4).Sort Key1:=[k2], Key2:=[l2], Key3:=[m2]
[k:m] = ""
Application.ScreenUpdating = True

Set d = Nothing
End Sub

[此贴子已经被作者于2008-4-25 22:23:56编辑过]

xuwenning

arr(1 To 10000, 1 To 4)我的理解是否是一个4×10000的数组？

xuwenning

如果一个编号为N0801-1788的文字，要按上述方法排序需要定义一个几乘几的数组呢？

oobird

一样的。

第一列：N0801-1788

第二列：N

第三列：0801

第四列：1788

以二、三、四列排序，排好后删除二、三、四列

xuwenning

如果是ACCESS上的一个单列上有如N0801-1788、0803-0001等的类似文字要按上述方法排序又该如何设计程序呢？微软自带的排序功能有时无法满足我使用的需要！

xuwenning

今天太高兴了，学到了许多以前没理解到的东西，在这里谢谢oobird的帮助！我想更深的理解一下这个编程思路，编辑一个自定义函数实现在ACCESS上的一个单列上有如N0801-1788、0803-0001等的类似文字要按上述方法排序功能模，微软自带的排序功能有时无法满足我使用的需要！

xuwenning

论坛上帖子沉的太快了，不顶不行啊