идентифицировать и выбирать несколько строк на основе значения даты столбца

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