Oscar Sun

                  Sub 選取範圍汰重字()
Dim r As Range, c As Object, ca As Object, t As Long
Set r = Selection.Range
For Each c In Selection.Range.Characters
    For Each ca In r.Characters
        If StrComp(c, ca) = 0 Then
            t = t + 1
            If t > 1 Then
'                ca.Select
                ca.Delete
                t = 1
            End If
        End If
    Next
    t = 0
Next
MsgBox "done!", vbInformation
End Sub