tính tổng trong nhiều sheet (1 người xem)

[bth8320]

Chào cả nhà.

Mình có vấn đề này nhờ cả nhà giúp.
Mình có 1 file khoảng 50 sheet.
Kết cấu các sheet giống nhau trong đó đối tượng A có số lượng ngay bên dưới. Ví dụ ở sheet 1 đối tượng A(ở ô A1) có số lượng là 7(ở ô A2)
Mình muốn tính tổng số lượng A ở tất cả các sheet.

Nhờ cả nhà xem giúp mình có cách nào thực hiện việc này không. Có thể dùng hàm cũng như vba.
Chi tiết xin xem file đính kèm.

Cảm ơn cả nhà.

 

[befaint]

File gì mà có tới 200 sheets lận? Công thức sum(), hoặc consolidate... Thường thì nghĩ tới việc làm lại cái bảng đó

 

[Ba Tê]

Chào cả nhà.

Mình có vấn đề này nhờ cả nhà giúp.
Mình có 1 file khoảng 50 sheet.
Kết cấu các sheet giống nhau trong đó đối tượng A có số lượng ngay bên dưới. Ví dụ ở sheet 1 đối tượng A(ở ô A1) có số lượng là 7(ở ô A2)
Mình muốn tính tổng số lượng A ở tất cả các sheet.

Nhờ cả nhà xem giúp mình có cách nào thực hiện việc này không. Có thể dùng hàm cũng như vba.
Chi tiết xin xem file đính kèm.

Cảm ơn cả nhà.

Viết tặng bạn 1 hàm VBA, chỉ sử dụng đúng theo cấu trúc file của bạn gởi lên, nếu có thêm các sheet "lộn xộn" khác thì không đảm bảo kết quả.

 

[anhtuanle123]

nếu A nằm khác vị trí thì là kết cấu khác nhau roài !
còn nếu A cùng 1 vị trí thì mình mới biết công thức này
sum ô A1 từ sheet1 đến sheet3
=SUM(Sheet1:Sheet3!A1)

 

[bth8320]

Xin cảm ơn các anh chị đã giúp đỡ và đặc biệt xin Cảm ơn anh Ba Tê nhiều.
Anh Ba Tê cho mình hỏi thêm về ý này: "nếu có thêm các sheet "lộn xộn" khác thì không đảm bảo kết quả"
Theo mình hiểu có 2 trường hợp xảy ra.

1. Thêm các sheet có cùng cấu trúc như các sheet đã tồn tại(Đối tượng A và số lượng đều ở Cột 1) thì kết quả sẽ sai:
2. Thêm các sheet khác cấu trúc các sheet đã tồn tại(Đối tượng A và số lượng ở khác Cột 1) thì kết quả sẽ sai:

- Theo như mình đọc và kiểm chứng thử bằng cách thêm vài sheet code đã viết vẫn cho kết quả đúng.
- Trường hợp 2 mình có thể thay : sArr = Ws.Range("A1", Ws.Range("A60000").End(xlUp)).Value bằng sArr = Ws.Range("A1", Ws.Range("...60000").End(xlUp)).Value (... là vùng muốn mở rộng) có được không ạ

Chúc các anh chị có một ngày làm việc hiệu quả.

 

[Ba Tê]

Xin cảm ơn các anh chị đã giúp đỡ và đặc biệt xin Cảm ơn anh Ba Tê nhiều.
Anh Ba Tê cho mình hỏi thêm về ý này: "nếu có thêm các sheet "lộn xộn" khác thì không đảm bảo kết quả"
Theo mình hiểu có 2 trường hợp xảy ra.

1. Thêm các sheet có cùng cấu trúc như các sheet đã tồn tại(Đối tượng A và số lượng đều ở Cột 1) thì kết quả sẽ sai:
2. Thêm các sheet khác cấu trúc các sheet đã tồn tại(Đối tượng A và số lượng ở khác Cột 1) thì kết quả sẽ sai:

- Theo như mình đọc và kiểm chứng thử bằng cách thêm vài sheet code đã viết vẫn cho kết quả đúng.
- Trường hợp 2 mình có thể thay : sArr = Ws.Range("A1", Ws.Range("A60000").End(xlUp)).Value bằng sArr = Ws.Range("A1", Ws.Range("...60000").End(xlUp)).Value (... là vùng muốn mở rộng) có được không ạ

Chúc các anh chị có một ngày làm việc hiệu quả.

"nếu có thêm các sheet "lộn xộn" khác thì không đảm bảo kết quả"
1/ Nếu có thêm các sheet mà không cần phải tính tổng thì SAI. (Nó tính tổng tất tần tật các sheet con về TongHop)
2/ Nếu đối tượng cần tính tổng không nằm trên cột A thì SAI.
3/ Muốn mở rộng dòng tối đa thì viết vầy:
Ws.Range("A1", Ws.Range("A" & Ws.Cells.Rows.Count)).End(xlUp)