Find Unique Text Letters Once

[Bikefree]

This should be easy...I've been playing with it for days but can't find a formula that works? Can you help with a formula that gives the result below in a column of random letters? I want to find the letter(but only once) in the result...

[TABLE="width: 64"]
<colgroup><col style="width:48pt" width="64"> </colgroup><tbody>[TR]
[TD="class: xl64, width: 64"]ABF[/TD]
[/TR]
[TR]
[TD="class: xl64"]ABDF[/TD]
[/TR]
[TR]
[TD="class: xl64"]BCG[/TD]
[/TR]
[TR]
[TD="class: xl64"]BCEG[/TD]
[/TR]
[TR]
[TD="class: xl64"]BEFH[/TD]
[/TR]
[TR]
[TD="class: xl64"]BD[/TD]
[/TR]
[TR]
[TD="class: xl64"]BFG[/TD]
[/TR]
[TR]
[TD="class: xl64"]BFH[/TD]
[/TR]
[TR]
[TD="class: xl64"]BF[/TD]
[/TR]
[TR]
[TD="class: xl64"]C[/TD]
[/TR]
[TR]
[TD="class: xl64"]DFI[/TD]
[/TR]
[TR]
[TD="class: xl64"]FI[/TD]
[/TR]
[TR]
[TD="class: xl64"]J[/TD]
[/TR]
[TR]
[TD="class: xl64"]K[/TD]
[/TR]
[TR]
[TD="class: xl64"]L[/TD]
[/TR]
[TR]
[TD="class: xl64"]M[/TD]
[/TR]
[TR]
[TD="class: xl63"] [/TD]
[/TR]
[TR]
[TD="class: xl65"]ABCDEFGHIJKLM (Result Above)
[/TD]
[/TR]
</tbody>[/TABLE]

 

[Leotaxi]

Maybe with code ?

Sub test()Dim mystring As String, lastrow As Long, x As Integer, i As Integer
With ActiveSheet
    lastrow = .Range("A" & Rows.Count).End(xlUp).Row
    For x = 1 To lastrow
        For i = 1 To Len(.Range("A" & x))
            If InStr(1, mystring, Mid(.Range("A" & x), i, 1)) = 0 Then mystring = _
            mystring & Mid(.Range("A" & x), i, 1)
        Next
    Next
    .Range("A" & lastrow + 2) = mystring
End With
End Sub

Kind regards
Leo

 

[Bikefree]

Leo,
Unfortunately I have to keep this pure Excel formula so I can utilize the Spreadsheet as part of a questionnaire that runs in a CSS browser extension/application. I do appreciate the effort!!
Bikefree