Code tìm trùng khi chuỗi đã bị đảo

[TrungChinhs]

Chào các bạn!. Tôi một vấn đề tương đối phức tạp cần được các bạn giúp đỡ cụ thể như sau:
Tôi có một danh sách ghi tên chồng vợ hoặc vợ chồng. Vd: Thanh Lan, Thanh Hồng, Lan Thanh, Hồng Hoa...
Làm thế nào để tìm trùng khi chuỗi đã bị đảo. Vd: Thanh Lan là trùng với Lan Thanh (Lan Thanh là chuỗi đã bị đảo)

Lưu ý: Mỗi tên chỉ gồm có 2 chữ và cách nhau bởi 1 ký tự trắng.

 

[ptlong04x1]

Em xài code củ chuối :

Sub Sotrung()
    Dim Cll1 As Range, Cll2 As Range, Ht1() As String, Ht2() As String
    [C2:C65536].ClearContents
    For Each Cll1 In Range("B2", [B65536].End(xlUp))
        Ht1 = Split(Cll1, " ")
        For Each Cll2 In Range("B2", [B65536].End(xlUp))
            Ht2 = Split(Cll2, " ")
            If Ht1(0) = Ht2(1) And Ht1(1) = Ht2(0) Then _
                Cll1.Offset(, 1) = "STT " & Cll2.Offset(, -1)
        Next Cll2
    Next Cll1
End Sub