Cái này thì đơn giản thôi nhưng nên đưa File thật nên đi. Nhìn kiểu File này giúp xong bạn rồi bạn lại bảo nhưng File em thế này, File em thế kia. Tốt nhất nên đưa File thật lên.
Cảm ơn bạn đã hỗ trợ,, hiện tại cần thiết phương pháp không sử dụng cột phụ hơn bạn à,, nếu bạn nghĩ thêm được cách nào khác thì giúp mình với nhé!
Public Sub GPE()
Dim Dic As Object, Rng As Range, sArr(), I As Long, J As Long, N As Long, Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
Set Rng = Range("H8:X22") '<-------Thay dia chi vung nay cho dung voi du lieu that'
sArr = Rng.Value
Rng.Interior.ColorIndex = 0
'-------------------------------------'
For N = 1 To 13 Step 6
For I = 1 To UBound(sArr, 1)
Tem = Empty
For J = N To N + 4
Tem = Tem & "#" & sArr(I, J)
Next J
If Tem <> "#####" Then
If Not Dic.Exists(Tem) Then
Dic.Add Tem, 1
Else
Dic.Item(Tem) = Dic.Item(Tem) + 1
End If
End If
Next I
Next N
'-----------------------------------'
For N = 1 To 13 Step 6
For I = 1 To UBound(sArr, 1)
Tem = Empty
For J = N To N + 4
Tem = Tem & "#" & sArr(I, J)
Next J
If Tem <> "#####" Then
If Dic.Item(Tem) > 1 Then Rng(I, N).Resize(, 5).Interior.ColorIndex = 36
End If
Next I
Next N
Set Dic = Nothing
Set Rng = Nothing
End Sub
Làm vầy không tổng quát, bảng vài chục cột thì công thức sẽ như thế nào? Chưa kể trường hợp công thức có sẵn, buồn buồn người ta chèn thêm vào giữa mỗi bảng một cột thì coi như xong.
Người ta đã cảnh báo bạn
và bạn đã khẳng định
Bầy giờ bạn lại Nhưng...
Dạ, mình xin phép hỏi anh Ba Tê và anh huuthang_bd, bài này có giải quyết bằng conditional formating được không ạ?
Bạn đọc theo kiểu cưỡi ngựa xem hoa thế này thì...
Ah đúng là mới đầu là vậy anh ạ. Nhưng vì file đang trong quá trình xây dựng nên có những cái cần thiết bổ sung vào vì thế em mới hỏi thêm ạ
Đồng ý với bạn là có câu hỏi thì mọi người mới có sử học hỏi và trao đổi, rất cảm ơn bạn đã hỗ trợ.
Cảm ơn anh đã giúp đỡ nhưng ý em là dữ liệu trong cộ a,b của các bảng khác nhau thì mới tô màu ạ (như đã minh họa trong file kèm) , còn dữ liệu trong cột (a,b) mà giống nhau hết rồi tô màu thì không khác gì câu hỏi trước của em rồi ạ.
