Tìm dữ liệu thiếu và update

[ParadiseLost]

Các bác cho em hỏi một trăn trở bấy lâu của em (em không biết excel :">)

Ngày 1 (sheet date1), dữ liệu gồm 2 mã, mỗi mã có giá trị của 5 cột: open, high, low, close: A có giá trị các cột là 10 và B giá trị là 20
Ngày 2 (sheet date2), dữ liệu chỉ gồm 1 mã: A có giá trị là 11.

Việc cần làm là updated lại để dữ liệu ngày 2 gồm đủ 2 mã, A với giá trị 11 và B với giá trị lấy của ngày liền trước, tức là ngày 1 có giá trị 20, nhưng đặt giá trị trong cột volume là 0.

Bài 2:

Cũng gần như bài toán trước, nhưng ngày 2 dữ liệu không có mã B mà có thêm mã C giá trị 15 thì cách làm và sắp xếp với mã B có khác gì không ạ?

Em cần làm bài này tại vì mỗi sheet có thể có tới vài trăm mã, mà ngày hôm sau không thể biết là thiếu những mã nào so với ngày hôm trước để điền giá trị ạ.

Em cám ơn các bác nhiều :> :X

 

[SA_DQ]

Bạn xem thêm trong file kèm theo đã đúng í chưa nha!

Option Explicit
Sub CopyData()
 Dim Sh As Worksheet, Sht As Worksheet, Rng As Range, sRng As Range, Clls As Range
 Dim MyColor As Byte
 
 Set Sh = Sheets("KetQua")
 Sh.[B1].CurrentRegion.Offset(1).ClearContents
 MyColor = Sh.[a1].Interior.ColorIndex + 1
 Set Sht = Sheets("Date2")
 Set Rng = Sht.Range(Sht.[A2], Sht.[a65500].End(xlUp))
 Sht.[B1].CurrentRegion.Offset(1).Copy Destination:=Sh.[A2]
 Sh.[a1].Resize(, 2).Interior.ColorIndex = IIf(MyColor > 41, 34, MyColor)
 
 Sheets("Date1").Select
 For Each Clls In Range([A2], [a65500].End(xlUp))
   Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      With Sh.[a65500].End(xlUp).Offset(1)
         .Resize(, 6).Value = Clls.Resize(, 6).Value
         .Offset(, 6).Value = 0
      End With
   End If
 Next Clls
 Sh.Select:                   Set Sh = Nothing
End Sub

Chú í:
(*) Macro đã được gán tổ hợp fím nóng, bạn tự tìm chúng nha.
(*) Tên trang tính không nên có khoảng trắng.

 

[ParadiseLost]

Hì, cám ơn bác HYén7. Công nhận cái macro của bác tiện, mỗi lần cần update em cứ copy paste và run một nhát là xong

Nhưng có cách nào khác dùng hàm các thứ thế nào để xong không ạ? Thanks các bác.