任何人都可以建议如何使用以下代码处理“未找到单元格”错误。这是一个较大的 sub 的一部分，通常可能不返回任何值，但是按如下方式处理错误（适用于我的许多其他场景）仍然返回“运行时错误'1004'：未找到单元格”。我做错了什么？
On Error GoTo Error_Exit_3
Range("Q:Q").SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
Error_Exit_3:
【问题讨论】：
请检查下面的链接。它已经在这个论坛上回答了。 另外，请访问此论坛的规则.. :)
【讨论】：
我会做什么：
Dim RowsWithFormulas As Long
On Error Resume Next
RowsWithFormulas = Range("Q:Q").SpecialCells(xlCellTypeFormulas, 16).Rows.Count
On Error GoTo 0
If RowsWithFormulas > 0 Then
Range("Q:Q").SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
End If
【讨论】：
On Error Resume Next 之前使用：RowsWithFormulas = 0
On Error Resume Next 并且因为它是Long 变量，所以它的值为0。稍后将检查变量，如果> 0 它将删除，否则不会执行任何操作。
您也可以将其设置为范围：
Sub t()
Dim cellsWithErroringFormulas As Range
On Error Resume Next
Set cellsWithErroringFormulas = Range("Q:Q").SpecialCells(xlCellTypeFormulas, 16)
On Error GoTo 0
If cellsWithErroringFormulas Is Nothing Then
' Do whatever
MsgBox ("No formulas result in an error!")
Exit Sub
ElseIf cellsWithErroringFormulas.Rows.Count > 0 Then
cellsWithErroringFormulas.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
' Now, if you call `cellsWithErroringFormulas` again, it will error since you removed all those references.
' So to be explicit, let's clear that variable.
Set cellsWithErroringFormulas = Nothing
End If
End Sub
我调整了变量名称，只是因为从技术上讲，您不是在寻找带有公式的行，而是在寻找带有导致错误的公式的单元格。这里有点笨拙，所以根据需要重命名。只是想指出这一点。
另外，由于我不知道您接下来打算做什么，我添加了Set cellsWithErroringFormulas = Nothing，因为在您删除错误行后我们无法使用该引用。你可能不需要那个，但我只是想包括在内以指出这一点。
【讨论】：
Set 上出错。同样关于下一个动作，这是一个 sub 的结尾，后面只有 ActiveWorkbook.Save 和一个 MsgBox 用于完成。