Giúp em tìm kiếm, so sánh và tô màu theo điều kiện

[fan.8051]

Em đang làm Excel nhưng bí đoạn này quá. Tình hình là thế này:
Lấy lần lượt từng ô dữ liệu trong cột A, sau đó mang đi so sánh với tất cả dữ liệu trong cột X và Y. Nếu dữ liệu mang đi so sánh mà thuộc cột X thì tô màu Đỏ, còn nếu thuộc cột Y thi tôt màu Xanh.
Mục đích la để người khác khi nhìn vào các dữ liệu ở cột A, người ta sẽ phân biệt được cái nào thuộc cột X, cái nào thuộc cột Y.
Mọi người giúp em với ạ !
p/s: em có đính kèm file excel

​

 

[n0thing1988]

Bài tô màu này có nhiều trên diễn đàn rồi mà. Bạn tham khảo link
http://www.giaiphapexcel.com/forum/...đề-giải-đáp-các-bài-tập-Excel-(Phần-4)/page28
Bước 4 thì đánh công thức =COUNTIF($A$3:$A$250,X3)=0. Vậy là tô màu được như ý

 

[fan.8051]

Cám ơn anh n0thing1988, em làm được rồi nhưng chỉ làm được cho 1 ô, giờ muốn quét cho tất cả các ồ thì sao anh ? tại vì em có hơn 100 ô nên ko thể làm từng ô một được
Anh giúp em với nha

 

[n0thing1988]

Cám ơn anh n0thing1988, em làm được rồi nhưng chỉ làm được cho 1 ô, giờ muốn quét cho tất cả các ồ thì sao anh ? tại vì em có hơn 100 ô nên ko thể làm từng ô một được
Anh giúp em với nha

Làm cho 1 ô là sao nhỉ? Mình tô màu được cả cột A mà. Có thể bạn chưa chọn cột A từ bước đầu

 

[fan.8051]

Minh làm được rôi n0thing1988 ! Cám ơn bạn vì đã nhiệt tình giúp đỡ

 

[hung2412]

Em đang làm Excel nhưng bí đoạn này quá. Tình hình là thế này:
Lấy lần lượt từng ô dữ liệu trong cột A, sau đó mang đi so sánh với tất cả dữ liệu trong cột X và Y. Nếu dữ liệu mang đi so sánh mà thuộc cột X thì tô màu Đỏ, còn nếu thuộc cột Y thi tôt màu Xanh.
Mục đích la để người khác khi nhìn vào các dữ liệu ở cột A, người ta sẽ phân biệt được cái nào thuộc cột X, cái nào thuộc cột Y.
Mọi người giúp em với ạ !
p/s: em có đính kèm file excel

View attachment 135881​

Bạn thử Code cùi này xem:
[GPECODE=vb]Sub To_mau()
Dim Dic As Object
Dim rng As Range
Set Dic = CreateObject("Scripting.Dictionary")
For Each rng In Range([A3], [A65536].End(xlUp))
If rng <> "" Then
If Not Dic.exists(rng.Value) Then
Dic.Add rng.Value, Empty
End If
End If
Next
For Each rng In Range([A3], [A65536].End(xlUp))
If rng.Offset(, 23) <> "" Then
If Dic.exists(rng.Offset(, 23).Value) Then
rng.Offset(, 23).Interior.ColorIndex = 3
End If
End If
If rng.Offset(, 24) <> "" Then
If Dic.exists(rng.Offset(, 24).Value) Then
rng.Offset(, 24).Interior.ColorIndex = 4
End If
End If
Next
End Sub[/GPECODE]