在VBA范围过滤器中添加两个标准

我试图根据过滤器1和过滤器2选择一系列值，然后删除所有这些值；所以我在列中只剩下filter1和filter2值。我可以添加一个过滤器，但无法添加两个过滤器。请帮忙/指导

代码：

案例“第1张”
iCol=2
行（“4:4”）。选择
自动筛选
ActiveSheet.Range（$A$4:$WXR$99999”）。自动筛选字段：=iCol，标准1:=_
*ABC*，运算符：=xlOr，准则2:=“XYZ*”
行（“5:5”）。选择
范围（选择，选择。结束（xlDown））。选择
范围（选择，选择。结束（xlDown））。选择
选择。删除移位：=xlUp
ActiveSheet.Range（“$A$4:$WXR$99999”）。自动筛选字段：=iCol

第二个过滤器的标准是什么？我想那一个不见了。

第二个过滤器的标准是什么？我想那一个不见了。

如果您转到“开发人员”选项卡并单击“录制宏”。它将为您所做的一切提供VBA代码。因此，只需单击录制宏即可。然后选择要筛选的内容。转到

数据

选项卡并选择过滤器。它将在您选择的任何数据上放置一个箭头。单击箭头并放置过滤器。之后，返回并单击

停止录制

。然后转到您的代码编辑器，其中将有一个模块，其中包含您需要过滤的代码。然后简单地复制并粘贴到需要的地方。

如果您转到“开发人员”选项卡并单击“录制宏”。它将为您所做的一切提供VBA代码。因此，只需单击录制宏即可。然后选择要筛选的内容。转到

数据

选项卡并选择过滤器。它将在您选择的任何数据上放置一个箭头。单击箭头并放置过滤器。之后，返回并单击

停止录制

。然后转到您的代码编辑器，其中将有一个模块，其中包含您需要过滤的代码。然后简单地复制并粘贴到您需要的地方。

您是否尝试过录制宏并使用手动单击过滤器的代码？@constantine:抱歉，如果您转到“开发人员”选项卡并单击“录制宏”，我不理解您的意思。它将为您所做的一切提供VBA代码。因此，只需单击录制宏即可。然后选择要筛选的内容。转到

数据

选项卡并选择过滤器。它将在您选择的任何数据上放置一个箭头。单击箭头并放置过滤器。之后，返回并单击

停止录制

。然后转到您的代码编辑器，其中将有一个模块，其中包含您需要过滤的代码。然后简单地复制粘贴到你需要的地方。我不理解你的过滤器。任何值都将是“ABC”或“XYZ”。也许你想用xlAnd@Constuntine：非常感谢。。我照你说的做了你试过录制宏并使用手动点击过滤器的代码吗？@constantine:对不起，如果你转到“开发人员”选项卡并点击“录制宏”，我就听不懂了。它将为您所做的一切提供VBA代码。因此，只需单击录制宏即可。然后选择要筛选的内容。转到

数据

选项卡并选择过滤器。它将在您选择的任何数据上放置一个箭头。单击箭头并放置过滤器。之后，返回并单击

停止录制

。然后转到您的代码编辑器，其中将有一个模块，其中包含您需要过滤的代码。然后简单地复制粘贴到你需要的地方。我不理解你的过滤器。任何值都将是“ABC”或“XYZ”。也许你想用xlAnd@Constuntine：非常感谢。。我做了你告诉我的事Hanks san。这个问题解决了。。我照康斯坦丁在上面的评论中说的做了。这个问题解决了。。我按照康斯坦丁在上述评论中说的做了

Case "Sheet-1"
                         iCol = 2
                         Rows("4:4").Select      
                         Selection.AutoFilter
                         ActiveSheet.Range("$A$4:$WXR$99999").AutoFilter Field:=iCol, Criteria1:= _
                         "<>*ABC*", Operator:=xlOr, Criteria2:="<>XYZ*"
                         Rows("5:5").Select 
                         Range(Selection, Selection.End(xlDown)).Select
                         Range(Selection, Selection.End(xlDown)).Select
                         Selection.Delete Shift:=xlUp
                         ActiveSheet.Range("$A$4:$WXR$99999").AutoFilter Field:=iCol