Как отфильтровать таблицу из списков критериев? - PullRequest
2 голосов
/ 03 марта 2020

Я хотел бы отфильтровать таблицу столбца 7 на Листе A1: G1000, используя Критерии на Листе A1: A10

Я написал VBA, но он фильтрует только из ячейки A10.

Sub FilterTest1()
    Dim c As Variant
    With Worksheets("Sheet1")
        c = Worksheets("Sheet3").Range("A1:A10")
        .Range("A1:G1000").AutoFilter field:=6, Criteria1:=c
    End With
End Sub

1 Ответ

2 голосов
/ 03 марта 2020

Спасибо за чтение, я только что понял, как использовать Advance Filter.

Sub Macro1()

    Range("A1:G1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Sheet3").Range("A1:A10"), Unique:=False
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...