Excel 如果条件为'，如何停止；在自动筛选中找不到

我的代码根据不同的文件收集信息，这些文件只是数据，并将数据复制粘贴到我的主文件夹中。它的昏暗，我已经设置到范围B1，但现在如果B1中的数据没有找到我正在寻找的领域只是简单地复制所有空白单元格到主文件夹。 如果变量不在字段中，我需要它停止

Sub Sheet01()
'
' Sheet01 Macro
'

'
Application.ScreenUpdating = False
Dim varField            As String
varField = Range("B1")
With ActiveSheet
  Range("Q3:AA2999").Select
    Selection.ClearContents
    Workbooks.Open Filename:= _
        "V:\Training\Share\Intraday Training Tracker\Agent Suite Raw        Data\AgentSuite - Current.xlsx"
Sheets("ActivityDetails").Select
ActiveSheet.Range("$A$1:$K$197561").AutoFilter Field:=4, Criteria1:=Array( _
    "CS", "Cons", "Medium", "MobOutbound", "NC", _
    "PMobile", "Personal Team", "ST", "SmBu", "Tech", _
    "Tech Support "), Operator:=xlFilterValues
ActiveSheet.Range("$A$1:$K$197561").AutoFilter Field:=10, Criteria1:=Array( _
    "Complete", "Eligible", "NotScheduled", "Processing", "Scheduled"), Operator:=xlFilterValues
ActiveSheet.Range("$A$1:$K$197561").AutoFilter Field:=11, Criteria1:="1"
ActiveSheet.Range("$A$1:$K$197561").AutoFilter Field:=1, Criteria1:=varField

---

目前我没有收到任何错误消息。

如果筛选器未找到任何值，则不会收到错误消息。我建议您在打开工作簿并选择工作表（我建议查找如何避免激活/选择）后，执行

范围。查找
以确定
变量字段是否存在。如果没有，则可以退出Sub或执行其他操作

Set FindRng = Sheets("ActivityDetails").Columns(1).Find(varField)
If FindRng Is Nothing Then
    Exit Sub
End If

如果筛选器未找到任何值，则不会出现错误。我建议您在打开工作簿并选择工作表（我建议查找如何避免激活/选择）后，执行
范围。查找
以确定
变量字段是否存在。如果没有，则可以退出Sub或执行其他操作

Set FindRng = Sheets("ActivityDetails").Columns(1).Find(varField)
If FindRng Is Nothing Then
    Exit Sub
End If

你好如果是范围（“B1”），则运行标准代码，否则不执行任何操作。祝你好运。如果是范围（“B1”），则运行标准代码，否则不执行任何操作。祝你好运