Luu y xoa cac dong tu total tro xuong, sheet tong hop co ten la "Tong hop"
Sub tonghop()
Dim sh As Worksheet, lr As Integer, lrth As Integer
Application.ScreenUpdating = False
With Sheets("Tong hop")
Range("A2:T1000").Clear
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Tong hop" Then
lr = sh.Range("B65000").End(3).Row - 1
lrth = .Range("B65000").End(3).Row
sh.Range("B8:T" & lr).Copy
.Range("B" & lrth + 1).PasteSpecial xlPasteValues
End If
Next
lrth = .Range("B65000").End(3).Row
Range("A2:A" & lrth) = "=row() - 1"
Range("A2:A" & lrth).Value = Range("A2:A" & lrth).Value
End With
Application.ScreenUpdating = True
End Sub