Tạo Macro ghép dữ liệu các sheet vào 1 sheet. (1 người xem)

[syquan]

Trước tiên xin cảm ơn Diễn đàn giải pháp excel đã tận tình giúp đỡ những vướng mắc của các thành viên trong thời gian qua.
Em có một vấn đề cần anh chị giúp đỡ: Em có một file excel gồm nhiều sheet. Em muốn tổng hợp dữ liệu các sheets vào một sheet. VD: em co 3 sheet A, B, C ... chỉ lấy những dữ liệu trên vùng H3:O3
sau đó tổng hợp trên sheet Tonghop theo thứ tự A1:I1, A2:I2, A3:I3, ....
Mong mọi người giúp đỡ.
Xin cảm ơn!

 

[vu_tuan_manh_linh]

Thử cách này nhé:
1. Sheet Tong hop, cột A đổi giá trị AAA, BBB, CCC thành A, B, C theo tên sheet.
2. Tại F2 đặt công thức =OFFSET(INDIRECT($A2&"!H3");0;COLUMN()-6). Copy formula sang các vùng còn lại.

 

[syquan]

Hihi , Mình đã làm được rồi. Ở đây mình muốn tổng hợp dữ liệu duyệt tất cả các sheet sau đó tổng hợp vô sheet Tonghop.
Code:

Option Explicit
Private Sub Worksheet_Activate()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Range("A1").CurrentRegion.ClearContents
For Each Sh In Worksheets
If Sh.Name <> "Main" Then
Sh.Range("H3:O3").Copy

Range("A65536").End(xlUp).Offset(1).PasteSpecial 3
'Range("A1:I1").Offset(1).PasteSpecial 3

End If
Next Sh
Application.CutCopyMode = False
End Sub

 

[Quang_Hải]

Hihi , Mình đã làm được rồi. Ở đây mình muốn tổng hợp dữ liệu duyệt tất cả các sheet sau đó tổng hợp vô sheet Tonghop.
Code:

Option Explicit
Private Sub Worksheet_Activate()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Range("A1").CurrentRegion.ClearContents
For Each Sh In Worksheets
If Sh.Name <> "Main" Then
Sh.Range("H3:O3").Copy

Range("A65536").End(xlUp).Offset(1).PasteSpecial 3
'Range("A1:I1").Offset(1).PasteSpecial 3

End If
Next Sh
Application.CutCopyMode = False
End Sub

Code chỉnh lại chút vầy chắc sẽ nhanh hơn

If Sh.Name <> "Main" Then
    Range("A65536").End(xlUp).Offset(1).Resize(,8).Value= Sh.Range("H3:O3").Value
End if
Application.ScreenUpdating = True