Gộp nhiều sheet thành 1 sheet trong excel

Để gộp nhiều sheet thành 1 sheet trong excel, sử dụng VBA sau.

Cách vào tạo module nếu chưa biết, tham khảo bài viết: http://www.caongoctri.info/2023/09/cach-gop-file-nhieu-file-excel-thanh-1.html.

 Sub Combine()

'UpdatebyExtendoffice

Dim J As Integer

On Error Resume Next

Sheets(1).Select

Worksheets.Add

Sheets(1).Name = "Combined"

Sheets(2).Activate

Range("A1").EntireRow.Select

Selection.Copy Destination:=Sheets(1).Range("A1")

For J = 2 To Sheets.Count

Sheets(J).Activate

Range("A1").Select

Selection.CurrentRegion.Select

Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select

Selection.Copy Destination:=Sheets(1).Range("A1000000").End(xlUp)(2)

Next

End Sub