Nhờ giúp thêm dữ liệu từ Sheet phụ sang Sheet tổng hợp (1 người xem)

[dosontung86]

Em có file excel đính kèm.
File gồm có 2 Sheet . Sheet chính là Tonghop, sheet 2 là sheet phụ
Em muốn nhờ các a chị giúp đỡ cách để cập nhật dữ liệu từ sheet 2 vào Tonghop với tiêu chí như sau:
Dữ liệu ở Sheet 2 từ cột A đến F thêm Tonghop tương ứng từ hàng thứ 11 từ cột A đến F.

Dữ liệu còn lại là các Nội dung.
VD: Đôi số 11 đăng ký Nội dung 158, 156, 152, 150.
Sẽ thêm vào bên Sheet Tonghop tên, NS, Đơn vị và tích số 1 vào các cột , hàng tương ứng với số nội dung ở hàng 4 trên Sheet Tonghop.
Như mẫu

 

[HungQuoc49]

Em có file excel đính kèm.
File gồm có 2 Sheet . Sheet chính là Tonghop, sheet 2 là sheet phụ
Em muốn nhờ các a chị giúp đỡ cách để cập nhật dữ liệu từ sheet 2 vào Tonghop với tiêu chí như sau:
Dữ liệu ở Sheet 2 từ cột A đến F thêm Tonghop tương ứng từ hàng thứ 11 từ cột A đến F.

Dữ liệu còn lại là các Nội dung.
VD: Đôi số 11 đăng ký Nội dung 158, 156, 152, 150.
Sẽ thêm vào bên Sheet Tonghop tên, NS, Đơn vị và tích số 1 vào các cột , hàng tương ứng với số nội dung ở hàng 4 trên Sheet Tonghop.
Như mẫu

Kiểm tra kết quả file đính kèm xem sao
Nhấn vào "thống kê"

Public Sub DoSonTung()
Dim Nguon, NoiDung(), r As Long, c As Long

Nguon = Sheet2.Range("A2", "L" & Sheet2.Range("A2").End(xlDown).Row)
NoiDung = Sheet1.Range("G4:EV4")

With CreateObject("scripting.dictionary")
For c = 1 To UBound(NoiDung, 2)
.Add NoiDung(1, c), c
Next c
ReDim NoiDung(1 To UBound(Nguon), 1 To .Count)

For r = 1 To UBound(Nguon)
For c = 7 To UBound(Nguon, 2)
If Nguon(r, c) <> "" Then
NoiDung(r, .Item(Val(Split(Nguon(r, c))(0)))) = 1
Else
Exit For
End If
Next c
Next r
End With

With Sheet1
.Range("A11:EV100000").ClearContents
.Range("A11").Resize(UBound(Nguon), 6) = Nguon
.Range("G11").Resize(UBound(NoiDung), UBound(NoiDung, 2)) = NoiDung
End With
End Sub

 

[dosontung86]

Tuyệt vời anh ạ. Cảm ơn anh nhiều