Excel 宏将列过滤为今天的日期

Question

我的工作簿的 J 列中有一个日期列表，我希望有一个宏，该宏将自动过滤以仅在 J 列中显示具有今天日期的那些行。

另外，如果我能有代码按照单元格 K1 中引用的日期过滤列 J，那就太棒了。

谁能帮我提供两者的代码？任何指导将不胜感激！

这是我录制宏以在 J 列中手动选择今天的日期时的代码：

Sub Filter_Today()
'
' Filter_Today Macro
' Filter date column for today's date.
'

'
    ActiveSheet.Range("$A$5:$K$3416").AutoFilter Field:=10, Operator:= _
        xlFilterValues, Criteria2:=Array(2, "9/14/2018")
End Sub

Answer 1

您可以使用特殊日期过滤器过滤今天（动态）。

Sub Filter_Today()

    with worksheets("sheet1")
        with .range(.cells(5, "J"), .cells(.rows.count, "J").end(xlup))
            .autofilter field:=1, criteria1:=xlFilterToday, operator:=xlFilterDynamic
        end with
    end with

end sub

使用更传统的 AutoFilter 过滤 K1 中的值。

Sub Filter_K1()

    With Worksheets("sheet1")
        With .Range(.Cells(5, "J"), .Cells(.Rows.Count, "J").End(xlUp))
            .AutoFilter Field:=1, Criteria1:=Format(.Parent.Range("K1").Value, "=mm/dd/yy")
        End With
    End With

End Sub

日期格式应与 J 列中使用的日期格式相匹配。