特定の日付に基づいて、Excelで四半期の開始日または終了日を計算するにはどうすればよいですか？

Author Xiaoyang Last modified 2025-08-26

ビジネスデータ、財務記録、または四半期ごとに整理された計画業務を扱う場合、与えられた日付リストの四半期の開始日または終了日を特定する必要があります。例えば、スプレッドシートに記録された各取引やイベントに対応する四半期の開始日と終了日を迅速に取得する必要がある場合があります。Excelにはこの目的のために直接的な関数はありませんが、効率的に操作を行うための実用的な方法があります。以下で紹介する方法により、リストされた各日付に対して四半期の境界をシームレスに計算し、レポート作成や分析における一貫性と正確性を確保します。これらのステップは、期間ベースの要約、報告期限、または会計年度とデータを一致させる際に特に価値があります。議論されている解決策には、公式およびVBAコードが含まれており、迅速な手動処理とバッチ自動化の両方に対応しています。

calculate quarter start or end date based on date

特定の日付に基づいて四半期の開始日または終了日を公式を使用して計算する
 VBAマクロ: 日付範囲の四半期の開始日と終了日を自動的に計算し埋める

特定の日付に基づいて四半期の開始日または終了日を公式を使用して計算する

任意の特定の日付に対する四半期の開始日または終了日を取得するには、Excelでシンプルな数式を使用できます。これは、手動での検索なしに重要な期間を迅速に参照するのに特に役立ち、適度なサイズのリストに計算を適用する必要がある場合に最適です。

次の手順では、Excelの数式を使用して四半期の境界を効率的に計算する方法を示します。このアプローチは、VBAやアドインソリューションを避け、データが変更されるたびに結果が動的に更新される数式ベースのワークフローを好む場合に理想的です。ただし、数千件のエントリを持つデータセットや混合/動的な範囲の場合、自動化やスクリプトオプションの方がスケーラビリティが高いかもしれません。

日付に基づいて四半期の開始日を計算するには：

1. 四半期の開始日を表示したい空白セルをクリックします。たとえば、日付が列Aにある場合はセルB2をクリックします。
2. 次の数式を入力します：

=DATE(YEAR(A2),FLOOR(MONTH(A2)-1,3)+1,1)

3. Enter キーを押して確認します。次に、セルの右下隅にある小さな四角形（フィルハンドル）をドラッグして、必要な行に数式を適用します。これにより、列Aの各対応する日付について四半期の開始日が計算されます。
ヒント: セル参照が正しいことを確認してください。たとえば、日付がある場所に基づいてA2、A3などを使用します。結果セルを「日付」形式に設定すると、正しく表示されます。

calculate the start date of a quarter with a formula

この数式は、指定した日付から年を抽出し、四半期の開始月を計算することで動作し、常にその四半期の最初の日を返します。

日付に基づいて四半期の終了日を計算するには：

1. 四半期終了日を表示したい空白セルを選択します。たとえば、セルC2を選択します。
2. 次の数式を入力します：

=DATE(YEAR(A2),((INT((MONTH(A2)-1)/3)+1)*3)+1,1)-1

3. Enter を押して適用します。データの横にフィルハンドルをドラッグして、すべての行の四半期終了日を計算します。
この数式は、次の四半期の最初の日を見つけ、1を引くことで、各日付に対応する四半期の実際の最終日を返します。

calculate the end date of a quarter with a formula

ワークシートに多くの日付が含まれている場合、データをExcelテーブルに変換することをお勧めします。そうすることで、新しい行に数式が自動的に適用されます。また、正しい結果が表示されるようにセルを「日付」形式に設定してください。

注意点とヒント：
- 両方の数式は、元の日付が有効なExcel日付であることを前提としています。不正な形式またはテキスト形式の日付はエラーを引き起こす可能性があります。
- 日付ではなくシリアル番号が表示される場合は、「短い日付」または「長い日付」形式に結果セルを設定します。書式設定セルダイアログを使用してください。
- 予想外の結果が得られる場合は、地域の日付設定を確認してください。
- 財政年度の四半期（組織の四半期が1月以外の月から始まる場合）への調整には、数式をカスタマイズする必要があります。

#VALUE! エラーが発生する場合は、ソース範囲内に空のセルや非日付セルがないか確認してください。大量の更新や異なる日付範囲全体での自動計算が必要な場合は、以下で説明するVBAマクロのアプローチを検討してください。

