Gộp tất cả các Sheet trong một file thành một Sheet

Trong Excel để gộp tất cả các Sheet của một file vào thành một Sheet bạn cần tạo Macro .Mở file nhiều Sheet mà bạn muốn gộp lại thành một Sheet , bấm tổ hợp phím Alt_F11 để cửa sổ Microsoft Visual Basic mở ra .Bấm menu Insert > ModuleBạn sao chép nội dung bên dưới Sub Combine() Dim NumSheets As Integer Dim NumRows As Integer NumSheets = 50 NumRows = 43 Worksheets(1).Select Sheets.Add ActiveSheet.Name = \"Tong hop\" For X = 1 To NumSheets Worksheets(X + 1).Select Rows(\"1:\" & NumRows).Select Selection.Copy Worksheets(\"Tong hop\").Select ActiveSheet.Paste Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select Worksheets(X + 1).Select Range(\"A1\").Select Next X Worksheets(\"Tong hop\").Select Range(\"A1\").Select End Sub Trong macro trên số Sheet mà bạn muốn gộp lại được khai báo ở NumSheeets , ví dụ trên là 50 .Số hàng bạn muốn gộp ở mỗi sheet được khai báo ở NumRows , ví dụ trên là 43Tên của Sheet mới sẽ là Tong hop .Sau khi tạo xong macro trên quay trở lại Excel để chạy macro này .