Lọc sự trùng nhau theo dòng (1 người xem)

[casino.vp]

Em chào anh Chị,
Em có vấn đề muốn hỏi ạ, em có danh sách bệnh nhân, do 2 người nhập số liệu, nên em muốn so sánh xem thế nào, em định dùng duplicate Values nhưng em đã gặp vấn đề là ngày bản thân tên bệnh nhân của các cột ( cùng 1 người nhập) đã trùng nhau, nên so sánh ko được, em muốn so sánh theo chiều ngang ây ạ, xem bệnh nhân của người 1 có giống người 2 hay không ạ.

Làm thế nào ạ,

Em cảm ơn

 

[comet_1701]

Em chào anh Chị,
Em có vấn đề muốn hỏi ạ, em có danh sách bệnh nhân, do 2 người nhập số liệu, nên em muốn so sánh xem thế nào, em định dùng duplicate Values nhưng em đã gặp vấn đề là ngày bản thân tên bệnh nhân của các cột ( cùng 1 người nhập) đã trùng nhau, nên so sánh ko được, em muốn so sánh theo chiều ngang ây ạ, xem bệnh nhân của người 1 có giống người 2 hay không ạ.

Làm thế nào ạ,

Em cảm ơn

Sub Sosanh()
Dim Rng As Range, Rng1 As Range, cll As Range, kq(1 To 65000, 1 To 2), i As Long, j As Long
Set Rng = Sheet1.Range("B2", Sheet1.[B65000].End(xlUp))
Set Rng1 = Sheet1.Range("C2", Sheet1.[C65000].End(xlUp))
For Each cll In Rng
    If Application.CountIf(Rng1, cll) = 0 Then
        i = i + 1
        kq(i, 1) = cll
    End If
Next cll
For Each cll In Rng1
    If Application.CountIf(Rng, cll) = 0 Then
        j = j + 1
        kq(j, 2) = cll
    End If
Next cll
[D2].Resize(Application.Max(i, j), 2).Value = kq
Set Rng = Nothing
Set Rng1 = Nothing
End Sub

Bạn có thể dùng countif hoặc vlookuup được mà
hoặc bạn dùng tạm sub này
Cột D là là bệnh nhân 1 khác bệnh nhân 2
Cột E thì ngược lại