こんにちは！Word VBAの世界へようこそ。
マクロの記録ボタンを押すだけのステージから一歩進み、「自分の手でドキュメントを自在に操りたい」と願うあなたへ。
今回は、実務のデータクレンジングで非常に需要が高い、「セル内の改行データを検出し、行ごと美しく分割・再構成するロジック」を伝授します。
ExcelからWordへデータを流し込んだとき、あるいはレガシーなシステムから出力された報告書などで、「一つのセルの中に、改行区切りで複数のデータが詰め込まれている地獄のような表」に出くわしたことはありませんか？
これを手作業で直そうものなら、発狂するか定時を大幅に過ぎること間違いなしです。
しかし、Word VBAのオブジェクト構造の本質を理解すれば、一瞬で、しかもエレガントに解決できます。ここをクリアすれば、あなたのWord VBAのスキルは確実に中級者の領域へ到達します。さあ、一緒に扉を開けましょう！
—
なぜ「セル内改行の分割」は難しいのか？（Word VBAの罠）
まず、Wordの表（Table）構造の特殊性について知る必要があります。
Excelであれば「行の挿入・削除」は比較的直感的ですが、Wordの表は「行（Row）と列（Column）が複雑に絡み合い、さらにセル（Cell）の中には段落（Paragraph）という独自の宇宙が存在する」という構造をしています。
初心者が陥りがちな罠がこれです。
「セルの中のテキストを `Split` 関数で改行コード (`vbCr`) ごとに分けて、ループを回してセルを追加すればいいや！」
……残念ながら、それをやるとWordは機嫌を損ね、次のようなエラーや怪奇現象を引き起こします。
1. セルの数がズレる問題: 行ごとにセルの数が異なると、Wordの表は「不規則なテーブル（Irregular Table）」とみなされ、結合や行追加のメソッドが容赦なくエラーを吐きます。
2. 無限ループの呪い: 表の行数を動的に増やしながら同じ表を上から下に走査しようとすると、インデックスの参照先が狂い、処理が終わらなくなります。
これを突破するための鍵は、「逆順ループ（Bottom-Up approach）」と「段落オブジェクトの厳密な制御」です。
—
解決アプローチ：エレガントなデータ再構成の全体像
今回目指すロジックのコンセプトはこうです。
1. 対象となる表を「下から上へ（最後の行から最初の行へ）」逆順でループする。
(※下から処理していけば、行を追加・削除しても、上にある未処理の行インデックスが狂いません。これは業務自動化における極意です！)
2. 各セルのテキストを調べ、改行（`vbCr`）が含まれているか判定する。
3. 改行が含まれている場合、そのデータを分解し、現在の行の下に新しい行を動的に挿入してデータを流し込む。
4. 元のセルから余分なデータを綺麗に掃除する。
図解するなら、このようなイメージです。
[処理前]
+——————————–+
| 項目A | リンゴ\nバナナ\nみかん | <-- 1つのセルに改行区切りで複数データ
+--------------------------------+
↓ 逆順ループ＆行の動的挿入
[処理後]
+--------------------------------+
| 項目A | リンゴ | <-- 1行目
+--------------------------------+
| (空白)| バナナ | <-- 新規挿入された2行目
+--------------------------------+
| (空白)| みかん | <-- 新規挿入された3行目
+--------------------------------+
---
実装コード：実務で即戦力となるマクロ
それでは、開発環境（VBE）の標準モジュールに貼り付けてそのまま使える実践的なコードを公開します。コード内のコメントをしっかりと読み込んで、Word VBAの息吹を感じてください。
Sub SplitCellDataByLineBreak()
Dim doc As Document
Set doc = ActiveDocument
‘ ドキュメントに表が存在するかチェック
If doc.Tables.Count = 0 Then
MsgBox “ドキュメント内に表が見つかりません。”, vbExclamation
Exit Sub
End If
‘ ここではドキュメントの最初の表を対象とします（必要に応じて変更可能）
Dim targetTable As Table
Set targetTable = doc.Tables(1)
Dim r As Long, c As Long
Dim cellText As String
Dim lines() As String
Dim i As Long
Dim newRow As Row
‘ 【極意】行の動的追加・削除を安全に行うため、必ず「下から上へ（逆順）」ループする！
For r = targetTable.Rows.Count To 1 Step 1
‘ 例として「2列目」のセルに複数のデータが入っていると仮定して処理します
c = 2
If targetTable.Rows(r).Cells.Count >= c Then
‘ セルのテキストを取得（Wordのセル末尾には必ず改行コードが含まれるため、Trim等で整える）
cellText = targetTable.Cell(r, c).Range.Text
‘ Wordのセル内テキストの終端文字（Bell文字: 0x07 と 制御文字）を取り除く
cellText = Left(cellText, Len(cellText) – 2)
‘ 改行（vbCr または vbCrLf）が含まれているか判定
If InStr(cellText, vbCr) > 0 Then
‘ 改行で配列に分割
lines = Split(cellText, vbCr)
‘ 1番目の要素を現在のセルに書き戻す
targetTable.Cell(r, c).Range.Text = lines(0)
‘ 2番目以降の要素について、新しい行を下に追加して流し込む
Dim currentRowIndex As Long
currentRowIndex = r
For i = 1 To UBound(lines)
‘ 空行でなければ（あるいは空行も許容する場合はそのまま）処理
If Trim(lines(i)) <> “” Then
‘ 現在の行の下に新しい行を挿入
Set newRow = targetTable.Rows.Add(targetTable.Rows(currentRowIndex))
‘ 2列目のセルに分割したテキストを流し込む
newRow.Cells(c).Range.Text = lines(i)
‘ 挿入した分、インデックスの基準をずらす
currentRowIndex = currentRowIndex + 1
End If
Next i
End If
End If
Next r
MsgBox “表の再構成が完了しました！”, vbInformation
End Sub
—
コードの急所とエンジニアの知見
このコードがなぜ美しく、そして堅牢（ロバスト）なのか、プロの視点から3つのポイントを解説します。
1. セル末尾の「見えない文字」のトラップ
Wordのセル範囲（Range）からテキストを取得すると、文字列の最後に必ずセル終端マーカー（Unicodeの `7` 番の文字）と段落記号が含まれます。
初心者はここで「あれ？文字数が合わない」「変な記号が残る」とパニックになります。
今回のコードにある `Left(cellText, Len(cellText) – 2)` という処理は、このWord特有の余計な末尾2文字を削ぎ落とすためのプロの常套手段です。これを忘れると、分割処理がバグります。
2. 逆順ループ（`Step -1`）の哲学
前述もしましたが、上から下にループしながら行を増やすと、Wordは「今どこを処理しているんだっけ？」と迷子になり、存在しない行を参照して実行時エラー（インデックスが範囲を超えています）を引き起こします。
「データを追加・削除するコレクションやテーブルは、必ず末尾から処理する」。これはWord VBAだけでなく、Excel VBAや.NETのプログラミングにおいても一生モノの鉄則です。
3. `Range.Text` による高速な値の流し込み
セルに文字を入れる際、わざわざ `Selection.TypeText` のように画面をチラつかせるコードを書くのは素人のやることです。
`targetTable.Cell(r, c).Range.Text = “値”` と記述することで、Wordの画面描画（UI）をバイパスし、メモリ上で直接高速に書き換えることができます。マクロの実行スピードが何倍も変わってきます。
—
まとめ：ここをクリアすれば、Word VBAは怖くない！
今回は、セル内の改行を判定して行をダイナミックに再構成する、実務直結のテクニックを解説しました。
- Wordの表は「下から上へ」逆順で攻める。
- セル特有の末尾文字（終端マーカー）の存在を忘れない。
- `Selection` に頼らず、`Range` オブジェクトをダイレクトに操作して爆速化する。
この3つを自分のものにしたあなたなら、もう「マクロの記録の奴隷」ではありません。どんなに複雑で汚いフォーマットのWord文書が送られてきても、鮮やかに自動化して定時で帰ることができるはずです。
業務自動化の道を、これからも自信を持って進んでいきましょう。あなたのエンジニアライフを応援しています！
