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

蒋智龙

按关键+后面数字升序排列(位数不一样排序1、11，2，22不能完整升序),显示再对齐C列

liulang0808

楼主把数据拆分成多列然后排序看看
另外论坛里类似得案例可以检索参考下

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, br, cr, i&, j&, r&, dic As Object, vKey
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [B1].CurrentRegion.Value
    For i = 2 To UBound(ar)
        br = Split(ar(i, 1), "、")
        dic(br(0)) = dic(br(0)) & "|" & br(1)
    Next i
   
    r = 1
    For Each vKey In dic.keys
        br = Split(dic(vKey), "|")
        ReDim cr(1 To 2, 1 To UBound(br))
        For i = 1 To UBound(br)
            cr(1, i) = br(i)
            cr(2, i) = Val(Split(br(i), "+")(1)) '(1)
        Next i
        bSort cr, 1, UBound(cr), 1, UBound(cr, 2), 2
        For i = 1 To UBound(cr, 2)
            r = r + 1
            ar(r, 1) = vKey & "+" & cr(1, i)
        Next i
    Next
   
    [C1].Resize(UBound(ar)) = ar
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub


Function bSort(ByRef ar, ByVal iFirst&, ByVal iLast&, ByVal iLeft&, _
    ByVal iRight&, ByVal iKey&, Optional isOrder As Boolean = True)
    Dim i&, j&, k&, vTemp
   
    For i = iLeft To iRight - 1
        For j = iLeft To iRight + iLeft - 1 - i
            If ar(iKey, j) <> ar(iKey, j + 1) Then
                If ar(iKey, j) < ar(iKey, j + 1) Xor isOrder Then
                    For k = iFirst To iLast
                        vTemp = ar(k, j)
                        ar(k, j) = ar(k, j + 1)
                        ar(k, j + 1) = vTemp
                    Next
                End If
            End If
        Next j
    Next i
End Function

gwjkkkkk

参与一下。。。

蒋智龙

gwjkkkkk 发表于 2024-6-23 11:03
参与一下。。。

效果还是乱序的！

zpy2

select * from 按门牌号自然排序 order by 门牌号 COLLATE NATURAL_CMP;

gwjkkkkk

蒋智龙 发表于 2024-6-23 11:19
效果还是乱序的！

你这个关键字是哪个？，按模拟结果吗？

蒋智龙

gwjkkkkk 发表于 2024-6-23 12:37
你这个关键字是哪个？，按模拟结果吗？

关键字 是 按前面两个文字、再加K1

蒋智龙

zpy2 发表于 2024-6-23 12:18
select * from 按门牌号自然排序 order by 门牌号 COLLATE NATURAL_CMP;

这种怎么做到的

蒋智龙

gwjkkkkk 发表于 2024-6-23 12:37
你这个关键字是哪个？，按模拟结果吗？

这种效果 楼上发的图片