在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"