【入門編】【中級者向け】Word表のセル結合を解除した際、元のデータを各セルに均等に分配するロジック – Word VBA解析バイブル

Word VBAの深淵へようこそ：結合セルの「解体と再分配」をマスターする

こんにちは。現場の設計（アーキテクチャ）を司るエンジニアとして、今日は君たちを一段上のステージへ引き上げたいと思います。

「マクロの記録」を使って、表のセルを結合したり解除したりするコードを書いたことはありますか？
おそらく、多くの人はそこで「お、動いた！」と喜びます。しかし、真のプロフェッショナルが直面するのは、その直後の「Wordの理不尽な仕様」です。

今回のテーマは、中級者への登竜門。
「結合セルを解除したとき、データが左上のセルに固まってしまう問題」を、ロジックの力で解決する方法です。

これをマスターすれば、君の作る自動化ツールは「ただ動くもの」から「業務に寄り添うインテリジェントなもの」へと進化します。準備はいいですか？

1. なぜ、Wordの「セル結合解除」は私たちの期待を裏切るのか

まず、問題の本質を理解しましょう。ここが「リファレンスを写すだけの人」と「エンジニア」の分かれ道です。

Wordのオブジェクトモデルにおいて、セルを結合（`Merge`）するという行為は、「複数のセルオブジェクトを、一つの新しいセルオブジェクトに統合する」という破壊的な操作です。

そして、結合を解除（`UnMerge`）したとき、Wordはこう考えます。
> 「よし、セルをバラバラに戻したぞ。でも、中に入っていたデータはどうしようかな？ まあ、とりあえず一番最初のセル（左上）に全部放り込んでおこう。残りのセルは空っぽでいいよね」

これが、君が遭遇している現象の正体です。
データは「値」としてセルに紐付いているのではなく、結合された「単一のセル」という器に閉じ込められているのです。

2. 解決へのアルゴリズム：解体と再分配の戦略

この理不尽を突破するには、「結合を解除する前に、データをあらかじめバラバラのパーツとして認識しておく」という戦略が必要です。

具体的には、以下のステップで処理を組み立てます。

1. データの抽出: 結合されたセルの中身（テキスト）を取り出す。
2. データの分割: そのテキストを、区切り文字（改行など）に基づいて「配列」に分解する。
3. 構造の解体: セルの結合を解除する。
4. データの再分配: 解除によって新しく生まれた各セルに対して、配列の要素を一つずつ流し込む。

図解すると、このようなイメージです。

【結合前】
[ データの塊 (A\nB\nC) ]  <-- 1つのセル

【Step 1 & 2: 分割】
パーツ1: "A", パーツ2: "B", パーツ3: "C"

【Step 3: 解除】
[ 空 ] [ 空 ] [ 空 ]      <-- 3つのセルに分離

【Step 4: 分配】
[  A  ] [  B  ] [  C  ]  <-- データの復元完了！

3. 実践：スマート・アンマージ・ロジック

それでは、実際に現場で使えるコードを書いていきましょう。
今回は、「改行（Enter）で区切られたデータを、結合解除後の各セルに均等に配分する」という、実務で極めてニーズの高い関数を作成します。

Option Explicit

