在VBA中筛选Excel表格

我有一个Excel表链接到数据validation列表。 我有过滤表格删除空白。 如果从数据validation列表中select不同的项目，它会刷新数据，但会删除大部分数据，直到刷新filter。 我试图想出一个macros，我可以添加到我的当前代码刷新filter。 filter是年，所以2013,2014,2015,2016和（空白）。 这是迄今为止，但它只是过滤掉了一切

Sub sbFilterTable() ActiveWorkbook.Sheets("Sheet4").ListObjects("Table2").Range.AutoFilter field:=1, _ Criteria1:="*013", Criteria2:="*014", Criteria3:="*015", Criteria4:="*016" End Sub 

注意：第一列中的date是DD / MM / YYYY格式，因此我使用了通配符，即使在filter选项中表示的是年份，也会采用完整格式。 任何指导或build议表示赞赏！

Answer 1

为什么不简单

 ActiveWorkbook.Sheets("Sheet4").ListObjects("Table2").Range.AutoFilter _ Field:=1, Criteria1:=">=1/1/2014", Operator:=xlAnd, Criteria2:="<=12/31/2016"