Dùng thử consolidate xem sao, online bằng điện thoại di động nên không xem file được
Trường hợp của bạn thì nên dùng pivot table xem sao. Pivot table có thể nói là tuyệt cú mèo đó.
Đúng là tuyệt cú mèo bạn ah. Cảm ơn nhiều nha. Bạn có thể cho mình xin số DT dc hem??? muốn hậu tạ ý mà.
Tổng hợp thì đúng là có nhiều, nhưng kiểu của bạn thì chỉ mới có 1.
Là vì dữ liệu tại dòng 2 bạn chỉ điền sẵn có tới cột U.
Chẳng khó khăn lắm đâu, chỉ cần hứng lên mới viết được. Cho nên rút kinh nghiệm sau này hỏi bài thì phải rõ ràng ngay từ đầu.
Nếu không cần đến tiêu đề của dòng 2 sheet Tong Hop thì xoá hết dòng 2 cho khỏi bận tâm khi viết code, Code còn gọn hơn.
Sub LuXuBu()
Dim sArr(), dArr(), I As Long, K As Long, Col As Long, Ws As Worksheet
With Sheets("Tong Hop")
ReDim dArr(1 To 1000, 1 To 195)
For Each Ws In Worksheets
If Ws.Name <> "Tong Hop" Then
K = K + 1
dArr(K, 1) = K
dArr(K, 2) = Ws.[B3].Value
sArr = Ws.Range("B6:G69").Value
For I = 1 To 64
Col = I * 3 + 1
If sArr(I, 6) <> Empty Then
dArr(K, 3) = dArr(K, 3) + sArr(I, 6)
dArr(K, Col) = sArr(I, 2)
dArr(K, Col + 1) = sArr(I, 4)
dArr(K, Col + 2) = sArr(I, 6)
End If
Next I
End If
Next Ws
If K Then .[A4].Resize(K, 195) = dArr
End With
End SubVì em thề rồi nên không thể sửa code. Thực ra để điền tự động cái dòng 2 chẳng khó khăn gì.
