VBA在所有工作表上工作

在发布之前，我尝试了许多不同的示例代码，但是我无法得到任何代码。

我需要这个来运行不仅在活动工作表，但在我的文件中的所有表。

On Error Resume Next Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 

希望有人能够帮助。

Answer 1

您需要遍历工作簿中的工作表并分别操作每一个工作表：

 Dim sheet As Worksheet For Each sheet In ActiveWorkbook.Worksheets sheet.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Next 

Answer 2

Alex K.的解决scheme是确定的，只检查工作表是否为空，否则你的“SpecialCells”会出错。

 Dim sheet As Worksheet For Each sheet In ActiveWorkbook.Worksheets If WorksheetFunction.CountA(sheet.Cells) <> 0 Then sheet.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete End If Next End Sub