So sánh, trích lọc sự khác biệt giữa các dữ liệu (1 người xem)

[Người Đưa Tin]

Nhờ các Thầy giúp mình xử lý so sánh, trích lọc sự khác biệt giữa các dữ liệu đã có giữa cột B và Cột D,
Đưa kết quả tìm được sự khác biệt đó vào cột E và F

Chân thành cám ơn

 

[hoangminhtien]

Bác Trí xem trong file nhé!

 

[ndu96081631]

Bài dạng này trước đây tôi đã từng quay phim màn hình hướng dẫn cách làm. Nói chung đơn giản nhất là dùng Advanced Filter mà làm, khỏi công thức hay code gì ráo cho cồng kềnh

 

[Ba Tê]

Nhờ các Thầy giúp mình xử lý so sánh, trích lọc sự khác biệt giữa các dữ liệu đã có giữa cột B và Cột D,
Đưa kết quả tìm được sự khác biệt đó vào cột E và F

Chân thành cám ơn

Nếu "Già Gân" không khoái công thức như hoangminhtien thì tặng "bồ" 1 cái nút bấm khi Enable Macros.
Đừng nói là hổng biết làm sao "bấm nút" à nghe.
"Nheo con mắt bên trái, mở con mắt bên phải, lấy con chuột của lão rà qua rà lại rồi bấm, trật bấm lại, chừng nào thấy nó giựt giựt một cái là xong".
Ẹc...

 

[Quang_Hải]

Nếu "Già Gân" không khoái công thức như hoangminhtien thì tặng "bồ" 1 cái nút bấm khi Enable Macros.
Đừng nói là hổng biết làm sao "bấm nút" à nghe.
"Nheo con mắt bên trái, mở con mắt bên phải, lấy con chuột của lão rà qua rà lại rồi bấm, trật bấm lại, chừng nào thấy nó giựt giựt một cái là xong".
Ẹc...

Nếu code thì em viết theo cách này, em test thử thấy nhanh hơn nhiều lắm đó anh

Sub sosanh()
Application.ScreenUpdating = False
Dim dl1 As Object, dl2 As Object, kq(), j As Long, i As Long, tim As Object, t
t = Timer
Set dl1 = Range([b9], [b65536].End(3))
Set dl2 = Range([d9], [d65536].End(3))
ReDim kq(1 To dl2.Rows.Count, 1 To 1)
For i = 1 To dl1.Rows.Count
    Set tim = dl2.Find(dl1(i, 1))
    If tim Is Nothing Then
        j = j + 1
        kq(j, 1) = dl1(i, 1)
    End If
Next
If j Then [G9].Resize(j) = kq
j = 0
ReDim kq(1 To dl2.Rows.Count, 1 To 1)
For i = 1 To dl2.Rows.Count
    Set tim = dl1.Find(dl2(i, 1))
    If tim Is Nothing Then
        j = j + 1
        kq(j, 1) = dl2(i, 1)
    End If
Next
If j Then [H9].Resize(j) = kq
MsgBox Timer - t
Application.ScreenUpdating = True
End Sub

 

[Người Đưa Tin]

Mình xin phép chia sẻ clip video của Thầy anhtuan1066 hướng dẫn giải quyết, xử lý vướng mắc bài toán trên của mình.

[video=youtube;aYFElLKroWE]http://www.youtube.com/watch?v=aYFElLKroWE[/video]​

Xin cám ơn Thầy.