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

yhy95331

A列每行皆为10个字符串以空格连起来，10个字符串中每个字符串内部字符相加求和取尾（0到9尾），然后按尾数从小到大（0-9）排序字符串，并用空格连起来，用Split分割，字符求和取尾，排序这步不好弄，求大师帮忙，谢谢！

gwjkkkkk

请参考附件。。。

chxw68

练练练手。

准提部林

加個自函數//


Xl0000082.rar (19.04 KB, 下载次数: 10)

2023-4-10 20:01 上传

点击文件名下载附件

清风竹-

参与一下。

yhy95331

gwjkkkkk 老师的结果不符要求，可能理解错了，代码运行结果是：089 190 201 312 423 456 534 567 678 789  (7-0-3-6-9-5-2-8-1-4)
                                                                                  应该是：190 678 534 201 789 456 312 089 567 423（0-1-2-3-4-5-6-7-8-9）

yhy95331

感谢各位大师百忙之中帮助，学习了

tiger1976

Sub lll()

    Dim arr
    Dim arr1(0 To 9)
    Dim rng As Range
    Dim i, k, m, 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
            n = m - Int(m / 10) * 10
            arr1(n) = arr(i)
        Next
        rng.Value = Join(arr1, " ")
    Next

End Sub

gwjkkkkk

yhy95331 发表于 2023-4-10 20:58
感谢各位大师百忙之中帮助，学习了

的确理解错了，请参考。。。

三分醉，七分醒

Sub 字符串()
Dim arr, 拆分
Dim 结果(0 To 9)
arr = Sheet1.Range("a1").CurrentRegion
For m = 2 To UBound(arr)
    拆分 = Split(arr(m, 1), " ")
    For n = 0 To UBound(拆分)
        s = 拆分(n)
        结果(求和取尾(s)) = 结果(求和取尾(s)) & "-" & 拆分(n)
    Next
    Sheet1.Cells(m, 3) = Replace(Join(结果, " "), "-", "")
    Erase 结果
Next m
End Sub


Function 求和取尾(ByVal s As String)
For i = 1 To Len(s)
    Sum_num = Sum_num + Mid(s, i, 1) * 1
Next i
求和取尾 = Right(Sum_num, 1)
End Function