Nối dữ liệu từ các SHEET vào một sheet tổng hợp nhanh nhất

[patuan]

Dear all giúp mình với, mình có nhiều sheet cần gom vào một sheet tổng(dữ liệu nhiều(mỗi sheet >500 dòng) ko thể copy tay được). Chỉ giúp mình với làm sao cho nhanh nhất, tks.

 

[Quang_Hải]

Bạn xem file, nếu không biết mở macros lên thì cũng không tác dụng gì

 

[patuan]

Dear anh, em mở được macros nhưng không biết làm thế nào, mong anh hướng dẫn thêm(office 2010).

 

[Quang_Hải]

Dear anh, em mở được macros nhưng không biết làm thế nào, mong anh hướng dẫn thêm(office 2010).

Nếu biết mở chức năng này thì xong rồi hướng dẫn gì nữa. Khi bạn chọn vào sheet TT thì có dữ liệu đủ hết của các sheet kia. Bạn xóa dữ liệu rồi chọn sheet này lại thử xem thế nào

 

[patuan]

Anh ơi chỉ làm được trong 4 cột thôi hả anh, em cần 34 cột, anh giúp em với, thực sự là em chẳng hiều gì về macro.

 

[Quang_Hải]

Anh ơi chỉ làm được trong 4 cột thôi hả anh, em cần 34 cột, anh giúp em với, thực sự là em chẳng hiều gì về macro.

Thay code này vào, khi cần thiết thì thay số 34 cho phù hợp

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim sh
Rows("4:50000").ClearContents
For Each sh In Worksheets
    If sh.Name <> "TT" Then
        With sh
            .Range(.[a4], .[a65536].End(3)).Resize(, 34).Copy _
            [a65536].End(3).Offset(1)
        End With
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[Ba Tê]

Anh ơi chỉ làm được trong 4 cột thôi hả anh, em cần 34 cột, anh giúp em với, thực sự là em chẳng hiều gì về macro.

Trong code cũ:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim sh
[a4:d10000].ClearContents
For Each sh In Worksheets
    If sh.Name <> "TT" Then
        With sh
1        .Range(.[a4], .[d65536].End(3)).Copy _
        [a65536].End(3).Offset(1)
        End With
    End If
Next
Application.ScreenUpdating = True
End Sub

Thay dòng có đánh số 1 thành như vầy xem:

.Range(.[a4], .[a65536].End(3)).Resize(, 34).Copy _

Bạn muốn bao nhiêu cột thì thay số 34 thành số đó.