这样的数据如何直接降序排列

zzpsx

这样的数据如何直接降序排列.zip (6.43 KB, 下载次数: 11)

2025-3-26 14:24 上传

点击文件名下载附件

loirol

=SORTBY(A1:A10,--REGEXEXTRACT(A1:A10,"\d+"),-1)

usedrange

。。。。。。。。。。。。。。。

loirol

3190496160

Sub 排序()
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "\d+"
r = Cells(Rows.Count, 1).End(xlUp).Row
ar = Range("a1:b" & r)
For i = 1 To UBound(ar)
    If ar(i, 1) <> "" Then
        zd = ar(i, 1)
        Set k = reg.Execute(zd)
        ar(i, 2) = Val(k(0))
    End If
Next i
For i = 1 To UBound(ar)
    For s = i + 1 To UBound(ar)
        If ar(i, 2) < ar(s, 2) Then
            For j = 1 To 2
                kk = ar(i, j)
                ar(i, j) = ar(s, j)
                ar(s, j) = kk
            Next j
        End If
    Next s
Next i
[a1].Resize(UBound(ar), 1) = ar
MsgBox "ok!"
End Sub

3190496160

Sub 排序2()
r = Cells(Rows.Count, 1).End(xlUp).Row
ar = Range("a1:b" & r)
For i = 1 To UBound(ar)
    ks = ""
    If ar(i, 1) <> "" Then
        zd = ar(i, 1)
        For j = Len(zd) To 1 Step -1
            zf = Mid(zd, j, 1)
            If Not IsNumeric(zf) Then
                ks = j
                Exit For
            End If
        Next j
        If ks <> "" Then ar(i, 2) = Val(Right(zd, Len(zd) - ks))
    End If
Next i
For i = 1 To UBound(ar)
    For s = i + 1 To UBound(ar)
        If ar(i, 2) < ar(s, 2) Then
            For j = 1 To 2
                kk = ar(i, j)
                ar(i, j) = ar(s, j)
                ar(s, j) = kk
            Next j
        End If
    Next s
Next i
[a1].Resize(UBound(ar), 1) = ar
MsgBox "ok!"
End Sub

3190496160

两种方式
这样的数据如何直接降序排列.rar (15.26 KB, 下载次数: 2)

2025-3-26 15:34 上传

点击文件名下载附件

sdytsxd991122

练习wps

zzpsx

谢谢各位，问题解决了。

朝露孤烟

老办法。=LET(a,TEXTSPLIT(A1:A10,ROW($1:$10)-1,,1),b,SUBSTITUTE(A1:A10,TEXTSPLIT(A1:A10,ROW($1:$10)-1,,1),"")*1,SORTBY(HSTACK(a,b),b,-1))