Hàm tìm và xóa sheet ko chứa dữ liệu (1 người xem)

[akayzai1]

Tìm và xóa các sheet không chứa dữ liệu trong file excel hiện hành.Bạn nào giải giùm mình bài này với

 

[nghiaphuc]

Tìm và xóa các sheet không chứa dữ liệu trong file excel hiện hành.Bạn nào giải giùm mình bài này với

Bạn dùng code sau:
[GPECODE=vb]Sub Delete_Empty_Sheet()
Dim Ws As Worksheet
Application.DisplayAlerts = False
For Each Ws In ThisWorkbook.Worksheets
If Ws.UsedRange.Address = "$A$1" And IsEmpty(Ws.[A1]) Then Ws.Delete
Next
Application.DisplayAlerts = True
End Sub[/GPECODE]
Lưu ý trong code trên, câu lệnh Application.DisplayAlerts = False để tắt thông báo của Excel và câu lệnh Application.DisplayAlerts = True để bật lại thông báo. Bạn phải cẩn thận khi sử dụng câu lệnh này vì nó sẽ tắt các thông báo cần thiết của Excel (khi cần xác nhận của người dùng). Ở đây tôi dùng câu lệnh này để khỏi phải nhấn nút Delete mỗi khi Excel hỏi về việc xóa sheet.