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

Word VBAの罠を回避せよ：結合セルを考慮した「堅牢な連番付与」の設計思想

業務自動化の現場において、Wordの「表（Table）」は避けては通れない、しかし極めて厄介なオブジェクトだ。

多くの開発者が、Excel VBAの感覚で「行（Rows）をループして、セルに値を書き込む」という単純なロジックをWordに持ち込み、そして破滅する。なぜか？ WordのTableオブジェクトは、結合セルが存在した瞬間に、数学的な行列（Matrix）としての性質を失うからだ。

結合セルが含まれる表に対して `Rows(i)` を参照しようとした瞬間、ランタイムエラーが飛んでくる。あるいは、結合されたセルを重複してカウントし、視覚的な行番号とロジック上のカウントが乖離する。これは「動かないコード」ではなく、「バグを内包した、信頼に値しないコード」である。

本記事では、プロフェッショナルとして、結合セルという「不規則な構造」をいかに制御し、メンテナンス性の高い、バグのない連番付与ロジックを実装すべきかを伝授する。

1. なぜ、単純な `For i = 1 To Rows.Count` は「設計ミス」なのか

まず、初心者が陥る致命的な勘違いを整理しておこう。

構造の不一致

Excelのセルは、たとえ結合されていても、背後には必ず「1セル＝1アドレス」のグリッドが存在する。しかし、Wordの結合セルは、「複数のセルが物理的に一つのオブジェクトとして統合されている」状態だ。

結合セルが存在する場合、Wordの `Rows` コレクションは、その結合が「行を跨いでいるか」「列を跨いでいるか」によって、インデックスの整合性が崩れる。特定の行を参照しようとした際、その行が結合によって「存在しない（あるいは定義が不明確な）行」とみなされると、VBAは即座に停止する。

解決策：オブジェクトの「起点」を捉える

堅牢な設計をするならば、`Rows` コレクションをループするのではなく、「特定の列（Column）に含まれるCellsコレクション」を走査し、各セルが属する `MergeArea`（結合領域）の特性を判定するアプローチを取るべきだ。

2. 実装の要諦：MergeAreaによる判定ロジック

結合セルを無視して、視覚的な行番号だけを正しくカウントアップするには、以下のロジックを実装する必要がある。

1. 対象の列を特定する。
2. その列の全セルをループする。
3. 各セルが「結合領域の先頭セル」であるかどうかを判定する。

• `Cell.MergeArea.Cells(1)` が自分自身である場合、そのセルは結合範囲の「起点」である。
• 起点であれば、連番を書き込み、カウンターをインクリメントする。
• 起点でなければ（＝結合された範囲の2番目以降のセルであれば）、何もしない。

この「起点判定」こそが、結合セルをスマートにスキップする鍵となる。

3. プロダクション・コード例

以下に、実務でそのまま利用可能な、堅牢な設計に基づいたコードを示す。単なるコピペで終わらせず、なぜこの構造にしているのかを読み解いてほしい。

Option Explicit

