Excel で指定した日付範囲（2 つの日付の間）における最大値または最小値を検索するには？

著者Siluvia変更日2025-08-08

日常業務におけるデータ分析、特に取引記録や時系列データを扱う際には、特定の期間内の最高値または最低値を特定する必要が頻繁に生じます。たとえば、下のスクリーンショットのような表があり、2016/7/1 から 2016/12/1 といった期間における最大値や最小値を求めたい場合がよくあります。これは、特定期間のレポート作成、月次パフォーマンスの比較、あるいはデータのピークとボトムを追跡する際に一般的な要件です。本記事では、Excel の数式、VBA コード、および組み込み機能を活用した実践的な解決策をいくつかご紹介し、必要な値を迅速かつ正確に抽出できるようサポートします。

日付範囲内で最大値または最小値を計算するための日付と値を含むExcelテーブルのスクリーンショット

💡 クイックナビゲーション：
➤ 配列数式を使って特定の日付範囲内の最大値または最小値を検索
➤ VBA コード：指定された特定の日付範囲内の最大値または最小値を自動的に検索
➤ その他のExcel の標準機能：PivotTable を使用して日付範囲ごとの最大値／最小値をフィルター表示

配列数式を使って特定の日付範囲内で最大値または最小値を検索する

1 つの簡単な方法は、Excel の配列数式を使うことです。これにより、「日付が指定された範囲内にあるかどうか」など、複数の条件に基づいて値を計算できます。この方法は、中規模のデータを扱い、数式入力に慣れているユーザーに最適です。

列 A（A5:A17）にはワークシートのリスト日付が、列 B（B5:B17）にはそれに対応する値が入力されており、範囲の開始日と終了日はそれぞれセル B1 および D1 に入力されているものとします。

1。結果を表示したい空白セル（例：E2）を選択してください。

2016/7/1 から 2016/12/1 の間の最大値を検索する：

2。選択したセルに次の数式を入力し、編集後は Enter キーではなく、Ctrl+Shift+Enter を押して、Excel に配列数式として認識させます：

=MAX(IF((A5:A17=$B$1),B5:B17,""))

この数式は、開始日から終了日までの期間に該当する日付をチェックし、一致する行の値のみを対象として最大値を算出します。

Excelで配列数式を使用して日付範囲内の最大値を検索した結果のスクリーンショット

2016/7/1 から 2016/12/1 の間の最小値を検索する：

3。同じ日付範囲内で最小値を求めるには、同様のアプローチを使います。次の数式を入力してください（ここでも)Ctrl+Shift+Enterで確定）：

=MIN(IF((A5:A17=$B$1), B5:B17, ""))

この数式も同様に動作し、日付条件に一致する最小値を返します。

Excelで配列数式を使用して日付範囲内の最小値を検索した結果のスクリーンショット

注記：

上記の例では、A5:A17は日付が含まれる範囲、$B$1は開始日、$D$1は終了日、そしてB5:B17は評価したい値の範囲です。これらの参照を実際のデータに合わせて調整してください。
参照する2 つの範囲が同じ長さであることをご確認ください。そうでない場合、数式でエラーが発生する可能性があります。
日付がテキストではなく、正しく日付形式で入力されているか再度ご確認ください。そうでないと、数式が意図したとおりに動作しないことがあります。

ヒント：

Office 365 または Excel 2021 以降をご利用の場合は、MAXIFS 関数およびMINIFS 関数を使って、条件に基づく計算をもっと簡単に実行できます。
数式が予期せず0 や空白を返す場合は、指定した日付範囲が実際のデータの日付範囲と重なっているか確認し、空セルが混入していないかもチェックしてください。

VBA コード：指定範囲内で最大値または最小値を自動的に検索する

大規模なデータセットを扱う方、この作業を頻繁に繰り返す必要がある方、またはレポート作成の自動化をご希望の方にとって、選択した日付範囲内で最大値または最小値を効率的に検索できる VBA マクロが非常に有効です。VBA を使えば、毎回関連する範囲を選択し、日付を設定するようユーザーに促すことができ、動的なアプリケーションや高度なワークフロー統合に最適です。

1。「開発」タブに移動し、「Visual Basic」をクリックします。表示される VBA エディターで、「挿入」＞「標準モジュール」をクリックして、新しいモジュールに以下のコードをコピー＆ペーストしてください：

