今日より前または後のすべての日付セルをExcelでフィルタするにはどうすればよいですか？

Author Xiaoyang Last modified 2025-08-26

この記事では、Excelワークシート内の今日より前または後のすべての日付セルをフィルタリングするためのステップバイステップの方法を探ります。時間に依存するデータの管理と分析は、ログ、スケジュール、プロジェクトのタイムライン、または締め切りの追跡を扱う場合によく必要とされる要件です。日付で効率的にフィルタリングすることで、特定の時点において重要となるレコードのみに集中できるようになり、作業フローおよび意思決定の精度が向上します。

💡 クイックナビゲーション:
➤ フィルター機能を使用して今日より前または後のすべての日付セルをフィルタリング
➤ VBAコードを使用して今日より前または後のすべての日付セルをフィルタリング
➤ Excelの数式ヘルパーカラムを使用して今日より前または後のすべての日付セルをフィルタリング

フィルター機能を使用して今日より前または後のすべての日付セルをフィルタリング

Excelの組み込みフィルター機能は、今日以前または以降の日付を識別し表示する簡単な方法を提供します。このアプローチは視覚的であり、数式やVBAコードを必要としないため、数式やVBAを使用せずに現在のデータセットを迅速にフィルタリングしたいユーザーにとって理想的です。

1. 日付が含まれる列を選択し、次に「データ」タブに移動してリボンの「フィルター」をクリックします。以下の図のように、各列ヘッダーの横にフィルタ矢印が表示されます：

a screenshot of enabling the Filter function

2. 日付列のドロップダウン矢印をクリックします。「日付フィルター」にカーソルを合わせ、必要に応じて「以前」または「以後」を選択します。たとえば、「以前」を選択して今日よりも前の日付を見つけます。

a screenshot of specifying the filter condition

3. カスタムオートフィルター ダイアログボックスで 日付ピッカー アイコンをクリックしてカレンダーを開きます。「今日」ボタンをクリックすると、本日の日付がすぐに設定されます。

a screenshot of picking today's date in the calendar

4. 「OK」をクリックします。Excelは指定した条件（今日以前または以後）に基づいてデータをフィルタリングし、以下のように表示されます：

a screenshot showing the original data and the filtered data

この方法は中規模のテーブルに効果的で、高度なスキルを必要とせず非常にアクセスしやすいものです。ただし、データが更新されたり基準が変わった場合、手動でプロセスを繰り返す必要があります。

⚠️ 注意: 日付列にテキストが含まれているか、適切なExcel日付としてフォーマットされていない場合、日付フィルターのオプションが表示されないことがあります。

VBAコードを使用して今日より前または後のすべての日付セルをフィルタリング

データを繰り返しフィルタリングする必要がある場合や、大規模なデータセットでプロセスを自動化したい場合は、VBAコードを使用するのが非常に実用的な方法です。特にアナリストやレポートの自動化、または定期的に今日の日付でフィルタリングが必要なワークフローに便利です。VBAを使用すると、1回のクリックでフィルタを適用でき、繰り返しの手動操作を回避できます。ただし、VBAを使用するにはマクロ対応のブック形式（.xlsm）で保存する必要があり、一部のユーザーはマクロセキュリティ設定により制限を受けます。

素晴らしい！Chrome、Edge、Firefox、SafariのようにExcelでEfficient Tabsを使用できます！
毎日50%の時間を節約し、数千回のマウスクリックを減らすことができます！

1. ALT + F11キーを押しながら保持して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. エディタ内で「挿入」→「モジュール」をクリックし、次のコードブロックのいずれかをモジュールウィンドウに貼り付けます。

VBAコード: 今日より前のすべての日付セルをフィルタリング：

Sub FilterDateBeforeToday()
    Dim xLastRow As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
    xRg.AutoFilter 1, "<" & CDbl(Date)
    Application.ScreenUpdating = True
End Sub

VBAコード: 今日より後のすべての日付セルをフィルタリング：

Sub FilterDateAfterToday()
    Dim xLastRow As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
    xRg.AutoFilter 1, ">" & CDbl(Date)
    Application.ScreenUpdating = True
