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

vba-オートフィルタ今日以降-アイキャッチ ExcelVBA

エクセルマクロで、オートフィルタで今日以降を抽出する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」です。


 
 
この記事がお役に立ちますと幸いです。
 

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

 

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