【エクセルマクロ】オートフィルタで今日以降を抽出：コピペで使えるコード

エクセルマクロで、オートフィルタで今日以降を抽出するVBAコードをご紹介します。

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

オートフィルタで今日以降を抽出

以下のマクロを実行すると、オートフィルタで今日以降のデータを抽出します。

Sub オートフィルタで本日以降()

    Dim buf As Date
    
    buf = Format(Date, "yyyy/m/d")

    ActiveSheet.Range("A1").CurrentRegion.AutoFilter _
            Field:=2, _
            Criteria1:=">" & buf, Operator:=xlAnd
End Sub

マクロ実行後

B列が「本日以降の日付」のデータを自動抽出します。

ちなみに本日は「2021/12/4」です。

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

【エクセルマクロ】オートフィルタ処理を自動化：超便利28選

...

kirinote.com

2022.11.12