【エクセルマクロ】指定した日付以前のデータ削除:効率アップ!!

vba-指定日付以前を削除-アイキャッチ ExcelVBA

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

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

指定した日付以前のデータ削除

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


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

    Dim buf As String

   '対象の日付
    buf = "2022/2/20"

     'フィルター設定
    If ActiveSheet.AutoFilterMode = False Then
        Range("A1").AutoFilter
    End If

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

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


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

【エクセルマクロ】日付処理を自動化する:超便利12選
...

 

「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!