Excel 根据列的日期值标识并选择多行

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

---

在我写这篇文章的时候，我只是想知道，使用vba过滤表和复制/粘贴会更容易吗？稍后我将尝试一下。

我不知道为什么我会为此而如此挣扎，结果非常简单。 我只是筛选我不想要的日期并删除数据。虽然我还没有找到一个简单的方法来识别网络日，但这似乎正是我所需要的

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