Gộp dòng trong nhiều sheet

[Nhungoc292]

Em hơi gà, mong mọi người giúp em.

Thí dụ em có 50 sheet. Em muốn lấy dòng thứ 8 của tất cả các sheet để tổng hợp vào 1 sheet mới .

Em chưa biết cách làm. Anh chị giúp em mới ạ. Cám ơn nhiều lắm.

 

[SA_DQ]

(/ì bạn không có file giả lập nên mình giả lập thay cho bạn các khoản như sau:
Thứ nhứt: Bạn sẽ tổng hợp các dòng thứ 8 của 49 trang tính vô trang tính có tên là "THop"
Thứ nữa: Cấu trúc của các trang tính trong file là giống hệt nhau
Ta có macro như sau:

Sub TongHopDòng8TùCácTrang()
Dim Sh As Worksheet
 
For Each Sh In ThisWorkbook.Worksheets
     If Sh.Name <> "THop" Then
           Sh.Rows("8:8").Copy Destination:=Sheets("THop").Cells(Cells.Rows.Count,"A").End(xlUp).Offset(1)
    End If
Next Sh
End Sub

Chúc thành công.

 

[Nhungoc292]

Em cảm ưn ạ. Để e thử xem thế nào ^^