Question

我试图弄清楚如何识别表格列中的所有日期值（从今天开始超过1周）并选择它们。我正在努力尝试使用range.find的一些findnext方法但无法获得任何远程工作。我最初的想法是识别所有这些数据行，选择它们并用它们创建一个新表（我很可能将其用作数据缓存）。

只是想到我写这个，用vba过滤表并复制/粘贴会更容易吗？稍微试试这个。

Answer 1

不确定为什么我这么挣扎，结果很简单。我只是过滤我不想要的日期并删除数据。虽然我还没有找到一种识别网络日的简单方法，但这似乎正是我所需要的。

Sub Filter_Week_Old()
Dim t As Date

t = Format([Today()] - 7, "mm/dd/yy")
    With Range("Table1")
    .AutoFilter field:=4, Criteria1:=">" & t
    Application.DisplayAlerts = False
    .Delete
    Application.DisplayAlerts = True
    .AutoFilter field:=4
    End With
End Sub

根据列的日期值

1 个答案: