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...

ABF

ABDF

BCG

BCEG

BEFH

BD

BFG

BFH

BF

C

DFI

FI

J

K

L

M

ABCDEFGHIJKLM (Result Above)

<colgroup><col style="width:48pt" width="64"> </colgroup><tbody>
</tbody>

 

[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