【VBAリファレンス】Excel VBAで解決する複数グループの共通重複期間算出：実務で差がつくアルゴリズム徹底解説

概要：なぜ「共通の重複期間」の算出が難しいのか

実務において、複数のプロジェクトやリソース管理を行う際、「各メンバーが所属するグループごとに、全員が稼働可能な期間を抽出したい」というニーズは頻繁に発生します。例えば、A、B、Cという3名のメンバーが特定のプロジェクトに参加している場合、全員が揃っている（＝全員の期間が重複している）最小単位の期間を特定する作業です。

手作業で行えば、ガントチャートを目視で追うという非効率な方法になりがちですが、VBAを用いれば、どんなに膨大なデータ量であっても一瞬で正確な解を導き出せます。本稿では、グループごとに開始日の最大値と終了日の最小値を動的に取得し、重複期間を算出するプロフェッショナルなVBAテクニックを解説します。

詳細解説：重複期間算出の論理的アプローチ

複数の期間の「共通部分」を求める数理的なロジックは非常にシンプルです。
「共通期間の開始日＝参加メンバーの開始日のうち、最も遅い日」
「共通期間の終了日＝参加メンバーの終了日のうち、最も早い日」

もし、算出した「共通開始日」が「共通終了日」よりも後になってしまった場合、そのグループには全員が重なる期間が存在しないことを意味します。このロジックをVBAのDictionaryオブジェクトと配列処理に組み込むことで、処理速度を劇的に向上させます。

単にセルをループして比較するのではなく、一度メモリ上にデータをロードし、グループごとにKeyを振り分けて最大値・最小値を更新していく手法が、大規模データ処理におけるベストプラクティスです。

サンプルコード：Dictionaryを活用した効率的解法

以下に、グループごとの共通期間を算出するための堅牢なコードを提示します。このコードは「グループ名」「開始日」「終了日」が列挙されたリストを前提としています。


Sub CalculateCommonPeriod()
    Dim ws As Worksheet: Set ws = ActiveSheet
    Dim lastRow As Long: lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    Dim data As Variant: data = ws.Range("A2:C" & lastRow).Value
    Dim dict As Object: Set dict = CreateObject("Scripting.Dictionary")
    Dim i As Long
    Dim key As String
    Dim startD As Date, endD As Date
    
    ' 各グループの最大開始日と最小終了日を算出
    For i = 1 To UBound(data, 1)
        key = data(i, 1)
        startD = data(i, 2)
        endD = data(i, 3)
        
        If Not dict.Exists(key) Then
            dict.Add key, Array(startD, endD)
        Else
            Dim current As Variant: current = dict(key)
            ' 開始日はより遅い方を採用
            If startD > current(0) Then current(0) = startD
            ' 終了日はより早い方を採用
            If endD < current(1) Then current(1) = endD
            dict(key) = current
        End If
    Next i
    
    ' 結果の出力
    Dim resultRow As Long: resultRow = 2
    ws.Range("E1:G1").Value = Array("グループ", "共通開始日", "共通終了日")
    For Each key In dict.Keys
        Dim res As Variant: res = dict(key)
        ' 共通期間が成立しているか判定
        If res(0) <= res(1) Then
            ws.Cells(resultRow, 5).Value = key
            ws.Cells(resultRow, 6).Value = res(0)
            ws.Cells(resultRow, 7).Value = res(1)
        Else
            ws.Cells(resultRow, 5).Value = key
            ws.Cells(resultRow, 6).Value = "重複なし"
        End If
        resultRow = resultRow + 1
    Next key
End Sub

実務アドバイス：保守性と拡張性を高めるために

VBAを実務に導入する際、単に動けば良いという考え方は危険です。以下の3点を意識することで、コードの品質は一段と向上します。

1. エラーハンドリングの徹底：日付データが空白であったり、文字列が混入している場合、上記のコードはエラーを吐きます。`IsDate`関数を用いたバリデーションをループの初期段階で行うことが不可欠です。
2. データのソート順への依存排除：今回紹介したDictionaryアプローチは、元のデータがバラバラの順序であっても正しく機能します。これは実務において非常に重要な仕様です。
3. 動的な範囲指定：`Range("A2:C" & lastRow)`のように、最終行を動的に取得する書き方は必須です。ハードコーディングを避けることが、修正コストを下げる唯一の方法です。

まとめ：VBAがもたらす業務変革

グループごとの共通期間算出は、手作業で行えばヒューマンエラーの温床となり、精神的負荷も高い作業です。しかし、今回解説したDictionaryを用いたロジックを習得すれば、数千行のデータであっても数秒で正確なレポートを作成できます。

プロフェッショナルなVBAエンジニアは、コードを書く前にまず「この処理は数学的にどのような最小単位の操作に還元できるか」を熟考します。今回の「最大開始日と最小終了日の抽出」という考え方は、期間計算だけでなく、在庫管理や工程管理など、あらゆる日付関連の業務に応用可能です。

ぜひ、お手元のExcelでこのコードを走らせてみてください。自動化の恩恵を実感することで、あなたの業務スタイルは劇的に進化するはずです。VBAを武器に、単なる「作業者」から「業務改善の設計者」へとステップアップしていきましょう。