Giúp đỡ: Gộp sheet

  • Thread starter quyhoang0803
  • Ngày gửi
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 :
8324-31a7e1ef383fb3893029c87bcae1cd2c.jpg

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 :)
 

Đính kèm

  • sheet.png
    sheet.png
    188 KB · Lượt xem: 126
Khóa học Quản trị dòng tiền

Xem nhiều

Webketoan Zalo OA