Hi excel experts
Searching google, I finded the function which get unique letters in cell
The function is very good, but how I get the result sortted?Function UniqueChars(ByVal origString As String) As String Dim oCol As New Collection, sAns As String, sChar As String, lCtr As Long, lCount As Long lCount = Len(origString) For lCtr = 1 To lCount sChar = Mid(origString, lCtr, 1) On Error Resume Next oCol.Add sChar, sChar If Err.Number = 0 Then sAns = sAns & sChar Err.Clear Next lCtr UniqueChars = sAns End Function
Bookmarks