Với một bảng dữ liệu đồ sộ trong excel, việc dữ liệu bị trùng lặp là điều hoàn toàn có thể xảy ra, và bài viết này sẽ hướng dẫn các bạn cách tìm và xóa các dữ liệu bị trùng lặp bằng các cách khác nhau, tùy vào từng trường hợp cụ thể để áp dụng cho hiệu quả.
1. Tìm Dữ Liệu Trùng Lặp Trong Excel.
1.1. Sử Dụng Conditional Formatting
Các bạn biết trước đây chúng ta cũng có bài viết sử dụng công cụ Conditional Formatting để thực hiện các thủ thuật như tô màu giá trị duy nhất trong excel, hay như là tô màu cảnh báo trong excel... nay chúng ta cũng sử dụng công cụ đó để tô màu các giá trị lặp lại trong excel
Đầu tiên các bạn bôi chọn toàn bộ giá trị mà bạn muốn tìm giá trị trùng lặp sau đó vào Home
Chọn tiếp Conditinoal Formatting - Highlight Cells Rules - Duplicate Values
Chọn hành động và màu mà bạn muốn sau đó nhấn OK
Lúc này những giá trị nào bị lặp lại sẽ được tô màu lên, các bạn dễ dàng thấy bằng mắt thường
1.2. Sử Dụng Hàm Excel
Với cách này các bạn sẽ sử dụng hàm excel đó là Countif để xác định giá trị lặp lại, công thức áp dụng như sau:
=COUNTIF($B$2:B2;B2)
Kết quả các giá trị lặp lại sẽ bằng 2 hoặc bằng 3...tùy theo tần số lặp lại của nó
Bạn chỉ cần lọc các giá trị khác 1 là sẽ ra các giá trị lặp lại
1.3. Sử Dụng VBA
Nếu hai cách trên vẫn chưa thỏa mãn thì hãy sử dụng cách thứ 3 này, bằng cách sử dụng VBA trong excel
Nhấn Alt + F11 để mở cửa sổ VBA
Sau đó vào Insert - Module
Copy vá dán đoạn code bên dưới vào
Sub SearchDouble()
Dim ws As Worksheet
Dim cell As Range
Dim myrng As Range
Dim clr As Long
Dim lastcell As Range
Dim lastrow As Long
Set ws = ThisWorkbook.ActiveSheet
'Vung can danh dau gia tri trung nhau
Set myrng = ws.Range("B2:B10")
With myrng
Set lastcell = .Cells(.Cells.Count)
End With
myrng.Interior.ColorIndex = xlNone
clr = 3
For Each cell In myrng
'Kiem tra so gia tri trung nhau trong vung, neu co hai gia tri trung nhau tro len thi thuc hien
If Application.WorksheetFunction.CountIf(myrng, cell) > 1 Then
'Neu la o dau tien cua cac gia tri trung nhau trong vung
If myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastcell).Address = cell.Address Then
'Thiet lap mau
cell.Interior.ColorIndex = clr
Else
'Thiet lap mau tu o thu 2 voi cac gia tri trung nhau
cell.Interior.ColorIndex = myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastcell).Interior.ColorIndex
End If
End If
Next
End Sub
Chú ý trong đoạn code trên bạn sửa lại vùng cần tìm giá trị lặp lại, ở đây là B2:B10
Sau đó nhấn F5 hoặc icon màu xanh để chạy code
Lúc này các giá trị lặp lại sẽ được tô sáng màu lên, như cách 1 vậy
2. Xóa Dữ Liệu Trùng Lặp
Với phần 1 thì chúng ta đi tìm giá trị trùng lặp, và muốn xóa thì có thể xóa tay từng dữ liệu trùng lặp, nhưng thật may là excel lại có công cụ xóa dữ liệu lặp lại một cách tự động, mà bạn không cần phải thao tác nhiều gì cả, đầu tiên chọn toàn bộ dữ liệu
Sau đó vào Data - Remove Duplicates
Ở đây chúng ta muốn xóa dữ liệu cột nào thì check box vào cột đó và nhấn OK
Cảnh báo của excel, nhấn OK
Dữ liệu trùng lặp đã bị xóa rồi
Trên là hướng dẫn tìm và xóa dữ liệu lặp lại trong excel, hy vọng thủ thuật nhỏ này sẽ có ích cho các bạn, chúc các bạn thành công.
