vba - 如何过滤列中的4个数字

Question

我知道如何过滤小于 25 和大于 50 等 2 个数字，但我想知道如何过滤 250 到 290 之间或 70 到 110 之间的 4 个数字。

到目前为止我尝试过的代码是

ActiveSheet.Range("$F$4:$AK$18").AutoFilter Field:=26, _
    Criteria1:=">=70", Operator:=xlAnd, Criteria2:="<=110"

ActiveSheet.Range("$F$4:$AK$18").AutoFilter Field:=26, _
    Criteria1:=">=250", Operator:=xlAnd, Criteria2:="<=290"

和

ActiveSheet.Range("$F$4:$AK$18").AutoFilter Field:=26, _
    Criteria1:=Array(">70", "<110", ">250", "<290"), Operator:=xlFilterValues

和

ActiveSheet.Range("$F$4:$AK$18").AutoFilter Field:=25, _
    Criteria1:=">=70", Operator:=xlAnd, Criteria2:="<=110", Operator:=xlAnd, _
    Criteria2:=">=250", Operator:=xlAnd, Criteria2:="<=290"

这些工作都不能让我想知道我想做的事情是否可行。

Answer 1

您需要一个 高级过滤器对于你想要达到的目标。以下是如何申请:

Range("A5:C10").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
    ("A1:D2"), Unique:=False

确保您的数据具有列标题。

您需要创建一个 标准部分 在您的主要数据之上。为此，请在数据上方插入至少 3 个空白行。第一个用于标题，第二个将获取标准；第三个必须为空白(用于分隔主要数据和标准部分。见下图。

将主数据中的列标题复制/粘贴到新创建的第一行(见下图)。

从第二行开始，提供您的标准。每个标准行将与其他标准行进行“或”运算。如果您需要“与”它们，请使用单行。

如果您需要在单个列上“与”两个或多个条件，请在条件范围中创建具有相同标题的新列。例如，我想在 上添加两个条件销售 下图中的列，所以我添加了两个 销售 条件范围中的列(C 和 D)。

使用标准运算符提供您的条件。

现在选择高级过滤器来自 的对话资料 主功能区中的选项卡。选择您的数据范围(在我的示例中为 A5:C10)、条件范围(在我的示例中为 A1:D2)，然后单击确定。确保在选择条件范围时不包括空白行。

见 this article更多示例。