結合セルの罠を突破せよ：Word VBAで「列の連番」を完璧に制御する極限のロジック
こんにちは。業務自動化の世界へようこそ。
マクロの記録機能を使って「あ、これ自動化できそう！」とワクワクしているあなた。素晴らしい一歩を踏み出しましたね。マクロの記録は、VBAという魔法の呪文の「書き方」を学ぶための最高の教科書です。
しかし、プログラミングの旅が進むにつれ、あなたは必ず「見えない壁」にぶつかることになります。その壁の名は、「結合セル」です。
「表の1列目に、1, 2, 3…と連番を振りたいだけなのに、エラーが出る。あるいは、数字が飛び飛びになってしまう……」
もしあなたが今、そんな問題に直面しているなら、おめでとうございます。あなたは今、単なる「記録係」から、オブジェクトの構造を理解する「エンジニア」へと進化する境界線に立っています。
今日は、結合セルが存在する複雑な表でも、決して怯むことなく、正確に連番を打ち込むための「真のロジック」を伝授しましょう。
1. なぜ、単純なループでは失敗するのか？
まず、多くの初学者が書いてしまう「失敗するコード」のイメージを見てみましょう。
' ❌ 失敗しやすい例（結合セルがあるとエラーやズレの原因になる）
For i = 1 To myTable.Rows.Count
myTable.Cell(i, 1).Range.Text = i
Next iなぜこれがダメなのか。理由は、Wordにおける「表（Table）」の概念が、Excelのように「綺麗な格子状のグリッド」ではないからです。
結合セルが引き起こす「インデックスの崩壊」
Excelの場合、セルを結合しても「背後にある行と列のインデックス」は変わりません。しかし、Wordの場合、セルを結合すると「その行の構成要素」が物理的に変わってしまいます。
例えば、2行目と3行目を縦に結合したとしましょう。すると、Wordのオブジェクトモデルから見ると、「2行目には、本来あるはずのセルが存在しない（または、3行目のセルと同一視される）」という状態が発生します。
この状態で `Rows(i)` や `Cell(i, j)` を使って機械的にアクセスしようとすると、以下の問題が起こります。
1. 実行時エラー: 「指定したセルが存在しません」というエラーで止まる。
2. インデックスのズレ: 結合によって行のカウントが狂い、意図しない場所に数字が入る。
これを回避するには、「行（Rows）を基準に考えるのをやめ、セル（Cells）の集合体を基準に考える」というパラダイムシフトが必要なのです。
2. 解決策：セル・コレクション走査法
結合セルをスマートに扱うための鉄則は、「表の中にある全てのセルを一つずつ確認し、自分がターゲットとする列に属しているか、そしてそれが『新しい行』の始まりか」を判定することです。
ここで重要になるのが、セルのプロパティである `RowIndex`（そのセルが何行目にあるか）です。
実装のアルゴリズム
1. 表内の全ての `Cells` を一つずつループで回す。
2. そのセルが「連番を振りたい列（ColumnIndex）」にあるか判定する。
3. 「直前に処理した行の番号」を覚えておく。
4. 現在のセルの `RowIndex` が、直前の行番号と違っていれば、「新しい行に到達した」と判断してカウントアップする。
このロジックを使えば、結合セルによって複数のセルが同じ `RowIndex` を持っていたとしても、一度しかカウントを増やさないように制御できます。
3. 【実践】連番作成の決定版コード
それでは、そのままコピーして使える、堅牢なコードを提示します。
''' <summary>
''' 結合セルを考慮して、指定した列に連番を振る
''' </summary>
''' <param name="targetTable">対象となるWordのTableオブジェクト</param>
''' <param name="targetColumn">連番を振る列番号 (1から開始)</param>
Sub FillSerialNumbersSmart(targetTable As Table, targetColumn As Integer)
Dim c As Cell
Dim currentNumber As Long
Dim lastRowIndex As Integer
' 初期化
currentNumber = 0
lastRowIndex = -1 ' 最初の行を確実に判定するため、存在しない行番号で初期化
' エラーハンドリング: 結合セルによるアクセスエラーを回避するための保険
On Error Resume Next
' 表の中の「全てのセル」を一つずつ走査する
' Rows(i)ではなく、Cellsコレクションを直接回すのがプロの技
For Each c In targetTable.Range.Cells
' 1. このセルが、ターゲットとしている列にあるか？
If c.ColumnIndex = targetColumn Then
' 2. このセルの行番号が、直前に処理した行番号と異なるか？
' これにより、縦に結合されたセルを「一つの塊」として扱う
If c.RowIndex <> lastRowIndex Then
' カウントアップ
currentNumber = currentNumber + 1
' セルに数値を書き込む
' ※末尾の改行記号を消すために .Range.Text に代入
c.Range.Text = CStr(currentNumber)
' 3. 今回処理した行番号を記録しておく
lastRowIndex = c.RowIndex
End If
End If
Next c
On Error GoTo 0 ' エラーハンドリングを解除
MsgBox "連番の入力が完了しました！", vbInformation
End Sub
''' <summary>
''' テスト実行用メインルーチン
''' </summary>
Sub TestMacro()
Dim doc As Document
Dim tbl As Table
Set doc = ActiveDocument
' 文書内に表があるか確認
If doc.Tables.Count = 0 Then
MsgBox "表が見つかりません。"
Exit Sub
End If
' 1番目の表を対象とする
Set tbl = doc.Tables(1)
' 1列目に連番を振る
Call FillSerialNumbersSmart(tbl, 1)
End Sub4. アーキテクトの視点：ここがプロのこだわり
このコードがなぜ「強い」のか。設計のポイントを解説します。
① `For Each c In targetTable.Range.Cells` の採用
`For i = 1 To Rows.Count` は「行」という概念に縛られています。しかし、`targetTable.Range.Cells` は、表の中に存在する「セルというオブジェクトの集合」を直接見ています。結合セルによって行のインデックスが不安定になっても、セルそのものを辿る手法なら、迷子になることがありません。
② `lastRowIndex` による状態管理
これがこのロジックの心臓部です。
結合セルがある場合、複数のセルが同じ `RowIndex` を共有します。
- セルA (Row 2) $\rightarrow$ `RowIndex` は 2
- セルB (Row 2, 結合されている) $\rightarrow$ `RowIndex` は 2
単純にループすると、セルAで「1」、セルBで「2」と振ってしまいます。しかし、`If c.RowIndex <> lastRowIndex` という条件を入れることで、「行が変わった瞬間だけカウントする」という制御が可能になります。
③ `On Error Resume Next` の戦略的利用
Wordの表操作において、結合セルは時として「物理的に存在しないはずのインデックス」へのアクセスを強いることがあります。これによってマクロが止まるのを防ぐため、最小限の範囲でエラーをスキップする処理を入れています。
最後に：一歩先へ進むあなたへ
いかがでしたか？
「結合セルをスキップする」という一見単純な課題の中に、「オブジェクトの構造をどう捉えるか」というプログラミングの本質が隠されています。
マクロの記録で作ったコードが動かなくなったとき、それはあなたが「より高度な制御」を求めているサインです。今回学んだ「状態（State）を保持して判定する」という考え方は、Word VBAだけでなく、あらゆるプログラミング言語に通じる普遍的な知恵です。
ここをクリアすれば、Word VBAの基本はバッチリですよ。
次は、もっと複雑な、表の書式設定やデータの抽出に挑戦してみましょう。応援しています！
