单元格内数值排序

张进义

各位高手：
我有一个：单元格内数值排序的难题，请高手帮忙！详见附件！
工作簿4.rar (6.74 KB, 下载次数: 11)

2021-10-23 16:40 上传

点击文件名下载附件
工作簿4.rar

逝风

VBA接受吗？

希腊

xlllw203：
你好！
感谢您回帖！如果可以，请做个自定义函数，那就最好了，不要SUB.

楊霞

三键盘数组
=TEXTJOIN(",",1,TEXT(SMALL(--(0&TRIM(MID(SUBSTITUTE(A1,",",REPT(" ",99)),ROW($1:29)*99-98,99))),ROW($1:29)),"[>]0;"))

信诚

独一无二的你:
您好！
非常感谢！这就是我想要的结果。

月光恋曲

仅供参ka 0
自定义函数只支持32位的OFFICE.rar (13.52 KB, 下载次数: 49)

2021-10-23 16:40 上传

点击文件名下载附件
自定义函数只支持32位的OFFICE.rar

追你跑断了腿

Function s(rng, r) '书生答题专用
  ar = Split(rng, r)
  For i = 0 To UBound(ar)
  For j = 0 To UBound(ar) - 1
    If Val(ar(i)) < Val(ar(j)) Then
      a = ar(i): ar(i) = ar(j): ar(j) = a
    End If
  Next
  Next
  s = Join(ar, r)
End Function

柚子娱乐啊

我走我流：
非常感谢您的帮忙!
您的意思是说这个自定义函数在64位的OFFICE中没有办法使用？

錢先生

小书生:
非常感谢！这个自定义函数真棒！

年少不该太多情