Tự động cập nhật và xóa trùng lặp (2 người xem)

[yoyovn]

Chào các anh chị trên diễn đàn.
Hiện em đang làm 1 báo cáo để cập nhật số lượng lỗi. Hiện tại em muốn dữ liệu từ cột "Error description" của sheet QC được tự động cập nhật qua cột A của sheet Total và loại bỏ dữ liệu trùng lặp.
Phần tự động cập nhật em đã làm được nhưng phần bỏ dữ liệu trùng lặp em vẫn chưa làm được. Mọi người hướng dẫn giùm em.
Code em đang sử dụng :

Private Sub worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("Error_QC"), Target) Is Nothing Then
With Range("Error_QC")
.Copy Destination:=Sheets("Total").Range("Total_QC")
End With
End If
End Sub

 

[Ba Tê]

Chào các anh chị trên diễn đàn.
Hiện em đang làm 1 báo cáo để cập nhật số lượng lỗi. Hiện tại em muốn dữ liệu từ cột "Error description" của sheet QC được tự động cập nhật qua cột A của sheet Total và loại bỏ dữ liệu trùng lặp.
Phần tự động cập nhật em đã làm được nhưng phần bỏ dữ liệu trùng lặp em vẫn chưa làm được. Mọi người hướng dẫn giùm em.
Code em đang sử dụng :

Private Sub worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("Error_QC"), Target) Is Nothing Then
With Range("Error_QC")
.Copy Destination:=Sheets("Total").Range("Total_QC")
End With
End If
End Sub

Bạn tìm 1 chỗ nào đó (trên End If) rồi thêm dòng lệnh này coi sao:

Sheets("Total").Range("A2:A1000").RemoveDuplicates Columns:=1, Header:=xlYes

 

[yoyovn]

Bạn tìm 1 chỗ nào đó (trên End If) rồi thêm dòng lệnh này coi sao:

Sheets("Total").Range("A2:A1000").RemoveDuplicates Columns:=1, Header:=xlYes

Cảm ơn anh/chị nhiều!