Digits in ascending order ?

T

toyota58

Hello,


Anyone knows how to sort digits in ascending order ?


Example :

Cell A1 = 3176
Cell A2 = 1367


Cell A1 = 704182
Cell A2 = 012478



Thank You.
 
B

bplumhoff

Hello,

I suggest to take this UDF:

Option Explicit

Function sort_digits(s As String) As String
Dim a(0 To 9) As Long, i As Long

For i = 1 To Len(s)
a(Mid(s, i, 1)) = a(Mid(s, i, 1)) + 1
Next i

For i = 0 To 9
sort_digits = sort_digits & String(a(i), Chr(Asc("0") + i))
Next i

End Function

HTH,
Bernd
 
Top