TÔ MÀU trong excel theo điều kiện.TÔ MÀU dữ liệu TRÙNG nhau với màu khác nhau

admin gửi xin code với

Nhận xét k có c ơi

ko thấy công thức hả chị ơi? cho em xin công thức ạ daisy.anhle@gmail.com . Em xin cảm ơn ạ.

Đây là hai thủ tục tô màu và hủy tô màu
Sub ToMau()

Dim ws As Worksheet

Dim cell As Range

Dim myrng As Range

Dim clr As Long

Dim lastcell As Range

Dim i As Long

Dim lastrow As Long

Set ws = ThisWorkbook.ActiveSheet

'Vung can danh dau gia tri trung nhau
Set myrng = Sheet8.Range("C4:c" & Sheet8.Range("A" & Sheet8.Rows.Count).End(xlUp).Row) 'lua chon vung c4 den c cuoi cùng

With myrng

Set lastcell = .Cells(.Cells.Count)

End With

myrng.Interior.ColorIndex = xlNone

clr = 3

For Each cell In myrng

'Kiem tra so gia tri trung nhau trong vung, neu co hai gia tri trung nhau tro len thi thuc hien

If Application.WorksheetFunction.CountIf(myrng, cell) > 1 Then

'Neu la o dau tien cua cac gia tri trung nhau trong vung

If myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastcell).Address = cell.Address Then

'Thiet lap mau

cell.Interior.ColorIndex = clr

clr = clr + 1

i = i + 1

Else

'Thiet lap mau tu o thu 2 voi cac gia tri trung nhau

cell.Interior.ColorIndex = myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastcell).Interior.ColorIndex

End If

End If

Next

'Lay dong cuoi cung cua vung du lieu

'lastrow = Cells(Rows.Count, "A").End(xlUp).Row

'Range("A" & lastrow + 2).Value = "Tong so co" & i & " gia tri trung nhau"

End Sub
==============================
Sub HuyBo_Mau()

Dim myrng As Range

Set myrng = Sheet8.Range("C4:C" & Sheet8.Range("A" & Sheet8.Rows.Count).End(xlUp).Row)

With myrng.Interior

.Pattern = xlNone

.TintAndShade = 0

.PatternTintAndShade = 0

End With

End Sub