Nội dung

Trong số các công cụ Microsoft Excel tiêu chuẩn, có nhiều cách khác nhau để đánh dấu các phần trùng lặp bằng màu sắc. Cách dễ nhất và nhanh nhất là định dạng có điều kiện. Để thực hiện việc này, chỉ cần chọn một phạm vi ô và chọn trên tab Trang chủ — Định dạng có điều kiện — Quy tắc chọn ô — Giá trị trùng lặp (Trang chủ — Định dạng có điều kiện — Đánh dấu quy tắc ô — Giá trị trùng lặp):

Chiếu sáng kép các bản sao

Tuy nhiên, trong trường hợp này, màu tô của tất cả các ô sẽ giống nhau, tức là nó chỉ báo hiệu rằng phần tử có các bản sao ở một nơi khác trong phạm vi, nhưng không giúp tìm thấy chúng. Bạn có thể khắc phục tình huống này bằng một macro nhỏ sẽ lấp đầy từng cặp (hoặc nhiều) bản sao lặp lại bằng màu riêng của nó:

Chiếu sáng kép các bản sao

Rõ ràng hơn nhiều, phải không? Tất nhiên, với số lượng ô lặp lại lớn, sẽ khó phân biệt giữa các sắc thái, nhưng với số lượng ô trùng lặp tương đối nhỏ, phương pháp này sẽ hoạt động hoàn hảo.

Để sử dụng macro này, hãy nhấn phím tắt Alt + F11 hoặc nút Visual Basic chuyển hướng Nhà phát triển, chèn một mô-đun trống mới qua menu Chèn - Mô-đun và sao chép mã của macro này vào đó:

Sub DuplicatesColoring() Dim Dupes() 'Khai báo một mảng để lưu trữ các bản sao ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Xóa phần điền nếu i = 3 cho mỗi ô trong Lựa chọn Nếu WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'nếu ô đã nằm trong mảng trùng lặp, hãy điền vào If Dupes(k, 1) = cell Sau đó là ô. Nội thất. ColorIndex = Dupes(k, 2) Tiếp theo k 'nếu ô chứa một bản sao nhưng chưa có trong mảng, hãy thêm nó vào mảng và điền vào Nếu cell.Interior.ColorIndex = -4142 Thì cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End If Ô tiếp theo End Sub  

Bây giờ bạn có thể chọn bất kỳ phạm vi nào có dữ liệu trên trang tính và chạy macro của chúng tôi bằng phím tắt Alt + F8 hoặc thông qua nút Macros (Macro) chuyển hướng nhà phát triển (Nhà phát triển).

  • Đánh dấu các bản sao bằng màu sắc
  • Macro là gì, chèn mã macro vào đâu trong Visual Basic, cách chạy chúng
  • Cách đếm số lượng giá trị duy nhất trong một phạm vi ô nhất định

Bình luận