Excelmacros过滤x天

问题：我可以通过Criteria1进行过滤，但在Criteria2上进行过滤我只希望那些经过Criteria1过滤和超过89天的过滤。

码：

  Sub Reset_Table() ' ' Reset_Table Macro ' ActiveSheet.Range("$B$39:$I$14625").AutoFilter Field:=5, Criteria1:=Array( _ "First namefilter", "Somethingelse", _ Operator:=xlFilterValues 'Over 90 days ActiveSheet.Range("$B$39:$I$14625").AutoFilter Field:=6, Criteria2:=Array(">89"), Operator:=xlFilterValues End Sub 

Answer 1

使用AutoFilter方法时 ， Criteria2仅在您同时将两个标准应用于相同字段时使用。 字段6上的第二个filter应该是另一个Criteria1 。

 with worksheets("Sheet1") if .autofiltermode then .autofiltermode = false with .Range("$B$39:$I$14625") .AutoFilter Field:=5, Criteria1:=Array("First namefilter", "Somethingelse", "everything"), Operator:=xlFilterValues .AutoFilter Field:=6, Criteria1:=">89" end with end with