End Sub

3. 上記のコードのいずれかをコピーして貼り付けた後、F5キーを押して実行します。範囲または日付が含まれる列を選択できるプロンプトボックスが表示されます。関連するデータ範囲のみを選択し、エラーを避けるために日付が適切なExcel日付形式であることを確認してください。

a screenshot of selecting the date range after running the VBA code

4. 「OK」をクリックしてフィルタを実行します。選択したコードに応じて、今日より前または後の日付を持つ行が自動的に表示され、他のすべての行は非表示になります。

⚠️ 注意: VBAベースのフィルタリングはユーザとの操作を最小限に抑え、シンプルなニーズから高度なニーズまで幅広く対応します。ただし、VBAを適用する前に必ずデータを保存し、重要な行を誤ってフィルタリングしないように選択範囲を再度確認してください。エラーが発生した場合、すべての日付値が有効な日付であることを確認してください（非日付の項目が含まれているとマクロが正しく動作しません）。さらに利便性を高めるために、ワンクリックフィルタリングのためにマクロをボタンに割り当てるのも検討してください。

Excelの数式ヘルパーカラムを使用して今日より前または後のすべての日付セルをフィルタリング

もう一つの多用途な解決策は、今日より前または後の日付をフラグ付けするExcel数式を使ったヘルパーカラムを追加することです。この方法は、フィルタ条件の定義と調整に高い柔軟性を提供し、特に動的なテーブル、複雑なフィルタリング、またはフラグ付きデータでさらなる分析を行う際に適しています。インプレースフィルタリングとは異なり、ヘルパーカラム方式では行を視覚的にマークし、その後Excelのフィルタツールを適用してよりカスタマイズされたコントロールを行います。この技術は実装が簡単で、締め切りの追跡、期限切れのタスク、または今後のイベントの監視に優れています。

1. 日付列の隣に新しい列を挿入します。例として、日付がA列（A2セルから開始）にあると仮定します。新しいヘルパーカラム（B列と仮定）に、次のような数式をB2に入力して今日より前の日付をフラグ付けします：

=A2<TODAY()

今日より前の日付に対してTRUEを返し、それ以外の場合にはFALSEを返します。

今日より後の日付（つまり未来の日付）をフラグ付けしたい場合は、B2に次のバージョンを使用します：

=A2>TODAY()

2. データセット内のすべての行を評価するために、ヘルパーカラム全体に数式をドラッグします。データが始まるのが2行目であれば、単純にB2を選択し、カーソルを右下隅に移動して小さな黒いプラス記号になったらダブルクリックしてすべての行にオートフィルします。

3. これで、各行に対してTRUEまたはFALSEが表示されるようになったヘルパーカラムを使って、「データ」タブから「フィルター」を有効にします（まだ有効でない場合）。ドロップダウン矢印をクリックしてTRUEでフィルタリングし、使用した数式に応じて今日より前または後の行のみを表示します。

💡 ヒント: 混乱を避けるために、ヘルパーカラムをフィルタロジックに基づいて「Before_Today」や「After_Today」などのラベルをつけてください。特定の条件でフィルタリングしたい場合（例えば、移動ウィンドウ内での日付）、必要に応じて数式を調整してください。また、日付列には有効なExcel日付のみが含まれていることを常に確認してください。空白または非日付のエントリがTRUE/FALSEの結果に影響を与える可能性があります。

ℹ️ 追加情報:

• この数式ベースの方法は、元の情報を失うことなくデータを表示、並べ替え、またはさらに分析するのに特に役立ちます。また、TRUE/FALSE値に基づいた柔軟な条件付き書式や集計計算もサポートされていますが、追加のカラムが必要です。このアプローチの透明性と再利用性はそのわずかな不便さを補って余りあります。

• 表が頻繁に更新される場合、新しい行が追加されたときに数式を再適用または拡張してください。並べ替えやフィルタリングが期待通りに動作しない場合、日付列の空白または一貫性のないエントリを再確認し、必要に応じてヘルパー数式を再計算してください（手動計算が有効になっている場合は「数式」→「今すぐ計算」）。

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数