Câu trả lời:
Xem xét:
Sub Killer()
j = Sheets.Count
For i = j To 3 Step -1
Sheets(i).Delete
Next i
End Sub
Nếu bạn thích, bạn có thể tắt Cảnh báo trước khi chạy vòng lặp.
Application.DisplayAlerts = False và Application.DisplayAlerts = True để tránh hộp xác nhận .