求大神给个公式，感激不尽。 - excel吧

level 7

争吃打烂碗楼主

0到9怎么按顺序。

2017年08月05日 07点08分 1

吧务

level 14

Leon大神😺

=TEXT(SUM(LAGER(--(0&MID(A1,ROW($1:9),1)),ROW($1:9))*10^ROW($1:9))/10,REPT(0,LEN(A1)))数组公式，手机打错了n次。

2017年08月05日 07点08分 7

Leon大神😺

里面的9也加上$

2017年08月05日 08点08分

争吃打烂碗

@Leon大神😺 谢谢试试

2017年08月05日 08点08分

争吃打烂碗

@Leon大神😺 不行呀 #NAME?

2017年08月05日 08点08分

Leon大神😺

@争吃打烂碗打错函数了吧？

2017年08月05日 08点08分

level 9

pepe3399

vba做个自定义函数可解

2017年08月05日 08点08分 9

Leon大神😺

帅哥，好久不见了。

2017年08月05日 09点08分

吧务

level 14

Leon大神😺

2017年08月05日 10点08分 10

level 11

🌴菠萝蜜🌴

'A1开始
Option Explicit
Sub test()
　Dim arr, i, j, k, t
　For i = 1 To [a65536].End(xlUp).Row
　　arr = Split(Cells(i, 1))
　　For j = 0 To UBound(arr) - 1
　　　For k = j + 1 To UBound(arr)
　　　　If Val(arr(j)) < Val(arr(k)) Then
　　　　　t = arr(j): arr(j) = arr(k): arr(k) = t
　　　　End If
　　Next k, j
　　Cells(i, 2) = Join(arr)
　Next
End Sub

2017年08月05日 13点08分 12

pepe3399

这个测试了吗？貌似有点小问题吧。这split后的参数可以省略吗？ Split(Cells(i, 1)) ，这样真的能行？

2017年08月06日 03点08分

🌴菠萝蜜🌴

@pepe3399 split省略参数是按单个空格进行分割的，因为目测楼主提供的数字之间是有空格的。如果数字之间没有空格确实需要先用mid处理一下再进行排序、输出。

2017年08月06日 13点08分

pepe3399

回复
pt98
:学习了，谢谢！方便给个qq号给我，便于联系。或者直接加我：3030490161

2017年08月07日 03点08分

🌴菠萝蜜🌴

@pepe3399 回复删除了？很少使用QQ，可私信或发邮件到我的网名 + 新浪免费邮箱。