【実務・中級編】【中級者向け】表のセル内の改行コードを検出し、行を分割して転記するデータ整形 – Word VBA解析バイブル

【Word VBA】セル内改行を動的分解せよ！混沌としたテーブルを正規化する極限テクニック

開発現場でよくある悪夢の筆頭が、「1つのセルに複数のデータが改行区切りで詰め込まれたテーブル」だ。
Excelから雑にコピペされた仕様書、外部システムから吐き出された無慈悲なテキストデータ。これらを人間が手作業でセルを挿入し、コピペし直すなどというのは、自動化エンジニアの誇りが許さない。

今回は、Word VBAを用いて「セル内の改行コード（`vbCr` / `vbCrLf`）」を検出し、自動的に行を分割・再配置するデータ正規化（アンピボット）処理の極意を伝授する。

中途半端なコードを書けば、Word特有のセル構造の破壊、無限ループ、そしてランタイムエラーの泥沼にハマる。
プロのアーキテクトが実務で実装している、堅牢で高速なプロダクションコードの全貌を公開しよう。

—

1. なぜ「セル内改行の分解」は難易度が高いのか？

素人がこの課題に直面したとき、やりがちなのが以下の愚行だ。

• セルのテキストを上から順にSplit関数で配列にして、いきなりTableをいじり倒す
• `.Rows.Add` をループ内で適当に呼び出し、行数とインデックスの整合性を失う

Wordの `Table` オブジェクトは、Excelのシートのように「ただの2次元配列」ではない。
セルが結合（Merge）されていたり、行数が動的に変わる過程でポインタが狂ったりすると、「OLE 2.0 関連のエラー」や「指定されたオブジェクトが見つかりません」という呪いのメッセージと共にVBAはクラッシュする。

堅牢な設計の3大原則

1. 逆順ループ（Bottom-Up Processing）の鉄則
行の追加や削除を行うテーブル操作では、必ず「下から上へ（Max行から1行目へ）」ループを回せ。上から処理すると、追加された行を二重に検知して無限地獄に落ちる。
2. 改行コードの正確な捕捉
Wordのセル内改行は、VBAの世界では通常 `vbCr`（Carriage Return, Chr(13)）である。環境によっては `vbCrLf` が混入することもあるため、正規化の前処理でパリティを揃える必要がある。
3. Rangeオブジェクトのライフサイクル管理
セル内のテキストを操作する際は、セルそのものを叩くのではなく、確実に対象の `Range` を取得して `.Text` の末尾の制御文字（セル終端マーク `Chr(7)` や改行）をハンドリングする。

—

2. プロダクションコード：一撃でテーブルを正規化するマクロ

以下のコードは、アクティブドキュメントの最初の表（Table(1)）を対象に、特定の列（デフォルトでは2列目）に含まれる改行区切りのデータを検出し、行を動的に分割して展開する完全版のプロシージャだ。

Option Explicit

Public Sub NormalizeTableMultiData()
Dim targetTable As Table
Dim targetCol As Long
Dim r As Long
Dim cellRange As Range
Dim rawText As String
Dim lines() As String
Dim i As Long
Dim currentCellText As String

‘ — 設定フェーズ —
targetCol = 2 ‘ 分割対象の列番号（例: 2列目の「担当者」や「項目」などを想定）

‘ ドキュメントに表が存在するか検証
If ActiveDocument.Tables.Count = 0 Then
MsgBox “対象となる表がドキュメントに存在しません。”, vbCritical, “処理中断”
Exit Sub
End If

Set targetTable = ActiveDocument.Tables(1)

‘ 画面描画を停止して爆速化
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone

On Error GoTo ErrorHandler

‘ 【重要】行の動的追加・削除を行うため、必ず「下から上へ（逆順）」ループを回す
For r = targetTable.Rows.Count To 1 Step -1

‘ 指定列がテーブルの列数を超えている場合はスキップ
If targetCol <= targetTable.Columns.Count Then Set cellRange = targetTable.Cell(r, targetCol).Range ' セル末尾の制御文字（Chr(7) + Chr(13) 等）を除外した純粋なテキストを取得 currentCellText = CleanCellText(cellRange.Text) ' 改行コードが含まれているか判定 If InStr(currentCellText, vbCr) > 0 Or InStr(currentCellText, vbLf) > 0 then

‘ 改行で文字列を配列に分割（環境依存の改行を vbCr に統一して処理）
currentCellText = Replace(currentCellText, vbCrLf, vbCr)
lines = Split(currentCellText, vbCr)

