Question

我的数据可以追溯到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

Answer 1

试试这个：

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

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

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

1 个答案: