Gộp các Sheet lại với nhau?

[NguyenNgocSon]

Có cách nào gộp hai sheet 1 và 2 lại với nhau không?
Không thay đổi định dạng
Cám ơn mọi người!!!

 

[sealand]

Bạn nói chung chung vậy sao mà hiểu, gộp 2 sheet là cộng các mục tương ứng với nhau hay chép dồn cả 2 sheet vào 1 sheet.

 

[khoilt]

Ban vao link duoi day ma tham khao bai viet rat hay cua nDu:
http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=14970&d=1220076267

 

[yeucau]

Sao em vào link này không đc mấy anh nhỉ.Cái này hay quá,không hiểu làm sao đc vậy

 

[Po_Pikachu]

Link gì! Đây là file

GetData_AllSheets_03.rar của bác ndu96081631.
Link là đây: http://www.giaiphapexcel.com/forum/showthread.php?p=95350
Thân.

 

[ndu96081631]

Link gì! Đây là file

GetData_AllSheets_03.rar của bác ndu96081631.
Link là đây: http://www.giaiphapexcel.com/forum/showthread.php?p=95350
Thân.

Bài này có thể rút gọn code như sau:

Option Explicit
Private Sub Worksheet_Activate()
  Dim Sh As Worksheet
  Application.ScreenUpdating = False
  Range("A1").CurrentRegion.ClearContents
  [A1] = "STT": [B1] = "TEN": [C1] = "SO LUONG"
  For Each Sh In Worksheets
    If Sh.Name <> "Tonghop" Then
      With Sh.Range("A1").CurrentRegion.Offset(1)
        .Copy: Range("A65536").End(xlUp).Offset(1).PasteSpecial 3
      End With
    End If
  Next Sh
  With Range("A1").CurrentRegion.Offset(1).Resize(, 1).SpecialCells(2)
    .Value = Evaluate("=Row($1:$10000)"): .Cells(1, 1).Select
  End With
  Application.CutCopyMode = False
End Sub