Digits in ascending order ?
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
|