请写个函数

0wchz

把一至四位，由一至四组成的不重复的数值，从小到大重新排序输出来，
比如2，输出为2
比如21，输出为12
比如2143，输出为1234，
都是1-4组成，谢谢

kevinchengcw

走一条歪路

0wchz

不好，如果143，怎么输出134，如果42，如何输出24

0wchz

能否详细解释string

ynzsvt

0wchz 发表于 2024-9-14 15:44
不好，如果143，怎么输出134，如果42，如何输出24

2楼对的呀。

usedrange

1. Sub tt()
   
2.     Dim un, m%, ar(1 To 4, 1 To 1)
   
3.     a = 43
   
4.     For i = 1 To Len(a)
   
5.         ar(Mid(a, i, 1), 1) = Mid(a, i, 1)
   
6.     Next
   
7.     [a1].Resize(1, UBound(ar)) = Application.Transpose(ar)
   
8. End Sub

复制代码

0wchz

谢谢各位，

大灰狼1976

1. Sub test()
   
2. Dim n$, arr(1 To 4), i&, tmp&
   
3. n = 42
   
4. For i = 1 To Len(n)
   
5.   tmp = Mid(n, i, 1)
   
6.   arr(tmp) = arr(tmp) & tmp
   
7. Next i
   
8. Debug.Print Join(arr, "")
   
9. End Sub

复制代码

大灰狼1976

函数

1. Function func(n As String)
   
2. Dim arr(1 To 4), i&, tmp&
   
3. For i = 1 To Len(n)
   
4.   tmp = Mid(n, i, 1)
   
5.   arr(tmp) = arr(tmp) & tmp
   
6. Next i
   
7. func = Join(arr, "")
   
8. End Function
   
9. 
   
10. Sub test()
    
11. MsgBox func(411)
    
12. End Sub

复制代码

canyng2

=TEXTJOIN(,,SORT(REGEXP(U13,"\d"),,1,TRUE))