【エクセルマクロ】指定日付以降のデータを削除：動画あり

エクセルマクロで、指定の日付以降のデータを削除するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

指定日付以降のデータを削除

以下のマクロを実行すると、特定日以降のデータを一括削除します。

Sub 指定した日付以降を検索して削除()

    Dim buf As String
    
    buf = "2022/2/20"

　　 'フィルター設定
    Range("A1").AutoFilter

　　 'フィルター抽出
    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列が「特定の日付以降」の行を一括で削除します。

※フィルタをつけていない状態で、マクロを実行しています。

処理結果が分かりやすいように、削除される行に色付けしてあります。

 
 
この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】日付処理を自動化する使用例まとめ
 

【エクセルマクロ】日付処理を自動化する：使用例17選

...

kirinote.com

2022.11.12