Sub FindMaxMinInDateRange_Robust()
    Dim ws As Worksheet
    Dim dateRange As Range, valueRange As Range
    Dim startCell As Range, endCell As Range
    Dim startDate As Date, endDate As Date
    Dim i As Long
    Dim d As Date, v As Variant
    Dim hasHit As Boolean
    Dim maxV As Double, minV As Double
    Const TITLE As String = "KutoolsforExcel"
    
    On Error GoTo FailFast
    
    Set ws = ActiveSheet
    
    
    Set dateRange = Application.InputBox("Select the DATE range:", TITLE, Type:=8)
    If dateRange Is Nothing Then Exit Sub
    Set valueRange = Application.InputBox("Select the VALUE range (same rows as date range):", TITLE, Type:=8)
    If valueRange Is Nothing Then Exit Sub
    
    If dateRange.Rows.Count <> valueRange.Rows.Count Then
        MsgBox "Date range and value range must have the SAME number of rows.", vbExclamation, TITLE
        Exit Sub
    End If
    
   
    Set startCell = Application.InputBox("Select START date cell:", TITLE, Type:=8)
    If startCell Is Nothing Then Exit Sub
    Set endCell = Application.InputBox("Select END date cell:", TITLE, Type:=8)
    If endCell Is Nothing Then Exit Sub
    
    If Not IsDate(startCell.Value) Or Not IsDate(endCell.Value) Then
        MsgBox "Start/End cell must contain valid dates.", vbExclamation, TITLE
        Exit Sub
    End If
    
    startDate = CDate(startCell.Value)
    endDate = CDate(endCell.Value)
 
    If startDate > endDate Then
        Dim tmp As Date
        tmp = startDate: startDate = endDate: endDate = tmp
    End If
    

    For i = 1 To dateRange.Rows.Count
        If IsDate(dateRange.Cells(i, 1).Value) Then
            d = CDate(dateRange.Cells(i, 1).Value)
            If d >= startDate And d <= endDate Then
                v = valueRange.Cells(i, 1).Value
                If IsNumeric(v) And Not IsEmpty(v) Then
                    If Not hasHit Then
                        maxV = CDbl(v): minV = CDbl(v)
                        hasHit = True
                    Else
                        If CDbl(v) > maxV Then maxV = CDbl(v)
                        If CDbl(v) < minV Then minV = CDbl(v)
                    End If
                End If
            End If
        End If
    Next i
    
    If hasHit Then
        MsgBox "Max value in range: " & maxV & vbCrLf & _
               "Min value in range: " & minV, vbInformation, TITLE
    Else
        MsgBox "No rows matched the date range (or values were non-numeric).", vbExclamation, TITLE
    End If
    Exit Sub

FailFast:
    MsgBox "Something went wrong: " & Err.Description, vbExclamation, TITLE
End Sub

2。マクロを実行するには、VBA エディターの「実行」ボタンをクリックするか（または)F5キーを押してください）。プロンプトに従って日付範囲と値の範囲を選択し、開始日と終了日を入力すると、指定した日付区間における最大値と最小値がダイアログボックスに表示されます。

ヒント：

選択した日付範囲と値の範囲が同じ行数を含み、互いに正確に対応していることをご確認ください。
この方法は、膨大なリストの処理や、変化する条件に基づいて最大値／最小値を繰り返し計算する作業を自動化する際に特に役立ちます。
空の範囲や無効な範囲が選択されている場合、または日付入力の書式が正しくない場合は、コードが有効な結果を返さない可能性があります。実行前に選択内容を今一度ご確認ください。

その他の Excel 組み込み機能：ピボットテーブルを使用して日付範囲ごとの最大値／最小値をフィルター表示する

数式やコードを使いたくない方には、Excel のピボットテーブル機能が最適です。対話的で数式不要の操作により、日付でデータを簡単にフィルターし、最大値や最小値などの集計値を即座に表示できます。この方法は、データを探索したい方、レポートを作成したい方、またはグラフィカルなインターフェースで条件を手軽に調整したい方にぴったりです。

1。日付と値を含む表全体を選択し、「挿入」タブから「ピボットテーブル」をクリックします。

2。「ピボットテーブルの作成」ダイアログで、ピボットテーブルの配置場所を選択して、「OK」をクリックします。

3。「ピボットテーブルフィールド」ペインで、「Date」フィールドを「行」エリアにドラッグし、「Values」フィールド（最大値／最小値を求めたいデータ）を「値」エリアにドラッグします。デフォルトでは「合計」が表示されるため、「値」エリア内のフィールドをクリックして「値の集計方法」を選び、「最大」または「最小」に変更してください。

4。特定の日付範囲でフィルターをかけるには、日付フィールドの行ラベルにあるドロップダウンをクリックし、日付のフィルター＞範囲内…を選択して、開始日と終了日（例：2016/7/1～2016/12/1）を指定し、OKをクリックします。

これにより、ピボットテーブルには指定された限定範囲内において、各日付ごとの最大値または最小値が表示されます。その範囲全体で単一の最大値または最小値のみが必要な場合は、さらにフィルターを適用したり、集計結果を視覚的に確認したりできます。

注記：

Date 列のすべてのセルがテキストではなく実際の日付形式になっていることを確認してください。形式が混在していると、フィルターが行を見落とす原因になります。
ソースデータが変更されたら、ピボットテーブルを右クリックして更新を選択し、結果を最新の状態に保ってください。
レイアウトによっては、Excel が日付を月／四半期／年単位で自動的にグループ化することがあります。必要に応じて、ピボットテーブル内の日付を右クリックし、グループ解除（または)グループ化…を選択して目的の集計レベルを設定）してください。
非常に大きなデータセットの場合は、ピボットテーブルを新しいワークシートに配置することで、読みやすさとパフォーマンスが向上します。

ヒント：

スライサーを日付フィールドに追加して（)ピボットテーブル分析 > スライサーの挿入）、インタラクティブに範囲を変更できるようにします。
フィルタリング範囲全体から単一の最大値／最小値を取得したいですか？フィルター適用後、値の列を並べ替えるか、2 つ目の値フィールドを追加して、それを最大／最小に切り替えてください。
ピボットチャートと組み合わせれば、フィルターに連動して自動更新されるビジュアルなサマリーが手に入ります！

この方法なら数式を手動で入力する必要がなく、動的な操作が可能なので、プレゼンテーションや複数ユーザーでの利用に最適です。高度にカスタマイズされた出力や多数のシートにわたるバッチ処理の自動化が必要な場合は、数式または VBA による方法をご検討ください。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！