Xoá dữ liệu trùng giữa 2 cột (1 người xem)

[powerofloveinmyheart]

nhờ các bác tạo giúp macro xóa dữ liệu trùng giữa 2 cột, chi tiết em ghi trong file
chân thành cám ơn

 

[Hau151978]

Sub x()
    Dim A(), B(), i&, j&
    A = Range("A1:C" & Range("C65536").End(xlUp).Row).Value2
    ReDim B(1 To 2 * UBound(A), 1 To 3)
    B(1, 1) = A(1, 1)
    B(1, 2) = A(1, 2)
    B(1, 3) = A(1, 3)
    j = 2
    For i = 2 To UBound(A)
        B(j, 1) = ""
        B(j, 2) = ""
        If A(i, 1) = A(i - 1, 1) And A(i, 2) = A(i - 1, 2) Then
            B(j, 3) = A(i, 3)
            j = j + 1
        Else
            B(j, 3) = ""
            B(j + 1, 1) = A(i, 1)
            B(j + 1, 2) = A(i, 2)
            B(j + 1, 3) = A(i, 3)
            j = j + 2
        End If
    Next
    Range("F1:H" & (j - 1)) = B
End Sub

 

[powerofloveinmyheart]

Sub x()
    Dim A(), B(), i&, j&
    A = Range("A1:C" & Range("C65536").End(xlUp).Row).Value2
    ReDim B(1 To 2 * UBound(A), 1 To 3)
    B(1, 1) = A(1, 1)
    B(1, 2) = A(1, 2)
    B(1, 3) = A(1, 3)
    j = 2
    For i = 2 To UBound(A)
        B(j, 1) = ""
        B(j, 2) = ""
        If A(i, 1) = A(i - 1, 1) And A(i, 2) = A(i - 1, 2) Then
            B(j, 3) = A(i, 3)
            j = j + 1
        Else
            B(j, 3) = ""
            B(j + 1, 1) = A(i, 1)
            B(j + 1, 2) = A(i, 2)
            B(j + 1, 3) = A(i, 3)
            j = j + 2
        End If
    Next
    Range("F1:H" & (j - 1)) = B
End Sub

thank bác, đã giải quyết được vấn đề