【已解决】按照两个特殊符号中间的数字排序

seedweb

问题已经解决了，大家可以观摩17楼@yjh_27的方法，谢谢。

各位大神，研究了很久，实在是弄不出来了，请各位大神帮忙看看：左边是排序之前的可能还会乱一些，数据可能会更多，这里只拿了一部分出来。排序之后要变成后面那样的。
PS：需要尽量在原位置进行排序，按照“[”和“!”两符号中间的数字大小进行排序，这两个符号中间的数字后面如果带“_”的，需要放到最后，再按照数字排序。图中只是给了结果参照：


排序.rar (7.57 KB, 下载次数: 29)

2013-11-22 09:13 上传

点击文件名下载附件

我更新了要求，附件也更新了，请大神们看看能实现吗？
谢谢之前m_n_j001、yjh_27、清风幽闲、Zamyi的帮助啊，都能够满足之前的要求，但是现在要求多了一个，请帮忙看看

seedweb

有大侠能帮忙支招吗？{:soso_e100:}

m_n_j001

这样行吗？
Sub test()
Dim ar()
ar = Range("A2:a14").Value
For i% = 1 To UBound(ar)
    ar(i, 1) = Val(Mid(ar(i, 1), 2))
Next
Range("b2").Resize(i - 1) = ar
Range("a2").Resize(i - 1, 2).Sort [b1], 1
Range("b2").Resize(i - 1).Clear
End Sub

seedweb

m_n_j001 发表于 2013-11-21 22:21
这样行吗？
Sub test()
Dim ar()

多谢m_n_j001,这个已经可以实现我的要求了。
但是 有可以不借助辅助列的方法吗？

m_n_j001

肯定有。如：把数字取出来后，自己写排序过程就成了。etc.

yjh_27

seedweb 发表于 2013-11-21 22:34
多谢m_n_j001,这个已经可以实现我的要求了。
但是 有可以不借助辅助列的方法吗？

自定义函数，没完整测试。

seedweb

m_n_j001 发表于 2013-11-21 22:35
肯定有。如：把数字取出来后，自己写排序过程就成了。etc.

呵呵 感觉有些难 我自己慢慢琢磨琢磨吧 多谢

seedweb

yjh_27 发表于 2013-11-21 23:33
自定义函数，没完整测试。

多谢，大侠这个自定义函数感觉很强大！

yjh_27

seedweb 发表于 2013-11-22 00:03
多谢，大侠这个自定义函数感觉很强大！

没最后完成，想做成适应尽可能多的排序要求。

m_n_j001

新学的集合排序，就用了（弱于数组排序），供参考。
Sub test()
Dim ar(), c As New Collection, tmp1, tmp2
ar = Range("A2:a17").Value
tmp1 = Val(Mid(ar(1, 1), 2))
c.Add ar(1, 1), "b" & tmp1
For i% = 2 To UBound(ar)
    tmp1 = Val(Mid(ar(i, 1), 2))
    For Each tmp2 In c
        tmp2 = Val(Mid(tmp2, 2))
        If tmp2 >= tmp1 Then Exit For
    Next
    If tmp2 = Empty Then
       c.Add ar(i, 1), "b" & tmp1
    Else
       If tmp2 <> tmp1 Then
          c.Add ar(i, 1), "b" & tmp1, before:="b" & tmp2
       Else                                                                       '用于解决关键字相同。排序结果不是“稳定的”
          i2 = i2% + 1
          c.Add ar(i, 1), "b" & i2 & tmp1, before:="b" & tmp2
       End If
    End If
Next
i = 0
For Each tmp2 In c
    i = i + 1
    ar(i, 1) = tmp2
Next
Range("c2").Resize(i) = ar
End Sub