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

Liên hệ QC

bebeen

Thành viên thường trực
Tham gia
13/2/12
Bài viết
213
Được thích
24
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!
 

File đính kèm

  • Finding Data.rar
    13.6 KB · Đọc: 19
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ì.
 
Upvote 0
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
Mã:
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è }}}}}}}}}}}}}}}
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom