Làm cách nào để đánh dấu các giá trị trùng lặp bằng các màu khác nhau trong Excel?
Trong Excel, chúng ta có thể dễ dàng đánh dấu các giá trị trùng lặp trong một cột bằng một màu bằng cách sử dụng Định dạng có điều kiện, nhưng, đôi khi, chúng ta cần đánh dấu các giá trị trùng lặp bằng các màu khác nhau để nhận ra các bản sao một cách nhanh chóng và dễ dàng như hình minh họa sau. Làm thế nào bạn có thể giải quyết công việc này trong Excel?
Đánh dấu các giá trị trùng lặp trong một cột với các màu khác nhau bằng cách sử dụng mã VBA
Đánh dấu các giá trị trùng lặp trong một cột với các màu khác nhau bằng cách sử dụng mã VBA
Trên thực tế, không có cách nào trực tiếp để chúng tôi hoàn thành công việc này trong Excel, tuy nhiên, mã VBA dưới đây có thể giúp bạn, vui lòng thực hiện như sau:
1. Chọn cột giá trị mà bạn muốn đánh dấu các bản sao bằng các màu khác nhau, sau đó nhấn giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.
Mã VBA: Đánh dấu các giá trị trùng lặp bằng các màu khác nhau:
Sub ColorCompanyDuplicates()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xCIndex = 2
Set xCol = New Collection
For Each xCell In xRg
On Error Resume Next
xCol.Add xCell, xCell.Text
If Err.Number = 457 Then
xCIndex = xCIndex + 1
Set xCellPre = xCol(xCell.Text)
If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Then
MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
Exit Sub
End If
On Error GoTo 0
Next
End Sub
3. Và sau đó nhấn F5 để chạy mã này và hộp nhắc sẽ nhắc bạn chọn phạm vi dữ liệu mà bạn muốn đánh dấu các giá trị trùng lặp, xem ảnh chụp màn hình:
4. Sau đó nhấn vào OK , tất cả các giá trị trùng lặp đã được đánh dấu bằng các màu khác nhau, xem ảnh chụp màn hình:
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!