vba - 如果工作簿中每个工作表不包含值，则删除它们的前 5 行

Question

如果每个工作表的前 5 行不包含所有列中的任何值，我将尝试删除它们。该程序将运行，但仅在事件工作表上运行。有什么我错过的吗？

Sub DeleteFirst5Rows()
Dim ws As Worksheet
 For Each ws In ActiveWorkbook.Worksheets
    On Error Resume Next
    Rows("1:5").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 Next ws
End Sub

Answer 1

这是更新的代码，运行良好。谢谢你们。

Sub DeleteFirst5Rows()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
    If Application.CountA(ws.Range("1:5")) = 0 Then ws.Range("1:5").EntireRow.Delete

    Next ws
End Sub