VBA在所有頁面上工作

Question

在發佈之前，我嘗試了許多不同的示例代碼，但是我無法讓它們中的任何一個工作。

我需要這個來運行不僅在活動工作表中，而且在我的文件中的所有工作表上。

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

亞歷克斯·K的解決方案是好的，只是檢查表是空的或不是，否則你將有與「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