第1个回答 推荐于2017-09-06
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=8, Operator:= _
xlFilterValues, Criteria1:=">=" & Format(Sheet2.Range("D3"), "M/D/YYYY") _
, Operator:=xlAnd, Criteria2:="<=" & Format(Sheet2.Range("D1"), "M/D/YYYY")
====
我的是源数据在sheet1里面,筛选的时候条件在sheet2的D3和D1单元格;我是筛选指定日期区间的数据
若要增加其他条件的话,按照上面再增加条件就可以了,当然实话说我对VBA是基本不懂,我所用的都是百度拼凑的,按照思路一个一个条件去找的解决办法本回答被提问者和网友采纳