删除工作簿中每个工作表的前5行（如果它们不包含任何值）

我想删除每个工作表的所有前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