VBAマクロ: 日付範囲の四半期開始日および終了日を自動的に計算・入力する

大きいまたは可変の日付範囲に対して頻繁に四半期の開始日と終了日を計算する必要がある場合、VBAマクロを使用して高速かつ自動的に処理できます。この方法は大規模なスプレッドシートに効果的で、動的なデータ範囲をサポートし、手動入力とエラーを最小限に抑えることができます。ただし、マクロの有効化が必要であり、厳しいセキュリティポリシー環境では適さない場合があります。

利点： 大規模なデータセットの全プロセスを自動化し、動的な範囲に対応し、手動操作によるリスクを最小限に抑えます。
制限事項： マクロ有効のワークブックとVBAエディタに関する基本的な知識が必要であり、一部の組織ではマクロの使用が制限される場合があります。

以下の手順に従ってマクロをセットアップして使用します：

1. 押す Alt + F11 を押して Microsoft Visual Basic for Applications エディタを開きます。
2. VBAウィンドウで、「挿入 > モジュール をクリックして新しいモジュールを作成します。
3. 次のVBAコードをコピーしてモジュールウィンドウに貼り付けます：

Sub FillQuarterStartEndDates()
    Dim rng As Range
    Dim cell As Range
    Dim startCol As Long
    Dim endCol As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set rng = Application.Selection
    Set rng = Application.InputBox("Select the date range to process:", xTitleId, rng.Address, Type:=8)
    
    If rng Is Nothing Then Exit Sub
    
    startCol = rng.Columns(rng.Columns.Count).Column + 1
    endCol = rng.Columns(rng.Columns.Count).Column + 2
    
    ' Add headers if necessary
    If rng.Rows(1).Row = 1 Or rng.Offset(-1, 0).Cells(1, 1).Value = "" Then
        rng.Cells(1, rng.Columns.Count + 1).Value = "Quarter Start Date"
        rng.Cells(1, rng.Columns.Count + 2).Value = "Quarter End Date"
    End If
    
    For Each cell In rng
        If IsDate(cell.Value) Then
            ' Quarter start date
            cell.Offset(0, rng.Columns.Count).Value = DateSerial(Year(cell.Value), ((Int((Month(cell.Value) - 1) / 3)) * 3) + 1, 1)
            
            ' Quarter end date
            cell.Offset(0, rng.Columns.Count + 1).Value = DateSerial(Year(cell.Value), (Int((Month(cell.Value) - 1) / 3) + 1) * 3 + 1, 1) - 1
        Else
            cell.Offset(0, rng.Columns.Count).Value = "N/A"
            cell.Offset(0, rng.Columns.Count + 1).Value = "N/A"
        End If
    Next cell
End Sub

4. Excelに戻り、処理したい日付セルの範囲を選択します。
5. 押す F5 キーを押すか、「実行」ボタンをクリックします。
6. ダイアログボックスで、計算対象の正確な日付範囲を確認または選択し、OKをクリックします。
マクロは、選択した範囲の隣に2つの新しい列（四半期の開始日用と四半期の終了日用）を自動的に挿入し、計算結果を入力します。日付ではないエントリについては「N/A」と表示されます。

注意：
- 常にデータをバックアップしてからマクロを実行してください。意図しない上書きを防ぐためです。
- マクロは無効または空のセルを識別し、「N/A」とマークするため、問題を簡単に見つけることができます。
- エラーが発生したり、マクロが実行されない場合は、Excelの設定でマクロが有効になっていること、そして新しい列を書き込むことを妨げる保護されたシートがないことを確認してください。
- 1月以外の月から始まる財政年度の四半期ロジックをカスタマイズするには、コードをそれに応じて調整する必要があります。

まとめると、どちらの方法でも特定のワークフローに基づいて四半期期間の境界を生成できます。小規模データの場合は数式を使用し、大規模または繰り返しの多いタスクの自動化にはマクロを使用することをお勧めします。問題や不確かな結果が見られる場合は、日付の書式と範囲選択を再確認してください。一貫したデータ構造は、手動計算でも自動計算でもエラーの可能性を減らし、効率を向上させます。

Kutools AIでExcelの魔法を解き放つ

スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
カスタム数式: ワークフローを合理化するための独自の数式を生成します。
VBAコーディング: 簡単にVBAコードを作成し実装します。
数式の解釈: 複雑な数式を簡単に理解できます。
テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

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

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