TỔNG HỢP DỮ LIỆU VỀ 1 SHEET

[hoanglong0901]

Nhờ anh chị hỗ trợ giúp em tổng hợp dữ liệu để ra được dữ liệu như Sheet "Kết quả"

Dữ liệu cho sẵn từ Sheet Tổng hợp
Tra dữ liệu từ ô B2 (sheet Tổng hợp) lần lượt với ô A2 (sheet CD1) và ô A2 (sheet CD2)

Nếu dữ liệu ở ô B2 (sheet Tổng hợp) giống với ô A2 (sheet CD1) thì sẽ lấy dữ liệu ô C2 (sheet Tổng hợp) nhập vào ô B2 (sheet CD1) và dữ liệu từ ô D2 (sheet Tổng hợp) nhập vào ô C2 (sheet CD1)

Tiếp tục dữ liệu ô B3 (sheet Tổng hợp) giống với ô A2 (sheet CD2) thì sẽ lấy dữ liệu ô C3 (sheet Tổng hợp) nhập vào ô B2 (sheet CD2) và dữ liệu ô D3 (sheet Tổng hợp) nhập vào ô C2 (sheet CD2)

-> Tổng hợp tại sheet Kết quả dữ liệu như bên trái

Em cảm ơn anh chị!

 

[SA_DQ]

Thực sự mình cũng chưa thật hiểu iêu cầu của bạn lắm;
Tạm thời bạn chạy con macro này & còn gì nữa ta sẽ bàn tiếp:

Sub TongHop()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Dim J As Byte, Rws As Long
1 ' Xóa Du Liêu Truóc    '
 For J = 1 To 2
    Set Sh = ThisWorkbook.Worksheets("CD" & CStr(J))
    Sh.UsedRange.Offset(1).Clear
 Next J
2 ' Chép Du Liêu Mói '
 With Sheets("THop")
    For Each Cls In .Range(.[B2], .[B2].End(xlDown))
        Set Sh = ThisWorkbook.Worksheets(Cls.Value)
        Cls.Resize(, 3).Copy Destination:=Sh.[A999].End(xlUp).Offset(1).Resize(, 3)
    Next Cls
 End With
End Sub

 

[Maika8008]

Chắc thớt đang vi vu cuối tuần rồi

 

[VetMini]

Chắc thớt đang vi vu cuối tuần rồi

Có người đoán bài giùm tội gì phải gấp.