Xóa dữ liệu trùng

[heocon]

Thân chào các anh chị của GPE!

Em có 1 file báo cáo của năm, nhưng ko bit do em nhầm lẫn hay dữ liệu sai mà file baocao của em bị double (trùng nhau).
Em chỉ biết rằng dữ liệu đã bị lặp lại, nhưng ko bít tìm nó ở đâu.
Em đã thử dung Data -> Filter : cũng tìm được, nhưng làm như vậy thì lâu quá. Với lại file của trên 30000 dòng và có 3 file bị như vậy?

Em xin hỏi các anh chị có cách nào lọc chúng ra ko? giúp em có phương pháp nhanh nhất.

Em có gửi file vd, anh chị xem thử.

Cám ơn các anh chị, chúc mọi người luôn vui vẻ.

 

[anhtuan1066]

Oh... thì cũng là Advanced Filter thôi...
Muốn nhanh thì làm 1 con macro vậy
Xem file.. bấm nút LOC nhé... C
Chú ý: Tôi đã đặt name sẳn cho bạn đến dòng 10.000, nếu thiếu thì bạn có thễ vào Define name sữa lại
ANH TUẤN

 

[heocon]

Cám ơn anh Tuấn đã giúp đỡ.
Em có 1 chút thắc mắc về Code mong anh giải thích thêm.

Sub LOC()
Application.Goto Reference:="DL"
Selection.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("LOC!A5"), Unique:=True
Sheets("LOC").Select
Range("A4").Select
End Sub

A5 : ở đây có phải là dữ liệu bắt đầu từ A5 trở xuông ko anh. Nếu đúng như vậy thì sao em sữa thành A1 lại (em chuyển button qua Sheet data) ko chạy tốt.
A4 : nghĩa là sao anh nhỉ.

Mong anh giảng giải thêm.

 

[anhtuan1066]

Tôi sữa A5 thành A1 và chuyển Button sang Data thấy bình thường mà bạn...
A5 là cell bắt đầu cũa Sheet LOC.. Bạn có thể sữa lại nếu muốn
Còn A4 uh? Xóa cũng dc... Range("A4").Select ---> chỉ là CHỌN CELL A4 thôi... tức sau khi làm xong việc thì đặt con trõ chuột tại cell nào đó... nói chung là ko quan trọng gì...
ANH TUẤN

 

[kongcom]

Vậy thì có thể bỏ 2 dòng cuối
Sheets("LOC").Select
Range("A4").Select

mà không thay đổi kết quả của marco .

Nên chăng thêm đoạn này cho kết quả nhẹ bớt

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[anhtuan1066]

Nói thêm...
Thật ra cái macro ấy cũng chỉ là công cụ có sẳn.. nó có dc do tôi record macro khi thực hiện Advanced Filter mà thôi... Bạn có thể tự làm dc đấy!
Mến
ANH TUẤN