Xóa sheet không có dữ liệu

[ruadangyeu]

Option Explicit

Sub DeleteBlankSheets()
Dim sh As Variant

Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Goto Exits:

For Each sh In Sheets
If Not IsChart(sh) Then
If Application.WorksheetFunction.CountA(sh.Cells) = 0 Then sh.Delete
End If
Next sh

Exits:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Public Function IsChart(sh) As Boolean
Dim tmpChart As Chart
On Error Resume Next
Set tmpChart = Charts(sh.Name)
IsChart = IIf(tmpChart Is Nothing, False, True)
End Function

 

[PhanTuHuong]

Các bạn tham khảo thêm thủ tục dưới đây:

Sub XoaSheetRong()
    Application.DisplayAlerts = False
    For Each cell In ActiveSheet.UsedRange
        If IsEmpty(cell) Then
            ActiveSheet.Delete
        End If
    Next
        Application.DisplayAlerts = True
End Sub

Các bạn có thể bổ sung thêm vòng lặp để duyệt từng sheet trong workbook.