Tạo sheet Tong hop.
Insert module
Copy code sau vào trong module mới vừa tạo ra:
Sub MergeSheets()
Dim x As Integer
Dim ws As WorksheetOn Error GoTo ErrHandler
Application.ScreenUpdating = Falsex = 1
For Each ws In ThisWorkbook.Sheets
If ws.Name <> “Tong Hop” Then
If x = 1 Then
ws.UsedRange.Copy Sheets(“Tong Hop”).Range(“A1”)
Else
lr = Sheets(“Tong Hop”).UsedRange.Rows.Count
ws.UsedRange.Offset(1).Copy Sheets(“Tong Hop”).Range(“A” & lr + 1)
End If
x = x + 1
End If
Next wsErrHandler:
Debug.Print Err.Description
End Sub
chào bạn, cho mình hỏi trường hợp gộp các sheet chỉ định vào chung 1sheet thì làm thế nào ?
Giả sử mình có 1 list gồm sheet1,2,3,4 nhưng chỉ muốn gộp sheet 2,3 thì phải viết thế nào?
Cám ơn bạn
LikeLiked by 1 person
Thì sửa chỗ này: If ws.Name “Tong Hop” thành If ws.Name = “Sheet 2” or ws.Name = “Sheet 3”
LikeLiked by 1 person