按关键+后面数字升序排列(位数不一样排序1、11，2，22不能完整升序)

longwin

参与一下：

蒋智龙

longwin 发表于 2024-6-23 15:12
参与一下：

还是乱序的，这个有文字有数字  排序 我赶紧VBA代码实行不了···

longwin

vba肯定能实现，关键是排序的关键词要搞清楚

Qs18

Sub s()
    Application.ScreenUpdating = False
    Dim arr: arr = Sheet1.Range("b1").CurrentRegion.Value
    For i = 2 To UBound(arr)
        arr(i, 1) = "'" & Format(Split(arr(i, 1), "+")(1), "0000")
    Next
    Sheet1.Range("c1").Resize(UBound(arr), 1) = arr
    Range("a1:c" & UBound(arr)).Sort Key1:=Columns("c"), order1:=xlAscending, Header:=xlYes
    Sheet1.Columns("c").Delete
    Application.ScreenUpdating = True
    MsgBox "按关键+后面数字升序排列完成！"
End Sub

Qs18

试一下.............

Qs18

试一下.............

蒋智龙

Qs18 发表于 2024-6-23 15:28
试一下.............

要的其实是这样的效果 先名称、再递增数字，你这个又回来第一个效果了1、11‘2、22，需要1~22递增排序，是这样的

longwin

楼主，你看这个排序出来跟你想的一样吗？

蒋智龙

longwin 发表于 2024-6-23 15:38
楼主，你看这个排序出来跟你想的一样吗？

这个效果对了 不知道后面的是不是一样

Qs18

Sub s()
    Application.ScreenUpdating = False
    Dim arr: arr = Sheet1.Range("b1").CurrentRegion.Value
    ReDim ar(1 To UBound(arr), 1 To 2)
    For i = 2 To UBound(arr)
        ar(i, 1) = Split(arr(i, 1), "、")(0)
        ar(i, 2) = "'" & Format(Split(arr(i, 1), "+")(1), "0000")
    Next
    Sheet1.Range("c1").Resize(UBound(arr), 2) = ar
    Range("b1:d" & UBound(arr)).Sort Key1:=Columns("c"), order1:=xlAscending, Key2:=Columns("d"), order2:=xlAscending, Header:=xlNo
    Sheet1.Columns("c:d").Delete
    Application.ScreenUpdating = True
    MsgBox "按关键+后面数字升序排列完成！"
End Sub