如何忽略自动过滤器是否不返回任何行

Question

我在VBA编码方面还很陌生。 我想我浏览了我在互联网上发现的所有与我有关的出版物，这似乎是一个简单的问题，但是我无法解决。

每次没有结果时，我的自动筛选器都会给我一条错误消息。宏非常简单：     在第28列中过滤“否”，如果

• 有结果，然后将A和B列中的数据复制到另一个选项卡，然后运行更新整个数据的公式
• 否则运行一个公式来更新整个数据

我的代码如下：

With TDL.Range("A5:AB" & Endrow)
.AutoFilter Field:=28, Criteria1:="No"
If TDL.Range("A6:AB" & Endrow).SpecialCells(xlCellTypeVisible) Is Nothing Then Call CopyFormula
Else
TDL.Range("A6:B" & Endrow).Copy: SC.Range("A" & lr + 1).PasteSpecial xlPasteValues
End If
TDL.AutoFilterMode = False
End With

请注意，如果自动过滤器中有结果，则宏可以很好地工作。 预先非常感谢您的建议