Excel 在SpecialCells（xlCellTypeBlanks）中随机获取应用程序错误。EntireRow.Delete

大家好

如果columnA中的单元格为空，我将使用上述代码删除该单元格的整行。这适用于列A中有空白单元格的表，但当VBA找不到任何空白行时，它可以删除，这会给我带来一个错误。真的是这样设置的吗？我不想添加一个关于错误的

，因为我不希望代码的其余行受到任何关于错误的影响，然后跳过代码

莎拉

真的是这样设置的吗

是，

SpecialCells（xlCellTypeBlanks）

如果没有空白单元格，则抛出运行时错误

正如我在评论中提到的，一般做法是将代码与OERN语句“夹心”在一起：

Sheet1.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

我不想添加一个关于错误的

，因为我不希望代码的其余行受到任何关于错误的影响，然后跳过代码

---

你完全正确-下一步使用出错时的

继续

而不使用出错时的

转到0

真的。这就是为什么我在错误转到0时使用行

，它会将错误处理程序返回到默认模式。
我不想添加错误…
-。但是，您可以在下一页的
Sheet1之前添加
On Error Resume
。列（“A:A”）…
和
On Error GoTo 0
在它之后（
On Error GoTo 0
将使错误处理程序返回默认模式。）谢谢，这非常有效。：）
On Error Resume Next
Sheet1.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0