1.用逗号分隔符拆分数据生成数组。
1.和按函数对数组排序。
1.按字典检查重复数据。

##代码##

Sub test()
    Dim vR(), vDB
    Dim dic As Object
    Dim v As Variant
    Dim s As String
    Dim i As Long, n As Long

    Set dic = CreateObject("Scripting.Dictionary")

    vDB = Range("a1").CurrentRegion

    For i = 1 To UBound(vDB, 1)
        v = Split(vDB(i, 1), ",")
        s = newArray(v)
        If dic.exists(s) Then
        Else
            dic.Add s, s
            n = n + 1
            ReDim Preserve vR(1 To n)
            vR(n) = vDB(i, 1)
        End If
    Next i
    If n Then
        Range("e1").Resize(n) = WorksheetFunction.Transpose(vR)
    End If

End Sub
Function newArray(v As Variant)
    Dim temp As String
    Dim r As Integer, i As Integer, j As Integer

    r = UBound(v)

    For i = LBound(v) To r - 1
        For j = i + 1 To r
            v(i) = Trim(v(i))
            v(j) = Trim(v(j))
            If v(i) > v(j) Then
                temp = v(j)
                v(j) = v(i)
                v(i) = temp
            End If
        Next j
    Next i
    newArray = Join(v, ",")
End Function

图像

对Dictionary和ArrayList对象的外推可以导致非常紧凑（并且可维护）的代码：

Sub RemoveDuplicatedDataWithoutCountingOrder()

    Dim dict As Object: Set dict = CreateObject("Scripting.Dictionary")

    Dim j As Long
    Dim key As String
    Dim datum As Variant, couple As Variant
    For Each datum In Range("A1").CurrentRegion.Value
        key = vbNullString
        With CreateObject("System.Collections.SortedList")
            For Each couple In Split(Replace(datum, " ", vbNullString), ",")
                .Add couple, 0
            Next
            For j = 0 To .Count - 1
                key = key & .getkey(j)
            Next
            If Not dict.exists(key) Then dict.Add key, datum
        End With
    Next

    Range("C1").Resize(dict.Count) = Application.Transpose(dict.items)

End Sub