单元格内数值排序

寻佛

Function px(ByVal rng, bd)
Dim a, b, c, aa(), bb()
a = Split(rng, bd)
c = UBound(a)
ReDim aa(0 To c)
For i = 0 To c
aa(i) = --a(i)
Next
ReDim bb(0 To c)
For i = 0 To c
bb(i) = WorksheetFunction.Small(aa, i + 1)
Next
px = Join(bb, bd)
End Function

发完就下了，一回来发现高手们都做完了。
发下我的自定义函数代码<=px(目标单元格，分隔符）>，比书生的差好多，继续学习。

秤心如意

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, 下载次数: 148)

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中没有办法使用？

总动员

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

干拌牛肉

VBA接受吗？