Code tìm kiếm và so sánh dữ liệu

[bebeen]

Em muốn nhờ AC thiết lập cho em code tìm kiếm và so sánh dữ liệu. Câu hỏi cụ thể trong file đính kèm!
Cám ơn AC nhiều!

 

[giangleloi]

Số liệu ở sheet DATA thực tế không phải là số liệu như vậy. Nó sẽ không tăng đều và đủ 7 ký tự mỗi ô ạ! Vậy nó có ảnh hưởng gì không?

For I = 5 To .Range("A" & Rows.Count).End(3).Row
Chỗ bôi đỏ cột nào có số lượng dòng lớn nhất thì đổi thành tên cột đó là không vấn đề gì.

 

[doveandrose]

Góp thêm cách không vòng lặp dữ liệu sheet DATA chuyển qua 3 cột O, P, Q sheet FIND

Sub ToMau()
    With Sheet2
      .[A5].Select
      .Range("A5:C14").FormatConditions.Delete
           With Range("A5:C14").FormatConditions.Add( _
                Type:=xlExpression, _
                Formula1:="=Countif($O$1:$Q$250,A5)=0")
               .Font.Color = -16776961
           End With
    End With
End Sub

hay quá anh ơi . anh này pro nè

 

[giangleloi]

hay quá anh ơi . anh này pro nè

Dạ. Em còn thua bác xa ạ. híc híc.

 

[doveandrose]

Úi úi...........anh ý dùng CF ...............mà 2007 không chạy được nên ảnh đưa sang cùng 1 sheet..................kakaka

đó là ý tưởng của người có tài năng ....