Q
quyhoang0803
Guest
- 14/1/15
- 1
- 0
- 1
- 36
Chào các bạn,
Mình hay sử dụng gộp sheet chạy Macro với dòng lệnh như dưới :
Sub Chamcong()
Dim NumSheets As Integer
Dim NumRows As Integer
NumSheets = 500
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
Sau khi tạo xong macro trên quay trở lại Excel va Save lai.
Chon Deverloper- Macros- Run
Khi chạy xong thì đã gộp vào được 1 sheet :
nhưng ở giữa các trang có những dòng tên trang không cần thiết mình muốn bỏ đi khi gộp sheet thì làm thế nào ???
Có cao nhân nào biết thì giúp mình nhé. Thanks nhiều nhiều
Mình hay sử dụng gộp sheet chạy Macro với dòng lệnh như dưới :
Sub Chamcong()
Dim NumSheets As Integer
Dim NumRows As Integer
NumSheets = 500
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
Sau khi tạo xong macro trên quay trở lại Excel va Save lai.
Chon Deverloper- Macros- Run
Khi chạy xong thì đã gộp vào được 1 sheet :
nhưng ở giữa các trang có những dòng tên trang không cần thiết mình muốn bỏ đi khi gộp sheet thì làm thế nào ???
Có cao nhân nào biết thì giúp mình nhé. Thanks nhiều nhiều