寻佛 发表于 2021-11-22 22:48:01

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(目标单元格，分隔符）>，比书生的差好多，继续学习。

秤心如意 发表于 2021-11-24 19:02:47

VBA接受吗？

孙海涛 发表于 2021-12-2 07:17:18

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

皮岛总兵毛文龙 发表于 2021-12-2 23:21:36

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

阿帅不必绝情 发表于 2021-12-6 17:50:54

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

飞奔中的猪 发表于 2021-12-9 16:06:41

仅供参ka 0

日上会员送刷卡机 发表于 2021-12-12 21:50:25

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

蔡玉环 发表于 2021-12-13 22:54:01

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

总动员 发表于 2021-12-16 01:58:57

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

干拌牛肉 发表于 2021-12-18 07:45:26

VBA接受吗？
页: 1 [2] 3
查看完整版本: 单元格内数值排序