Cần các bác giúp e xóa các số giống nhau ở 2 cột với (1 người xem)

[namtrung600]

Nhờ các bác giúp e với. Chả là thằng bạn e được giao cho 1 file ecl với 2 dẫy số dài lê thê lếch thếch và bị giao cho công việc là cứ soi số bên cột thứ 1 so với cột thứ 2 nếu trùng nhau thì xóa cả 2 số đó đi, cứ thế đến khi hết (chú ý 1 số xóa 1 số chứ ko phải là xóa hết). E xin gửi một khúc của dẫy đó (file đính kèm). nhờ a e giúp với. thank a e ^^

 

[Quang_Hải]

Bài này lẽ ra đưa dữ liệu của 2 cột vào 1 mảng rồi so sánh trên mảng và xử lý trực tiếp thì nhanh hơn nhiều, vậy mà giờ coi lại mới nghĩ ra.

Sub xoa()
Dim arr
arr = Range([c2], [d65536].End(3)).Value
For i = 1 To UBound(arr)
    For j = 1 To UBound(arr)
        If arr(i, 1) = arr(j, 2) Then
            arr(i, 1) = ""
            arr(j, 2) = ""
        End If
    Next
Next
[e2].Resize(UBound(arr), 2) = arr
End Sub