Kiểm tra các bản sao trong cột
Trong bài viết này, chúng tôi đã tạo một macro để làm nổi bật các giá trị trùng lặp.
Dữ liệu thô bao gồm các tên xe khác nhau. Chúng tôi muốn đánh dấu các mục trùng lặp.
Nhấn nút “Đánh dấu bản sao” để chạy macro và đánh dấu các mục trùng lặp.
Giải thích logic
Chúng tôi đã tạo macro “Check_Dups” để đánh dấu các mục nhập trùng lặp. Chúng sẽ được đánh dấu bằng màu đỏ. Trong macro, chúng tôi kiểm tra số lượng của một mục nhập cụ thể. Nếu nó lớn hơn 1, thì dữ liệu sẽ được tô sáng.
Vui lòng theo dõi bên dưới để biết mã
Option Explicit
Sub Check_Dups()
'Declaring variables
Dim Cell As Variant
Dim Source As Range
'Initializing source range
Set Source = Range("A9:A24")
'Removing any previous formatting from the source
Source.Interior.Color = RGB(221, 235, 247)
'Looping through each cell in the source range
For Each Cell In Source
'Checking whether value in cell already exist in the source range
If Application.WorksheetFunction.CountIf(Source, Cell) > 1 Then
'Highlighting duplicate values in red color
Cell.Interior.Color = RGB(255, 0, 0)
End If
Next
End Sub
Nếu bạn thích blog này, hãy chia sẻ nó với bạn bè của bạn trên Facebook và Facebook.
Chúng tôi rất muốn nghe ý kiến từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi [email protected]