字符串中多个字符串的排序

jz_l

lihaosh

Sub test()
    Dim arr As Variant
    Dim arr1(0 To 9) As String
    Dim rng As Range
    Dim i As Integer, k As Integer, m As Integer, n As Integer
   
    For Each rng In Range("a2:a3")
        arr = Split(rng.Value, " ")
        For i = 0 To UBound(arr)
            m = 0
            For k = 1 To Len(arr(i))
                m = m + Mid(arr(i), k, 1) * 1
            Next k
            n = m - Int(m / 10) * 10
            arr1(n) = arr1(n) & IIf(arr1(n) = "", "", " ") & arr(i)
        Next i
        rng.Value = Join(arr1, " ")
        Erase arr1
        ReDim arr1(0 To 9) As String
    Next rng
End Sub

grf1973

用Chatgpt处理了一下，效果刚刚的。

grf1973

还是比较厉害的，不仅能加注释，最后还贴心地把思路解释了一遍。