Tô màu dữ liệu trùng

[heocon]

Xin chào các anh chị GPE!

Em muốn làm 1 macro dùng để lọc và tô màu khi phát hiện dữ liệu trùng nhau.
Em có 1 file dữ liệu gồm 3 cột ID, CODE, NAME
Em muốn lọc nếu thấy dòng nào có ID Code trùng thì tô màu lên.
Em có gữi file kèm theo.
Mong nhờ sự giúp đở của anh chị.
Em chân thành cám ơn.
Chúc mọi người luôn vui vẽ.

Thân!

 

[SA_DQ]

Xin chào & xài thử cái ni, nha

Sub ColorsAdd()
' Macro  by SaDQ in GPE.COM'
 Dim lRow As Long, jZ As Long, bColor As Byte
  
 Columns("A:D").Select
 Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
    , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
    False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
    :=xlSortNormal
 lRow = Range("A65432").End(xlUp).Row
 bColor = 33
  
 For jZ = 3 To lRow
    With Cells(jZ, 1)
        If .Value = .Offset(-1) And .Offset(, 1) = .Offset(-1, 1) Then
            If .Offset(-2, 1) <> .Offset(, 1) Then bColor = bColor + 1
            .Offset(-1).Resize(2, 4).Interior.ColorIndex = bColor
            If bColor > 40 Then bColor = 34
        End If
    End With
 Next jZ
End Sub

Chú í: Mình chưa hỏi í kiến, đã tùy tiện xếp dữ liệu theo cột 'A' & 'B'
Nếu không phải vậy thì La lên nha!

 

[anhtuan1066]

Ko cần code đâu... chỉ cần Conditional Formating là dc rồi...
Xem file
ANH TUẤN

 

[tigertiger]

Ko cần code đâu... chỉ cần Conditional Formating là dc rồi...
Xem file
ANH TUẤN

Nhưng nếu DL chưa sắp xếp thì cần CODE, atuan ah...

 

[anhtuan1066]

Nhưng nếu DL chưa sắp xếp thì cần CODE, atuan ah...

Trời... Tô màu thì liên quan gì đến vụ sắp xếp... Tigertiger xem lại nhé... Tôi chẳng sắp xếp gì cả...
ANH TUẤN