宏过滤器列按两个不同的值-Excel

Question

关于这个话题有几个问题。 我已经尝试了几种方法，但似乎无法正常工作。

我有一个auto-copy script的工作，从一个需要特定值sheet和copies到另一个sheet 。 如果我copy一个值，但添加第二个值时却无法正常工作，则效果很好。 因此，复制value1或value2。 下面是我的code

Sub FilterAndCopy()
    Dim rng As Range, sht1 As Worksheet, sht2 As Worksheet

    Set sht1 = Worksheets("LOG")
    Set sht2 = Worksheets("P Or A")

    sht2.UsedRange.ClearContents

    With Intersect(sht1.Columns("B:BP"), sht1.UsedRange)
        .Cells.EntireColumn.Hidden = False ' unhide columns
        If .Parent.AutoFilterMode Then .Parent.AutoFilterMode = False
        .AutoFilter field:=1, Criteria1:="P"
        .AutoFilter field:=1, Criteria1:="A"

避免其他问题，我尝试添加以下内容：

1) Operator:=xlFilterValues,
2) Operator:=xlOr,

但这是行不通的。 还有其他阻碍脚本的因素吗？

Answer 1

据我所知，您最多只能将过滤器选项用于2个条件。 除此之外，您都需要数组。

为此，我假设您的标题位于第1行的B：BP范围内，而您要过滤的字段为col B

sht1.Range("B1:BP1").AutoFilter Field:=1, Criteria1:="P", Operator:=xlOr, Criteria2:="A"

放手一搏。.更改适用的范围/标题，并且还必须更改字段号，您要根据该字段为筛选器。