Tự động cập nhật và xóa trùng lặp

[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

 

[nguoiconxunui]

Từ khóa : VBA remove duplicates

 

[Kin7]

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

Cái này dùng excel 2016 sẽ làm đươc mà ko cần VBA.

 

[Kin7]

Từ khóa : VBA remove duplicates

Ko phải cái này.