需要一个宏来连续过滤最新日期

Question

你能否帮我一个宏，它自动识别并过滤一行，最新日期或数据行用最新日期（当前日期不必是）更新。

Dim dDate As Date

Dim strDate As String

Dim lDate As Long

dDate = [Today()]

'dDate = DateSerial(2017, 2, 28)

lDate = dDate

Range("A1").AutoFilter

Range("A1").AutoFilter Field:=1, Criteria1:=">=" & lDate, _
    Operator:=xlAnd, Criteria2:="<" & lDate + 1

Answer 1

你肯定需要学习如何提出一个好问题。您应该问的问题是：＆＃34;如何在列满日期的列中找到最新日期。＆＃34;有关过滤的全部内容与实际问题无关。

以下是该问题的解决方案：

Dim Max_date as Date
Max_date = Application.WorksheetFunction.Max(Columns("X"))

其中X是包含日期的列。