''' <summary>
''' 結合セルを解除し、改行で区切られたデータを各セルに分配する
''' </summary>
''' <param name="targetCell">対象となる結合セル（Rangeオブジェクト）</param>
Sub SmartUnmergeAndDistribute(targetCell As Range)
    Dim cellContent As String
    Dim dataArray() As String
    Dim i As Long
    Dim newCells As Range
    
    On Error GoTo ErrorHandler
    
    ' 1. 結合セルのテキストを取得（末尾の改行記号などは除去しておく）
    cellContent = Trim(Replace(targetCell.Text, vbCr, ""))
    ' ※Wordのセル内改行は特殊な場合があるため、状況に応じて調整が必要
    ' ここではシンプルに、取得したテキストを改行で分割する前提
    
    ' 2. 改行コードでデータを配列に分割
    ' Wordのセル内改行は vbCr (Chr(13)) が一般的です
    dataArray = Split(targetCell.Range.Text, Chr(13))
    
    ' 配列の要素数を確認（空の要素を除外するための処理）
    ' ※Wordのセル末尾には必ず制御文字が入るため、要素数が1つ多くなる傾向があります
    Dim actualCount As Long
    actualCount = UBound(dataArray)
    If dataArray(actualCount) = "" Then actualCount = actualCount - 1
    
    ' 3. セルの結合を解除
    ' ここで、元の1つのセルが、複数のセルへと「物理的に」変化します
    targetCell.UnMerge
    
    ' 4. 解除後に生まれたセル範囲を特定する
    ' UnMergeした直後、元のtargetCellが指していた範囲は、
    ' 分割された後の「最初のセル」を指し続けています。
    ' そのため、周囲のセルを含めたRangeとして再定義する必要があります。
    
    ' ここが重要：結合解除後のセル群を特定するために、
    ' 元のセルが属していた行の、セルの個数をベースにループを回します。
    ' ※ここでは簡略化のため、分割したデータの数だけセルを辿るロジックにします。
    
    Dim currentCell As Cell
    Set currentCell = targetCell.Cells(1) ' 解除後の最初のセル
    
    For i = 0 To actualCount
        ' セルにデータを流し込む
        ' Wordのセルに値を代入する際は、末尾の制御文字に注意
        currentCell.Range.Text = dataArray(i)
        
        ' 次のセルへ移動（横方向に移動することを想定）
        ' ただし、表の端に達しないよう制御が必要
        If i < actualCount Then
            Set currentCell = currentCell.Next
            ' もしNextがエラーになる（列の右端）場合は、次の行へ行くなどの処理が必要
            If currentCell Is Nothing Then Exit For
        End If
    Next i

    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical, "エンジニアの警告"
End Sub

''' <summary>
''' テスト用のメインルーチン
''' </summary>
Sub TestSmartUnmerge()
    Dim tbl As Table
    Dim target As Range
    
    ' ドキュメント内の最初の表を対象にする
    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "表が見つかりません。"
        Exit Sub
    End If
    
    Set tbl = ActiveDocument.Tables(1)
    
    ' 仮に、1行目の1列目のセルが結合されていると想定
    ' ここでは、手動で結合されたセルを選択している状態からスタートすることを想定
    Set target = Selection.Range
    
    If target.Cells.Count > 1 Then
        MsgBox "結合されたセルを選択してから実行してください。"
    Else
        Call SmartUnmergeAndDistribute(target)
    End If
End Sub

4. プロの視点：ここをクリアすれば、Word VBAの基本はバッチリですよ

コードを読み解きましたか？
このコードには、単なる「動くコード」以上の、設計上の配慮が含まれています。

① オブジェクトの「変化」を予測する

`targetCell.UnMerge` を実行した瞬間、`targetCell` というオブジェクトが指し示す「世界」は劇的に変化します。
プロフェッショナルは、「操作によってオブジェクトの構造が変わる」ことを常に意識します。今回のコードでは、解除後に `targetCell.Cells(1)` を起点として、新しいセルへと足場を移していく手法をとっています。

② 制御文字の罠（The Control Character Trap）

Wordのセル内には、目に見えない「セルの終端記号（Chr(13) & Chr(7)）」が存在します。
`targetCell.Text` をそのまま使うと、この記号まで取得してしまい、分割ロジックが狂う原因になります。`Split` を使う際や、値を代入する際には、常に「余計な文字が混じっていないか」を疑う癖をつけてください。

③ パフォーマンスとエラーハンドリング

実務では、大きな表を扱うことがあります。
もしループの中で何度も `Select` を使っていたら、処理速度は劇的に低下します。今回のコードのように、`Range` や `Cell` オブジェクトを直接操作するのが、高速化への最短ルートです。

最後に

「結合を解除するとデータが消える（あるいは一箇所に固まる）」という現象は、Word VBAの世界ではよくある「壁」です。
しかし、その壁の向こう側には、オブジェクトモデルの真の理解があります。

一度この「解体と再分配」のロジックを自分のものにすれば、次は「行の挿入に合わせてデータの整合性を保つ」といった、より高度な自動化へと自然にステップアップできるはずです。

君のコードが、誰かの仕事を劇的に楽にする日を楽しみにしています。
さあ、次の課題へ進みましょう！