Dùng code này thử xem.Em có 1 file excel chứa 10 sheet ( trong đó từ sheet 1->9 chứa dữ liệu, sheet còn lại là tổng hợp của 9 sheet kia ), em mốn tổng hợp dữ liệu từ 9 sheet kia. yêu cầu em đã ghi rõ trong sheet tổng hợp bác nào có ý hay chỉ em nhé!![]()
Public Sub GPE()
Dim WS As Worksheet, Arr(1 To 100, 1 To 2), Tong As Long, I As Long
For Each WS In Worksheets
If WS.Name <> "TONGHOP" Then
I = I + 1
Arr(I, 1) = WS.[A1].Value
Arr(I, 2) = WS.[B2].Value
Tong = Tong + WS.[B2].Value
End If
Next
Sheets("TONGHOP").[D5].Resize(I, 2).Value = Arr
Sheets("TONGHOP").[F5].Value = Tong
End Sub
Xem Topic này rồi làm thử theo file của bạn xem.Đầu tiên mình rất cảm ơn Ba Tê, nhưng do mình là dân mới nhập môn nên bạn hướng dẫn lại dùm. Mình tải file của bạn về rùi nhưng sao đoạn code nay vẫn chưa chạy được bạn ah!