Trợ giúp tổng hợp dữ liệu (1 người xem)

[blueboy]

Xin cả nhà hỗ trợ, mình có 1 file co nhiều sheet cần tổng hợp thành 1 sheet, mà chưa biết làm thế nào. Xin ý kiến cả nhà nhé. Có file đính kèm

 

[Quang_Hải]

Xin cả nhà hỗ trợ, mình có 1 file co nhiều sheet cần tổng hợp thành 1 sheet, mà chưa biết làm thế nào. Xin ý kiến cả nhà nhé. Có file đính kèm

Tạo thêm 1 sheet Tonghop có cấu trúc thật giống với các sheet kia
Cho code này vào 1 module rồi chạy là xong

Sub tonghop()
Dim sh, kq(1 To 65536, 1 To 12), data(), i, j, k
For Each sh In Worksheets
   If sh.Name <> "Tonghop" Then
      data = sh.Range(sh.[A9], sh.[L65536].End(3)).Value
      For i = 1 To UBound(data)
         k = k + 1
         For j = 1 To 12
            kq(k, j) = data(i, j)
         Next
      Next
   End If
Next
Sheets("Tonghop").[A9].Resize(k, 12) = kq
End Sub

 

[blueboy]

Vâng cám ơn bạn đã trợ giúp, mình sẽ thử, có gì mình xin hỗ trợ nhé

 

[blueboy]

Tạo thêm 1 sheet Tonghop có cấu trúc thật giống với các sheet kia
Cho code này vào 1 module rồi chạy là xong

Sub tonghop()
Dim sh, kq(1 To 65536, 1 To 12), data(), i, j, k
For Each sh In Worksheets
   If sh.Name <> "Tonghop" Then
      data = sh.Range(sh.[A9], sh.[L65536].End(3)).Value
      For i = 1 To UBound(data)
         k = k + 1
         For j = 1 To 12
            kq(k, j) = data(i, j)
         Next
      Next
   End If
Next
Sheets("Tonghop").[A9].Resize(k, 12) = kq
End Sub

Mình vẫn chưa làm được bạn có thể giúp được không, cám ơn bạn

 

[Kiều Mạnh]

Mình vẫn chưa làm được bạn có thể giúp được không, cám ơn bạn

Mình lấy Code của anh hải làm cho bạn nhé
- Nhớ bật Macro lên nhé. còn nếu chưa biết thì tìm trên google
- khi Bạn tổng hợp chỉ cần chuyển sheet nọ sang sang sheet kia là code chay thôi
- lưu ý không sửa lại tên Sheet "Tonghop" nếu sửa lại phải sửa code chữ đó thanh chữ khác nha