Function px(rng As Range)
Dim i%, j%, num
num = rng.Value
For i = 0 To 9
If InStr(1, num, i, 1) > 0 Then
jie = jie & Application.WorksheetFunction.Rept(i, Len(num) - Len(Application.WorksheetFunction.Substitute(num, i, "")))
Else
End If
Next
px = jie
End Function
用自定义函数可以做到
是一个格子里面2个数字要排序啊?这个不是简单实现的。。。标记一下,看看有没有人能回答。。。