按今天和之后的日期过滤数据答案

【问题标题】：Filter Data by Today's Date and After按今天和之后的日期过滤数据
【发布时间】：2015-04-11 03:59:39
【问题描述】：

我的数据可以追溯到 2010 年并持续到 2029 年。我想创建一个宏来过滤仅包括今天和未来日期的数据。

我通过排除直到今天的所有日期来记录下面的宏，希望它能给我一个好的起点，但我仍然很迷茫。

更复杂的是，我没有可用的每个日期，因此使用今天日期的变量并不总是有效。所以我想我需要宏来排除今天日期之前的所有内容。

谢谢你的帮助，我真的很迷茫，需要很多。

 Sub Macro1()

    Sheets("Consulta_Lastro").Range("$B$4:$T$9047").AutoFilter Field:=4, Operator:= _
    xlFilterValues, Criteria2:=Array(0, "7/10/2029", 0, "12/20/2028", 0, "12/20/2027", _
    0, "12/20/2026", 0, "12/20/2025", 0, "12/20/2024", 0, "12/20/2023", 0, "12/20/2022", 0, _
    "12/20/2021", 0, "12/22/2020", 0, "12/22/2019", 0, "12/30/2018", 0, "12/30/2017", 0, _
    "12/30/2016", 1, "2/28/2015", 1, "3/31/2015", 1, "4/30/2015", 1, "5/30/2015", 1, _
    "6/30/2015", 1, "7/31/2015", 1, "8/31/2015", 1, "9/30/2015", 1, "10/30/2015", 1, _
    "11/30/2015", 1, "12/30/2015")
End Sub

【问题讨论】：

标签： vba excel filter

【解决方案1】：

试试这个：

Sheets("Consulta_Lastro").Range("$B$4:$T$9047").AutoFilter _
    Field:=4, Criteria1:=">=" & Date

这只会显示大于或等于今天日期的日期。 HTH。

【讨论】：