Dò tìm những mã nào không có trong các sheet thì tô màu. (1 người xem)

[lhthai]

Tại sheet DS1 dò tìm những mã nào không có trong các sheet còn lại thì tô màu.
Ví dụ mình để trong file.

 

[gtri]

Tại sheet DS1 dò tìm những mã nào không có trong các sheet còn lại thì tô màu.
Ví dụ mình để trong file.

Dữ liệu mỗi sheet nằm trên 1 cột

Public Sub to_mau()
Dim DL, Sh As Worksheet, r As Long
Sheets("DS1").UsedRange.ClearFormats

With CreateObject("scripting.dictionary")
For Each Sh In Worksheets
If Sh.Name <> "DS1" Then
DL = Sh.UsedRange
For r = 1 To UBound(DL)
If Not .exists(DL(r, 1)) Then .Add DL(r, 1), ""
Next r
End If
Next Sh

For r = 1 To Sheets("DS1").UsedRange.Rows.Count
If Not .exists(Sheets("DS1").Range("A" & r).Value) Then
Sheets("DS1").Range("A" & r).Interior.ColorIndex = 6
End If
Next r

End With
End Sub