‘ 1番目の要素は既存の行のセルに書き戻す
‘ ※Wordのセルテキスト代入時は末尾の制御文字に注意が必要
SetCellTextWithoutMarker targetTable.Cell(r, targetCol), lines(0)

‘ 2番目以降の要素について、新しい行を下に追加してデータを流し込む
For i = 1 To UBound(lines)
Dim newRow As Row
Set newRow = targetTable.Rows.Add(targetTable.Rows(r + 1))

‘ コピー元の行の書式やデータを複製したい場合はここでハンドリングする
‘ 今回は対象列以外を空白、または同一データを引き継ぐ設計にする
CopyRowStructure targetTable, r, newRow.Index

‘ 分割したテキストを新しい行の該当セルに流し込む
SetCellTextWithoutMarker targetTable.Cell(newRow.Index, targetCol), lines(i)
Next i

End If
End If
Next r

Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
MsgBox “テーブルの正規化が正常に完了しました。”, vbInformation, “完了”
Exit Sub

ErrorHandler:
Application.ScreenUpdating = True
Application.DisplayAlerts = wdAlertsAll
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub

‘ — ヘルパー関数群 —

‘ セルテキストからWord特有の終端文字（Chr(7)等）を除去する
Private Function CleanCellText(ByVal text As String) As String
If Len(text) >= 2 Then
‘ Wordのセル内テキストは末尾に Chr(13) & Chr(7) が付くためこれを削除
CleanCellText = Left(text, Len(text) – 2)
Else
CleanCellText = text
End If
End Function

‘ Wordのセル構造を破壊せずにテキストを設定する
Private Sub SetCellTextWithoutMarker(ByVal targetCell As Cell, ByVal text As String)
Dim rng As Range
Set rng = targetCell.Range
‘ 末尾の制御文字を除いた範囲を指定してテキストを置き換え
rng.End = rng.End – 2
rng.Text = text
End Sub

‘ 行追加時に上の行のスタイルやデータを複製するサンプル（必要に応じて拡張）
Private Sub CopyRowStructure(ByRef tbl As Table, ByVal sourceRowIdx As Long, ByVal targetRowIdx As Long)
Dim c As Long
For c = 1 WIdth tbl.Columns.Count
‘ 例として、分割対象列以外のテキストをコピーする場合の処理
‘ 必要がなければこの中身は空でも良い
Next c
End Sub

—

3. コードのキモ：プロが解説するアーキテクチャの解説

1. なぜ `CleanCellText` が必要なのか？

Wordの `Cell.Range.Text` をそのまま取得すると、文字列の末尾に必ず `Chr(13) + Chr(7)`（段落記号とセル終了マーク）が付与される。これをそのまま `Split` かけたり、再度セルに代入したりすると、表のレイアウトが盛大に崩壊する。
`Left(text, Len(text) – 2)` によって純粋な文字列データのみを抽出する検疫プロセスが、バグを防ぐ最大の防壁となる。

2. 逆順ループ（`Step -1`）の圧倒的優位性

前述した通り、`Rows.Add` を実行するとテーブル全体の行インデックスが1つずつ下にシフトする。
もしこれを上から下へ（1 to Count）ループさせると、新しく挿入した行を次のループで再度「分割対象」として検知してしまい、永遠に終わらない無限ループの悪夢を引き起こす。
逆順ループであれば、すでに対象外（処理済み）となった上方の行インデックスには影響を与えないため、極めて安全に構造変更を行える。

3. パフォーマンスの最適化

`Application.ScreenUpdating = False`。これをするのとしないのとでは、処理速度が文字通り10倍以上変わる。Word VBAはUIの描画コストが非常に高いため、一括処理系を書くときは画面描画の凍結とエラー時の復旧（`DisplayAlerts`の復元）をセットで実装するのがプロの作法だ。

—

4. 拡張と実務への適用

このコードをベースにすれば、以下のような実務要件へ簡単に応用できる。

• 複数列の同時展開: `Split` した配列の要素数（`UBound(lines)`）を他の列とも同期させ、マトリクス状に展開する。
• データベース連携（ADO）: 外部のSQL ServerやSQLiteから取得した複数行のJSON/CSVデータを、一度Wordのセル内改行として仮置きし、このマクロで綺麗にレイアウトされた表にレンダリングしてからPDF化・印刷する。

自動化の本質は「力技の排除と、構造の掌握」にある。
混沌としたWordのテーブルデータに怯える日々は、今日で終わりにしよう。このコードをあなたの武器庫に加え、業務効率化の極みを目指せ。