[已解决]求助：VBA排序

PC8888

求助：按“/”后面数字升序排列

最佳答案

月排行榜 / 总排行榜

爱疯

2016-4-20 10:23

=MID(A2,FIND("-",A2,FIND("/",A2))+1,99)

跳转到最佳答案楼层

爱疯

=MID(A2,FIND("-",A2,FIND("/",A2))+1,99)

PC8888

爱疯 发表于 2016-4-20 10:23
=MID(A2,FIND("-",A2,FIND("/",A2))+1,99)

很好！能否写个VBA程序

爱疯

实际问题中，应该不会只有A列的数据吧？
实际需求是怎样的，为何需要排序？
如果不清楚，写的代码可能还需改。


建议给出足够的说明，以便看帖的朋友容易理解。

PC8888

爱疯 发表于 2016-4-20 11:21
实际问题中，应该不会只有A列的数据吧？
实际需求是怎样的，为何需要排序？
如果不清楚，写的代码可能还需 ...

在A列或B列、C列的某一范围，可以更改就可以了

爱疯

Option Explicit

Dim k
Sub test()
    Dim A, d, i, t
    Set d = CreateObject("scripting.dictionary")
    A = Range("A1").CurrentRegion
    For i = 2 To UBound(A)
        d.Add A(i, 1), Abs(VBA.Split(A(i, 1), "/")(1))
    Next i
    k = d.keys: t = d.items

    Call SelectionSort(t)
    k = Application.Transpose(k)
    [a2].Resize(UBound(k)) = k
End Sub

Sub SelectionSort(arr)
    Dim i&, j&, t
    For i = LBound(arr) To UBound(arr) - 1
        t = i
        For j = i + 1 To UBound(arr)
            If arr(t) > arr(j) Then t = j    '升序
        Next j
        If t <> i Then
            swap arr(t), arr(i)
            swap k(t), k(i)
        End If
    Next i
End Sub

Sub swap(x, y)
    Dim temp
    temp = x: x = y: y = temp
End Sub

3.rar (11.85 KB, 下载次数: 3)

2016-4-20 16:56 上传

点击文件名下载附件

PC8888

爱疯 发表于 2016-4-20 16:56
Option Explicit

Dim k

非常好，谢谢！此例具有普遍适用性。但遇相同存在时，程序就不能运行了。如：同时存在-100/-75，-100/-75时，不能运行。