宏VBA：我的代码有什么问题？行删除

Question

我想删除整个行，如果列A中的任何单元格为空。

此外，此代码应在同一工作簿中的两个特定工作表上运行（即“ATM SLA可用性报告”&“事故报告”）。

以下是我的代码。当我运行它时，它给了我运行时错误9。

Sub test() 
    Worksheets("ATM SLA Availability Report").Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp 
    Worksheets("Incident Report").Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp 
End Sub 

Answer 1

Run-Time error 9表示“超出范围”，这意味着你要引用一些不工作表（或工作簿）中的存在，有可能从拼错了自己的工作表名称之一。

我没有看到你的代码有什么问题，我自己测试过，它对我来说工作正常。当错误弹出时，您可以通过单击“调试”进一步检查代码在哪一行发出错误。