列の日付の値に基づいて複数の行を特定して選択する

Question

テーブルの列（今日から1週間以上経過している）のすべての日付の値を特定して選択する方法を理解しようとしています。 私はfindnextでいくつかのrange.findメソッドを試すのに苦労しましたが、リモートから何かを得ることはできません。 これについての私の最初の考えは、これらのデータ行をすべて識別し、それらを選択し、それらを使用して新しいテーブルを作成することでした（私はピボットキャッシュとして使用する可能性が高いです）。

私はこれを書いていますが、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