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.
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.
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
Thank You so much...
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks