Trộn các sheet của excel (2 người xem)

[kemchanh2209]

Xin chào mọi người, em muốn trộn 3 sheet lại thành một sheet tổng hợp giống như file đính kèm thì làm thế nào ạ? Trong file chỉ là một ví dụ ngắn còn thực tế em thường phải copy khoảng 15sheet lại làm một để tổng hợp các dữ liệu mất rất nhiều thời gian và có thể copy nhầm ngày tháng nữa.
Rất mong anh chị giúp đỡ, giải quyết vấn đề này giúp em.

===================
HLMT:
[WARNING1]Lần sau nên viết bài cho đúng box nha bạn.[/WARNING1]

 

[hoamattroicoi]

Xin chào mọi người, em muốn trộn 3 sheet lại thành một sheet tổng hợp giống như file đính kèm thì làm thế nào ạ? Trong file chỉ là một ví dụ ngắn còn thực tế em thường phải copy khoảng 15sheet lại làm một để tổng hợp các dữ liệu mất rất nhiều thời gian và có thể copy nhầm ngày tháng nữa.
Rất mong anh chị giúp đỡ, giải quyết vấn đề này giúp em.

===================
HLMT:
[WARNING1]Lần sau nên viết bài cho đúng box nha bạn.[/WARNING1]

Thử cái củ chuối này xem :

Sub tHop()
Dim sH As Worksheet
For Each sH In Worksheets
        If sH.Name <> "Tonghop" Then
           sH.Range(sH.[B4], sH.[IV4].End(xlToLeft)).Resize(11).Copy Sheets("Tonghop").[IV4].End(xlToLeft).Offset(, 1)
    End If
Next sH
End Sub