【テクニカル・上級編】【初心者向け】表の各セルに連番を振る際、結合セルを考慮してスキップするロジック – Word VBA解析バイブル

Word VBA

2026.10.30

[Deep Dive] Word VBA Table Manipulation: 結合セルという「不連続なDOM」を制御する設計思想

[Deep Dive] Word VBA Table Manipulation: 結合セルという「不連続なDOM」を制御する設計思想

Wordにおける「表（Table）」を扱う際、多くの開発者が陥る致命的な罠がある。それは、「Wordの表はExcelのグリッド（行列）ではない」という事実を忘却することだ。

Excelは、各セルが独立した座標を持つ数学的な行列構造である。しかし、Wordの表は「文書（Document）という巨大なDOM（Document Object Model）」の一部であり、結合（Merge）が行われた瞬間に、その行・列のインデックス構造は非線形、かつ不連続なものへと変貌する。

本稿では、結合セルを含む複雑な表において、視覚的な行番号（Visual Row Index）を正確に、かつ実行時エラーを回避しながら動的に採番するための、プロフェッショナルな実装手法について解説する。

1. 構造的欠陥：なぜ `Table.Rows(i)` は死を招くのか

初級者が書くコードは、往々にして以下のようになる。

' 典型的なアンチパターン
For i = 1 To targetTable.Rows.Count
    targetTable.Cell(i, 1).Range.Text = i
Next i

このコードは、結合セルが存在した瞬間に `Runtime Error ‘5941’: Requested member of the collection does not exist` を吐いて停止する。なぜなら、結合されたセルは「特定の行」に属していると見なされず、Wordの内部的なRowコレクションからインデックスが欠落するからだ。

シニアエンジニアであれば、この時点で「インデックスによる直接アクセス」を放棄し、「オブジェクトの走査（Traversal）」へと設計思想を切り替えなければならない。

2. 解決策：`MergeArea` プロパティによる領域の掌握

結合セルを回避しつつ、論理的な連番を振るための鍵は、`Cell` オブジェクトが持つ `MergeArea` プロパティにある。

`MergeArea` は、そのセルが属している結合範囲全体を一つの `Range` オブジェクトとして返してくれる。これを利用し、「現在処理しているセルが、既にカウント済みの結合範囲に含まれているか」を判定するロジックを構築するのが、最も堅牢なアプローチだ。

実装：堅牢な連番採番アルゴリズム

以下のコードは、結合セルを「一つの視覚的単位」として扱い、結合されたセルをスキップしながら、最初のセルにのみ連番を割り当てる実装例である。

''' <summary>
''' 結合セルを考慮し、表の第1列目に視覚的な連番を採番する。
''' </summary>
''' <param name="targetTable">対象となるWord.Tableオブジェクト</param>
Public Sub PopulateVisualSequence(ByRef targetTable As Word.Table)
    ' オブジェクトの有効性チェック（防御的プログラミング）
    If targetTable Is Nothing Then Exit Sub

    Dim targetCell As Word.Cell
    Dim visualCounter As Long
    Dim mergeStartRange As Word.Range
    
    ' 実行速度向上のため、画面更新を停止（Wordにおける標準的な最適化）
    Application.ScreenUpdating = False
    
    On Error GoTo ErrorHandler
    
    visualCounter = 1
    
    ' 1. Rowsコレクションではなく、Table.Range.Cellsを走査することで
    '    インデックス欠落によるランタイムエラーを回避する。
    ' 2. 各セルを走査し、そのセルが「結合範囲の先頭」である場合のみ処理を行う。
    
    For Each targetCell In targetTable.Range.Cells
        ' 第1列目のみを対象とする
        If targetCell.ColumnIndex = 1 Then
            
            ' 現在のセルの結合範囲（MergeArea）を取得
            Dim currentMergeArea As Word.Range
            Set currentMergeArea = targetCell.MergeArea
            
            ' 【極限の知見】
            ' セルが結合されている場合、その結合範囲の「最初のセル」と
            ' 「現在のセル」の開始位置を比較することで、重複処理を防ぐ。
            If targetCell.Range.Start = currentMergeArea.Cells(1).Range.Start Then
                ' 結合範囲の先頭セルである場合のみ、番号を書き込む
                targetCell.Range.Text = CStr(visualCounter)
                visualCounter = visualCounter + 1
            Else
                ' 結合範囲の2番目以降のセルは、視覚的な行としては既に
                ' 先頭セルが担当しているため、何もしない（スキップ）
            End If
            
        End If
        
        ' COMオブジェクトのライフサイクル管理：
        ' ループ内での一時的なオブジェクト参照の解放（メモリリーク防止）
        ' ただし、Rangeの再代入による暗黙的な解放を利用する設計が効率的
    Next targetCell

CleanUp:
    ' リソースの明示的解放
    Set targetCell = Nothing
    Application.ScreenUpdating = True
    Exit Sub

ErrorHandler:
    ' 業務システムとしての堅牢性を担保するためのエラーハンドリング
    MsgBox "Critical Error in Table Processing: " & Err.Description, vbCritical, "Architectural Error"
    Resume CleanUp
End Sub

3. パフォーマンスとメモリ管理の深淵

この実装において、単なる「動くコード」から「プロフェッショナルなコード」へと昇華させるために、以下の3点を意識している。

A. COMインターフェースのオーバーヘッド

VBAにおける `targetTable.Cell(i, j)` のようなアクセスは、WordプロセスとVBAプロセス間での COM (Component Object Model) 通信を発生させる。これは極めてコストが高い。
本実装では `For Each targetCell In targetTable.Range.Cells` を採用している。これにより、インデックス計算による再検索を減らし、イテレータによる連続的なメモリ走査を可能にしている。

B. オブジェクトのライフサイクルとメモリリーク

Word VBAは、大規模なドキュメントを処理する際、COMオブジェクトの解放が不適切だと、Wordプロセスがメモリを食いつぶし、最終的に `Out of Memory` でクラッシュする。
`Set targetCell = Nothing` による明示的な解放に加え、ループ内で `currentMergeArea` などの局所的なオブジェクトを使い捨てることで、ガベージコレクション（VBAにおいては参照カウントの減少）を適切に誘導している。

C. レガシー環境への適合性

本ロジックは、結合セルの複雑さが不規則な「現場の泥臭いドキュメント」でも動作するように設計されている。`MergeArea.Cells(1)` という絶対的な基準点を用いることで、セルが縦に結合されていようが、横に結合されていようが、常に「結合グループの起点」を特定できる。

結論

Word VBAにおける表操作は、単なるデータの流し込みではない。それは、不連続なDOM構造を、いかに論理的な連続性へと再構築するかという、アーキテクチャの設計そのものである。

`Rows` や `Columns` といった抽象的なインデックスに頼らず、`MergeArea` という実体的な領域に基づいた走査を行うこと。これこそが、システム管理者がレガシーな自動化ツールを、モダンで堅牢なエンタープライズ・ソリューションへと進化させるための第一歩である。