So sánh và copy số liệu

[sonn123]

Chào mọi người,
Mình có vấn đề này cần mọi người hướng dẫn,
Mình muốn so sánh số liệu ở cột B của Sheet1 với số liệu ở cột B của sheet2.
Nếu trùng nhau (chẳng hạn 019917) thì chép dữ liệu ở cột D của sheet2 sang cột D của sheet1 với hàng tương ứng (Overdue). Mình không biết dùng hàm nào?
Mình mong mọi người giúp đỡ.
Xin cảm ơn.

 

[dat_butmuc]

Chào mọi người,
Mình có vấn đề này cần mọi người hướng dẫn,
Mình muốn so sánh số liệu ở cột B của Sheet1 với số liệu ở cột B của sheet2.
Nếu trùng nhau (chẳng hạn 019917) thì chép dữ liệu ở cột D của sheet2 sang cột D của sheet1 với hàng tương ứng (Overdue). Mình không biết dùng hàm nào?
Mình mong mọi người giúp đỡ.
Xin cảm ơn.

Phải như thế này không ? (file đính kèm)
Cũng chẳng biết mục đích của bạn làm thế này?

 

[ChanhTQ@]

Giành khi dữ liệu của bạn là nhiều

Option Explicit
Sub ChepTheoMaTrung()
 Dim Rng As Range, sRng As Range, Sh As Worksheet, Clls As Range
 
 Sheet1.Select:            Set Sh = Sheets("Sheet2")
 Set Rng = Sh.Range(Sh.[B1], Sh.[B65500].End(xlUp))
 For Each Clls In Range([B2], [B65500].End(xlUp))
   Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      With Clls.Offset(, 2)
         .Value = sRng.Offset(, 2).Value
         .Interior.ColorIndex = 34 + .Row Mod 7
      End With
   End If
 Next Clls
End Sub

Chúc vui!