在VBA中过滤Excel表

Question

我有一个链接到数据验证列表的Excel表。 我已对表格进行过滤以删除空白。 如果我从数据验证列表中选择其他项目，它将刷新数据，但会删除大部分数据，直到刷新过滤器。 我正在尝试提出一个宏，可以将其添加到当前代码中以刷新过滤器。 过滤器是年份，因此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

注意：第一列中的日期采用DD / MM / YYYY格式，因此，即使在过滤器选项中仅表示年份，我也使用通配符以防它采用完整格式。 任何指导或意见表示赞赏！

Answer 1

为什么不简单

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