Hỏi về cách tổng hợp dữ liệu từ nhiều sheet thành 1 sheet trong excel (4 người xem)

[p3ng4n2611]

Gửi các anh chị,
Theo file đính kèm " Report-ngan" em muốn tổng hợp dữ liệu " Amount" và " Weight Actual" ở khung thứ 2 của mỗi cột trong từng sheet " hợp đồng (95TV2013,...)" ra thành 1 sheet tổng mỗi khi em nhập dữ liệu vào. Em chỉ biết làm pivot table của từng sheet nên ko thể tổng hợp hết tất cả các sheet vào thành 1 sheet được.
Em có tham khảo nhiều bài " tổng hợp nhiều sheet thành 1 sheet" của diễn đàn nhưng chỉ thấy anh chị post code VBA như file em đính kèm ko giải thích gì thêm, cũng muốn làm giống như file đó nhưng mở code lên xem em chẳng hiểu gì hết. Có anh chị nào giúp đỡ em với. Cám ơn các anh chị nhiều.

 

[p3ng4n2611]

Em gửi nhầm file rồi. Em gửi lại dạng file em muốn tổng hợp. Các anh chị giúp em với...

 

[Quang_Hải]

Em gửi nhầm file rồi. Em gửi lại dạng file em muốn tổng hợp. Các anh chị giúp em với...

Copy code này vào 1 modue rồi chạy thử

Sub TongHop()
Dim sh As Worksheet, Res(1 To 65536, 1 To 14)
Dim data(), i, k, j
For Each sh In Worksheets
   If sh.Name <> "Tonghop" Then
      data = sh.Range(sh.[A3], sh.[A65536].End(3)).Resize(, 14).Value
      For i = 1 To UBound(data)
         k = k + 1
         For j = 1 To 14
            Res(k, j) = data(i, j)
         Next
      Next
   End If
Next
Sheets("Tonghop").[A3:P10000].Clear
Sheets("Tonghop").[A3].Resize(k, 14) = Res
End Sub

 

[p3ng4n2611]

Copy code này vào 1 modue rồi chạy thử

Sub TongHop()
Dim sh As Worksheet, Res(1 To 65536, 1 To 14)
Dim data(), i, k, j
For Each sh In Worksheets
   If sh.Name <> "Tonghop" Then
      data = sh.Range(sh.[A3], sh.[A65536].End(3)).Resize(, 14).Value
      For i = 1 To UBound(data)
         k = k + 1
         For j = 1 To 14
            Res(k, j) = data(i, j)
         Next
      Next
   End If
Next
Sheets("Tonghop").[A3:P10000].Clear
Sheets("Tonghop").[A3].Resize(k, 14) = Res
End Sub

Anh chỉ em các bước bỏ zô modue là sao ko? em chỉ biết ALT + F11 là mở coi cái code thuii..>.<~

 

[p3ng4n2611]

Có anh chị nào chỉ em với....

 

[Quang_Hải]

Anh chỉ em các bước bỏ zô modue là sao ko? em chỉ biết ALT + F11 là mở coi cái code thuii..>.<~

1. Alt +F11
2. Chọn Insert, chọn Module
3. Copy code vào
4. Bấm F5 để chạy thử code

 

[p3ng4n2611]

1. Alt +F11
2. Chọn Insert, chọn Module
3. Copy code vào
4. Bấm F5 để chạy thử code

Anh ơi sao em làm y chang a chỉ ùi run thì nó lại hiện run-time error '9' vậy anh..

 

[Quang_Hải]

Anh ơi sao em làm y chang a chỉ ùi run thì nó lại hiện run-time error '9' vậy anh..

Thì là tại vì có lỗi trong quá trình chạy code. Cái này ai cũng biết hết.
Chắc là khi bấm chọn Debug thì sẽ báo vàng tại dòng này

Sheets("Tonghop").[A3:P10000].Clear

 

[p3ng4n2611]

Thì là tại vì có lỗi trong quá trình chạy code. Cái này ai cũng biết hết.
Chắc là khi bấm chọn Debug thì sẽ báo vàng tại dòng này

Sheets("Tonghop").[A3:P10000].Clear

Đúng là như vậy vì anh là người rành excel mà. Còn người ko biết gì về VBA thì mù tịt điển hình như em anh có nói như vậy thì cũng chẳng biết sửa ntn.. Hình như anh hơi khó chịu thì phải. Dù gì thì cũng cám ơn anh nhiều vì đã reply thắc mắc của em.