在 VBA 中过滤 Excel 表格答案

【问题标题】：Filter Excel table in VBA在 VBA 中过滤 Excel 表格
【发布时间】：2016-11-04 18:05:27
【问题描述】：

我有一个链接到数据验证列表的 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 格式，因此我使用了通配符以防它采用完整格式，即使在过滤器选项中它只是表示年份.任何指导或建议表示赞赏！

【问题讨论】：

标签： vba excel

【解决方案1】：

为什么不简单

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

【讨论】：

啊，太完美了！我有一个更新的数据源，所以刚刚将日期范围更改为非常宽的范围，非常完美，非常感谢！ :)