Tập hợp các dòng trong nhiều sheet vào một sheet bằng VBA

[gialilama]

Em có vấn đề này nhờ mọi người giúp!
Trong Sheet main chỉ có một dòng chính

các sheet tiếp theo là mô tả chi tiết cho các dòng trong sheet main(các sheet này có ít nhất một dòng).

Cần copy tất cả những dòng trong các sheet sang sheet all.

Nếu như vậy khi sheet main có nhiều dòng thì phải copy và mở, dán quá nhiều.

Mong các Thành viên giúp mình có cách nào đơn giản hơn để hiện tất cả các dòng trong các sheet vào sheet all, như sheet main.
Xin cám ơn!

 

[nghiaphuc]

Em có vấn đề này nhờ mọi người giúp!
Trong Sheet main chỉ có một dòng chính

các sheet tiếp theo là mô tả chi tiết cho các dòng trong sheet main(các sheet này có ít nhất một dòng).

Cần copy tất cả những dòng trong các sheet sang sheet all.

Nếu như vậy khi sheet main có nhiều dòng thì phải copy và mở, dán quá nhiều.

Mong các Thành viên giúp mình có cách nào đơn giản hơn để hiện tất cả các dòng trong các sheet vào sheet all, như sheet main.
Xin cám ơn!

Bạn sử dụng code sau cho sheet ALL nhé:

Private Sub Worksheet_Activate()
    Dim Sh As Worksheet, n As Integer
    [A2:L10000].Clear
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> "ALL" And Sh.Name <> "Main" Then
            n = WorksheetFunction.CountA(Sh.[A:A]) - 2
            [A10000].End(xlUp).Offset(1).Resize(n, 12).Value = Sh.[A2].Resize(n, 12).Value
        End If
    Next Sh
    UsedRange.Borders.LineStyle = 1
End Sub

Bây giờ, bạn xóa toàn bộ dữ liệu trên sheet ALL (trừ hàng tiêu đề). Tiếp theo chọn 1 sheet khác rồi chọn lại sheet ALL sẽ thấy kết quả.