''' <summary>
''' 指定した表の特定の列に、結合セルを考慮した連番を振る。
''' </summary>
''' <param name="targetTable">対象となるWordのTableオブジェクト</param>
''' <param name="targetColIndex">連番を入力する列番号 (1-based)</param>
Public Sub ApplySequentialNumbersToTable(ByRef targetTable As Table, ByVal targetColIndex As Integer)
    ' 1. エラーハンドリング：オブジェクトの存在確認
    If targetTable Is Nothing Then
        Err.Raise vbObjectError + 513, "ApplySequentialNumbersToTable", "対象のテーブルが指定されていません。"
    End If

    ' 2. 変数定義：パフォーマンスと可読性のための宣言
    Dim targetColumn As Column
    Dim currentCell As Cell
    Dim visualRowCounter As Long
    
    ' 3. 初期化
    visualRowCounter = 1
    
    ' 境界チェック
    If targetColIndex < 1 Or targetColIndex > targetTable.Columns.Count Then
        MsgBox "指定された列番号が範囲外です。", vbCritical
        Exit Sub
    End If

    On Error GoTo ErrorHandler
    
    ' 描画更新を抑制する手法はないが、処理の高速化のために
    ' 可能な限りSelect/Activateを避ける設計にする
    
    ' 4. メインロジック：列内のセルを走査
    ' Rows(i)ではなく、Column.Cellsを使用することで結合セルによるエラーを回避する
    Set targetColumn = targetTable.Columns(targetColIndex)
    
    For Each currentCell In targetColumn.Cells
        
        ' 結合領域（MergeArea）の先頭セルかどうかを判定
        ' MergeArea.Cells(1) が currentCell と一致すれば、それは結合範囲の「起点」である
        If currentCell.MergeArea.Cells(1).Range.Start = currentCell.Range.Start Then
            
            ' 起点セルに対してのみ、値を書き込む
            currentCell.Range.Text = CStr(visualRowCounter)
            
            ' 視覚的な行番号をインクリメント
            visualRowCounter = visualRowCounter + 1
            
        Else
            ' 結合範囲の2番目以降のセルは、何もしない（スキップ）
            ' これにより、結合されたセルに重複して番号が入るのを防ぐ
        End If
        
    Next currentCell

    Exit Sub

ErrorHandler:
    MsgBox "実行中にエラーが発生しました。" & vbCrLf & _
           "Error No: " & Err.Number & vbCrLf & _
           "Description: " & Err.Description, vbCritical, "実行エラー"
End Sub

''' <summary>
''' テスト用メインルーチン
''' </summary>
Sub Test_SequentialNumbering()
    Dim doc As Document
    Dim tbl As Table
    
    Set doc = ActiveDocument
    
    ' ドキュメント内に表が存在するか確認
    If doc.Tables.Count = 0 Then
        MsgBox "テスト対象の表が見つかりません。", vbExclamation
        Exit Sub
    End If
    
    ' 最初の表を対象とする
    Set tbl = doc.Tables(1)
    
    ' 1列目に連番を振る
    Call ApplySequentialNumbersToTable(tbl, 1)
    
    MsgBox "処理が完了しました。", vbInformation
End Sub

4. アーキテクトからのアドバイス：実務への応用と注意点

このコードをプロダクション環境（実際の業務ツール）に組み込む際、君たちが意識すべき重要なポイントが3つある。

① 外部データ（Excel/DB）との連携における「型」の意識

もし、この連番をExcelのリストから取得したデータに基づいて制御する場合、データの「型」に細心の注意を払え。Wordのセルに値を流し込む際、`Range.Text` は常に `String` 型として扱われる。数値として計算が必要なデータ（金額や数量）を流し込む場合は、必ず型変換（`CDbl` や `CInt`）を適切に行い、Word上での表示形式（カンマ区切りなど）を考慮した文字列を作成してから代入すること。

② パフォーマンスの壁

表のセル数が増大（数百〜数千行）した場合、`For Each currentCell In targetColumn.Cells` は低速になる可能性がある。Wordのオブジェクトモデルへのアクセスは、Excelに比べて圧倒的に重い。
もし極端なパフォーマンス低下が見られる場合は、セルを一つずつ操作するのではなく、一度「配列」にデータを格納し、最後に一括で書き込む……と言いたいところだが、WordのTableオブジェクトにはExcelのような `Range.Value = Array` という魔法のプロパティは存在しない。
したがって、「不要な `Select` や `Activate` を徹底的に排除すること」が、Word VBAにおける唯一かつ最強の高速化戦略である。

③ 堅牢なエラーハンドリング

実務ツールにおいて、ユーザーの予期せぬ操作（途中で表の構造を変える、保護された文書を開くなど）は日常茶飯事だ。
私が提示したコードのように、必ず `On Error GoTo ErrorHandler` を実装し、エラーが発生した際に「何が起きたのか」をユーザーが理解できるメッセージを返す設計にせよ。沈黙するプログラムは、エンジニアへの信頼を失わせる。

結論

結合セルを扱うロジックの本質は、「構造の不規則性を、オブジェクトのプロパティ（MergeArea）によって数学的な規則性に変換すること」にある。

`Rows(i)` という表面的なインデックスに頼るのではなく、オブジェクトの深層にある性質を理解してコードを書く。これこそが、単なる「作業者」と「エンジニア」を分かつ境界線である。