エクセルマクロで、指定した日付以前のデータを削除するVBAコードをご紹介します。
このページのマクロコードは、コピペで使えます。
ぜひ、お試しください。
指定した日付以前のデータ削除
以下のマクロを実行すると、特定日以前のデータを一括削除します。
Sub 指定した日付以前を検索して削除()
Dim buf As String
buf = "2022/2/20"
'フィルター設定
If ActiveSheet.AutoFilterMode = False Then
Range("A1").AutoFilter
End If
'フィルター抽出
ActiveSheet.Range("A1").CurrentRegion.AutoFilter _
Field:=2, _
Criteria1:="<=" & buf, Operator:=xlAnd
'フィルターで絞ったデータ削除
Application.DisplayAlerts = False
Range("A1").CurrentRegion.Offset(1, 0).Resize(Range("A1"). _
CurrentRegion.Rows.Count - 1).Delete
ActiveSheet.ShowAllData
Application.DisplayAlerts = True
End Sub
マクロ実行後
B列が「特定の日付以前」の行を一括で削除します。
処理結果が分かりやすいように、削除される行に色付けしてあります。
この記事がお役に立ちますと幸いです。

【エクセルマクロ】指定日付以降のデータを削除:動画あり
...
「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!
リンク