Tổng hợp số liệu từ nhiều sheet

[thanhnuce]

Chào các bạn! Xin các bạn giúp mình viết mã code thực hiện được việc sau (mình cop nhặt các code nhưng do không hiểu gì vì vậy nó không chạy theo ý muốn)
Mình có 1 file "File Tong hop.xlsm" chứa mã code sau khi chạy code nó thực hiện mở file "File co du lieu.xlsx" và Tạo 1 sheet có tên "TONGHOP" sau khi tạo sheet "TONGHOP" nó tổng hợp các dữ liệu của các sheet của file đó. Hiện tại code mới chỉ tạo được sheet "TONGHOP". còn chư tự tổng hợp dữ liệu. Rất mong các bạn giúp. Trân thành cảm ơn!

Bài đã được tự động gộp: 13/10/21

 

[BuiQuangThuan]

Khi bạn nhờ giả sử có là dữ liệu demo đi chăng nữa. cũng nên để sát thực tế 1 chút. chứ trong file có 1 ô duy nhất có dữ liệu. xong nói đầu không ra đầu, đuôi không ra đuôi, thì biết giúp kiểu gì
Tổng hợp ở đây là gì? tổng hợp cái gì? tổng hợp như thế nào?

 

[Maika8008]

Chào các bạn! Xin các bạn giúp mình viết mã code thực hiện được việc sau (mình cop nhặt các code nhưng do không hiểu gì vì vậy nó không chạy theo ý muốn)
Mình có 1 file "File Tong hop.xlsm" chứa mã code sau khi chạy code nó thực hiện mở file "File co du lieu.xlsx" và Tạo 1 sheet có tên "TONGHOP" sau khi tạo sheet "TONGHOP" nó tổng hợp các dữ liệu của các sheet của file đó. Hiện tại code mới chỉ tạo được sheet "TONGHOP". còn chư tự tổng hợp dữ liệu. Rất mong các bạn giúp. Trân thành cảm ơn!

Bài đã được tự động gộp: 13/10/21

- Sai cơ bản Dim WS As Workbook => phải sửa thành Dim WS As Worksheet
- Sai chưa ảnh hưởng nhưng sẽ gặp lỗi trong tương lai: đã set wk = Workbooks.Open(strFileName) rồi thì sau đó phải trỏ đích danh nó chứ không được như các dòng này:
+ Sheets.Add.Name = "Tong hop" => Phải sửa thành wk.Sheets.Add.Name = "Tong hop"
+ For Each WS In ThisWorkbook.Sheets => Sửa thành For Each WS In wk.Sheets
+ lr = Sheets("Tong Hop").UsedRange.Rows.Count => Sửa lr = wk.Sheets("Tong Hop").UsedRange.Rows.Count
- Đã có thay đổi nhưng đóng mà chưa không có lệnh lưu: wk.Close => Sửa wk.Close True

 

[thanhnuce]

Cảm ơn hai bạn! Bạn Maika8008 giúp mình thêm là sheet "Tong hop" đã lấy được dữ liệu của 1 sheet sao nó không lấy được dữ liệu của các sheet khác (vì cái code kia mình chạy là nó lấy được tất các dữ liệu của các sheet và sheet "Tong hợp"
Cảm ơn ban!

 

[Maika8008]

Cảm ơn hai bạn! Bạn Maika8008 giúp mình thêm là sheet "Tong hop" đã lấy được dữ liệu của 1 sheet sao nó không lấy được dữ liệu của các sheet khác (vì cái code kia mình chạy là nó lấy được tất các dữ liệu của các sheet và sheet "Tong hợp"
Cảm ơn ban!

- Sai lầm cơ bản: ở trên là wk.Sheets.Add.Name = "Tong hop" nhưng ở dưới toàn là WS.UsedRange.Copy Sheets("Tong Hop").Range("A1")
- 1 sai lầm rất cơ bản nữa Dim lr As Workbook nhưng lại dùng để đếm số dòng! => Dim lr As Long

 

[thanhnuce]

- Sai lầm cơ bản: ở trên là wk.Sheets.Add.Name = "Tong hop" nhưng ở dưới toàn là WS.UsedRange.Copy Sheets("Tong Hop").Range("A1")
- 1 sai lầm rất cơ bản nữa Dim lr As Workbook nhưng lại dùng để đếm số dòng! => Dim lr As Long

Cảm ơn bạn rất nhiều. Mình đã làm được