根据另一个电子表格中的列表条件应用过滤器

Question

我一直在努力阅读其他类似的问题，但是经过一番改编，这些答案似乎都没有奏效。

我有两张纸PPTemp和PP。

在PPTemp上有两列A和B。它们在A中列出了月份，在B中列出了产品。

A中的内容设置为Raneg（“ MonRNG”），B中的内容设置为“ CatRNG”

我需要根据以下条件过滤PP：

列B为“有效”（这样做不是问题）

第N列包含MonthRNG中的任何值

Y列包含CatRNG中的任何值

AE列的数字大于18。（这也不是问题）

到目前为止，我有：

Dim MonthRNG, CatRNG As Range

Set MonthRNG = Range("A2:A13")
Set CatRNG = Range("B2:B10")


Set PP = Workbooks.Open("H:\Sales\Price Panels\Price Panels 2019.xlsm", ReadOnly:=True)


PP.Activate
Range("A3").Activate
Dim PPLastrow As Long
PPLastrow = Cells(Rows.Count, "A").End(xlUp).Row


Range("A2:AF" & PPLastrow).AutoFilter Field:=2, Criteria1:="Active"
Range("A2:AF" & PPLastrow).AutoFilter Field:=14, Criteria1:=MonthRNG
Range("A2:AF" & PPLastrow).AutoFilter Field:=25, Criteria1:=CatRNG
Range("A2:AF" & PPLastrow).AutoFilter Field:=31, Criteria1:=">18"

谢谢！