如何解决Autofilter VBA，我如何检查条件是否不存在？？

我有2张是需要过滤的CriteriaSheet和DataSheet，它们使用CriteriaSheet中的数据填写AutoFilter的Criterial参数，用于DataSheet中的过滤数据。

数据表

标准表

我的问题是，我想知道在数据表中找不到哪个标准。我如何知道数据表中是否不存在“Ant”（标准）？

Function Filter_Function()

    Dim Data_sh As Worksheet
    Dim Filter_Criteria_Sh As Worksheet
    Dim Output_sh As Worksheet
    
    Set Data_sh = ThisWorkbook.Sheets("DataSheet")
    Set Filter_Criteria_Sh = ThisWorkbook.Sheets("CriteriaSheet")
    Set Output_sh = ThisWorkbook.Sheets("Output")
    
    Output_sh.UsedRange.Clear
    Data_sh.AutoFilterMode = False
    
    Dim Emp_list() As String
    Dim n,i As Integer
    
    n = Application.WorksheetFunction.CountA(Filter_Criteria_Sh.Range("A:A")) - 2

    ReDim Emp_list(n) As String
    Dim R As String

    For i = 0 To n
        Emp_list(i) = Filter_Criteria_Sh.Range("A" & i + 2)
    Next i

        With Range("A1")

        ''''get range before filter
        Dim rngBefore As Range
        Set rngBefore = Range(.Offset(1,0),.Offset(1,0).End(xlDown))

        ''''filter
        Data_sh.UsedRange.AutoFilter 2,Emp_list(),xlFilterValues

        ''''get range after filter
        On Error Resume Next
        Dim rngAfter As Range
        Set rngAfter = rngBefore.SpecialCells(xlCellTypeVisible)
        On Error GoTo 0

        ''''check whether any cells matching criteria were found
        If rngAfter Is nothing Then
            MsgBox "No found " & Emp_list()
            ''Exit Function
        Else
            Data_sh.UsedRange.copy Output_sh.Range("A1")
        End If

    End With
    Data_sh.AutoFilterMode = False

End Function

你能推荐一下吗？谢谢

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

if(typeof(localStorage.getItem("username"))=='undefined'){
    alert('no');
};

<fmt:message var="title" key="login.reg.signup.${signupForm.regfrom}.title" />
<c:if test='${fn:startsWith(title,"??")}'>
    <fmt:message var="title" key="login.reg.signup.default.title" /> 
</c:if>

<my:message var="title" key="${form}.title" default="default.title"/>

{ "regatta_name":"ProbaRegatta",
  "country":"Congo",
  "status":"invited"
}

{ "regatta_name":"ProbaRegatta",
  "country":"Congo",
  "status":"invited",
  "club":"somevalue"
}