Copy dữ liệu từ các sheet về 1 sheet tổng hợp (1 người xem)

[debaco]

Chào các bạn
Về vấn đề này mình đã đọc nhiều bài trên Diễn đàn nhưng vẫn chưa làm được.
Xin các bạn giúp ở trong file đính kèm.
Xin cám ơn nhiều

 

[Ba Tê]

Chào các bạn
Về vấn đề này mình đã đọc nhiều bài trên Diễn đàn nhưng vẫn chưa làm được.
Xin các bạn giúp ở trong file đính kèm.
Xin cám ơn nhiều

Có phải là lấy tổng số liệu các sheet về sheet M02?
Số dòng các sheet con không giống số dòng sheet tổng nên hơi bị khó một chút.
Xem thử file này coi kết quả có đúng không?

 

[debaco]

Đúng rồi bạn ơi. Cám ơn bạn nhiều nhiều

 

[debaco]

Gửi bạn Ba Tê
Sao mình đưa số liệu vô thì khi tổng hợp lại thấy thiếu bạn nhỉ. Mình cũng đã xem trong VBA nhưng kg biết bị thiếu chỗ nào. Mình gửi bạn cả 2 file, nhờ bạn xem giúp: file làm bằng tay và file bạn giúp làm cho, mình đưa thêm số liệu vào. MÌnh muốn học hỏi thêm về Excel nên muốn hiểu cho nó tường tận.
Giúp mình nhé. Cám ơn bạn

 

[Ba Tê]

Gửi bạn Ba Tê
Sao mình đưa số liệu vô thì khi tổng hợp lại thấy thiếu bạn nhỉ. Mình cũng đã xem trong VBA nhưng kg biết bị thiếu chỗ nào. Mình gửi bạn cả 2 file, nhờ bạn xem giúp: file làm bằng tay và file bạn giúp làm cho, mình đưa thêm số liệu vào. MÌnh muốn học hỏi thêm về Excel nên muốn hiểu cho nó tường tận.
Giúp mình nhé. Cám ơn bạn

Bạn giỡn cũng vui thiệt.
1/ File trước: sheet M02 dữ liệu từ A12:BC38, các sheet khác thì từ A12:BC39---> làm đau đầu, nên tôi có nói:

Số dòng các sheet con không giống số dòng sheet tổng nên hơi bị khó một chút.

Nên trong file trước tôi dò từng mục trong cột B, đúng chức danh mới cộng vào.
2/ File sau này: tất cả các sheet đều có số dòng cột giống nhau, nhưng chi tiết trong cột B (Chức danh) lại không hoàn toàn giống nhau.
Ví dụ: Bí thư đảng ủy <> Bí thư ĐU, chỉ dư 1 dấu cách thôi đã là khác nhau rồi ---> làm sao mà cộng chung?
3/ Nếu bạn chấp nhận tất cả dữ liệu của cột B trong các sheet đều giống nhau từ trên xuống (Không thèm xem chức danh nó là gì, chỉ cần cộng dồn theo dòng từ trên xuống) thì chạy thử SUB này, ngắn gọn hơn SUB trước:

Public Sub GPE()
Dim sArr(), dArr(1 To 27, 1 To 53), I As Long, J As Long, Ws As Worksheet, WsName As String
WsName = "M02"
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> WsName Then
        sArr = Ws.Range("B12:BC38").Value2
        For I = 2 To UBound(sArr, 1)
            For J = 2 To 54
                dArr(I, J - 1) = dArr(I, J - 1) + sArr(I, J)
            Next J
        Next I
    End If
Next Ws
For J = 1 To 53
    dArr(1, J) = "=SUM(R[1]C:R[18]C)"
    dArr(20, J) = "=SUM(R[1]C:R[7]C)"
Next J
Sheets(WsName).[C12:BC38] = dArr
End Sub

 

[debaco]

Chào bạn Ba Tê
Bạn "nạt" cũng thiệt nhẹ nhàng mà đau tệ!
Không phải giỡn mà do khi đó dò chưa kỹ, sau mới tìm ra một số sai sót trong các sheet chi tiết nên mới làm lại như vậy. Té ra cũng nhiều vấn đề hè.
Cám ơn bạn nhé.

 

[debaco]

Đặt công thức tính định mức

Chào bạn Ba Tê
Bạn ơi, giúp mình cái vụ excel nữa với
Mình có cái file ni mà đặt công thức thủ công quá, xin bạn hướng dẫn giúp mình với.
Trong file, những ô có màu xanh là những ô mình đang làm thủ công. Ngoài ra bạn xem qua những công thức các ô khác mình đặt vậy OK chưa nhé.
Cám ơn bạn nhiều nghe.