I am trying the following udf that gets the unique characters in string
Code: Select all
Function UniqueChars(txt As String)
Dim x, i As Long
With CreateObject("Scripting.Dictionary")
x = Split(StrConv(Replace(txt, " ", ""), 64), Chr(0))
For i = 0 To UBound(x) - 1
.Item(x(i)) = Empty
Next i
UniqueChars = Join(.Keys, "")
End With
End Function