Xin hỗ trợ code VBA hợp nhất + lọc dữ liệu (có file) (1 người xem)

DINODRAGON · 26/11/15

Xin các cao thủ giúp mình file này với, mình phải làm việc với rất nhiều file tương tự mà toàn file như thế này thì chết mất.

Mô tả:
Cột C(bôi vàng) là kết quả cuộc việc hợp dữ liệu từ cột D và E sao cho toàn bộ dữ liệu từ cột D và E sẽ có tại cột C. Các dữ liệu nếu bị trùng chỉ hiển thị một lần duy nhất.
Hợp dữ liệu chứ không phải CONCATENATE dữ liệu nhé

Yêu cầu:
Cần viết code VBA để tổng hợp dữ liệu từ 2 cột D và E vào cột C

Link file
https://drive.google.com/file/d/0B99bJzBsIwQVRmF5Y1lSSTF5VGc/view?usp=sharing

Nếu làm thủ công thì mình phải copy toàn bộ cột D và cột E vào cột C sau đó sử dụng remove duplicate thì sẽ được tuy nhiên cách này rất tốn thời gian.

Nhờ các bạn giúp mình đoạn code để làm việc này với. Xin chân thành cảm ơn.

Ba Tê · 26/11/15

DINODRAGON đã viết:
Xin các cao thủ giúp mình file này với, mình phải làm việc với rất nhiều file tương tự mà toàn file như thế này thì chết mất.

Mô tả:
Cột C(bôi vàng) là kết quả cuộc việc hợp dữ liệu từ cột D và E sao cho toàn bộ dữ liệu từ cột D và E sẽ có tại cột C. Các dữ liệu nếu bị trùng chỉ hiển thị một lần duy nhất.
Hợp dữ liệu chứ không phải CONCATENATE dữ liệu nhé

Yêu cầu:
Cần viết code VBA để tổng hợp dữ liệu từ 2 cột D và E vào cột C

Link file
https://drive.google.com/file/d/0B99bJzBsIwQVRmF5Y1lSSTF5VGc/view?usp=sharing

Nếu làm thủ công thì mình phải copy toàn bộ cột D và cột E vào cột C sau đó sử dụng remove duplicate thì sẽ được tuy nhiên cách này rất tốn thời gian.

Nhờ các bạn giúp mình đoạn code để làm việc này với. Xin chân thành cảm ơn.

Bạn biết cách làm thủ công, nhưng sợ tốn thời gian thì dùng Record Macro ghi lại công việc bạn đã làm thủ công, sau này cho chạy Macro này thì nó làm thôi, bạn chi "tốn" thời gian chờ code chạy xong.
Ví dụ:

PHP:

Sub Macro1()
Range([D2], [D1048576].End(xlUp)).Copy [C2]
Range([E2], [E1048576].End(xlUp)).Copy [C1048576].End(xlUp).Offset(1)
Range([C2], [C1048576].End(xlUp)).RemoveDuplicates Columns:=1
End Sub