「記録」の先へ。Word VBAで表を自在に操る、データ整形術の極意
こんにちは。業務自動化の現場で、数々の複雑なドキュメント生成をアーキテクチャ設計してきたエンジニアです。
マクロの記録機能を使って、「ボタンを押せば決まった動作をする」ものを作れるようになった。それは素晴らしい第一歩です。しかし、もしあなたが「セルの中に『田中,30,東京都』と入っているデータを、自動的に3つのセルに分割して並べ替えたい」といった、状況に応じて形を変えるような処理に直面したとき、マクロの記録だけでは太刀打ちできなくなります。
マクロの記録は「過去の動作の記録」であって、「論理的な判断」はできないからです。
今日は、一歩上のステージへ進むために、`Split`関数を使った文字列の分解と、Wordの表（Tableオブジェクト）の動的な操作を組み合わせた、実戦的なデータ整形術を伝授します。ここをマスターすれば、Word VBAの基本はバッチリですよ。
1. 本質的な課題：Wordの表は「Excelほど器用ではない」
まず、エンジニアとして知っておいてほしい重要な事実があります。
Excelは「セル」がデータ構造の主役ですが、Wordの表はあくまで「文書の一部」です。
Excelなら、配列を範囲に一気に流し込むようなスマートな操作が容易ですが、Wordの場合は「セル一つひとつ」に対して丁寧に、かつ慎重にアクセスする必要があります。特に「列を追加する」という操作は、表全体のレイアウトに影響を与えるため、やり方を間違えるとプログラムが迷走してしまいます。
今回のミッションはこれです。
「特定のセルにある『区切り文字（カンマなど）』で区切られた文字列を読み取り、それをバラバラにして、隣の新しい列へと展開する」
2. 武器となる技術：`Split`関数と「末尾文字」の罠
この処理の心臓部は `Split` 関数です。
Dim elements As Variant
elements = Split("田中,30,東京", ",")
' elements(0) は "田中"
' elements(1) は "30"
' elements(2) は "東京"これだけで、文字列を「配列」という扱いやすい形に分解できます。非常に強力です。
しかし、ここで初心者が必ずと言っていいほど陥る「伝説の罠」があります。
Wordのセルからテキストを取得するとき、`Range.Text` を使うと、セル特有の「末尾記号（End-of-Cell Marker）」が一緒に付いてきてしまうのです。
見た目は「田中」でも、プログラム内部では `田中[Chr(13) & Chr(7)]` という不可解なデータになっています。これを放置して `Split` すると、分割後のデータにゴミが混じり、後の処理でエラーを引き起こします。
「セルから値を取ったら、まずはゴミを取り除く」。これがプロの作法です。
3. 実装コード：動的なデータ展開マクロ
では、実際に動くコードを見てみましょう。
このコードは、表の1列目にある「カンマ区切りのデータ」を読み取り、必要な分だけ列を右へ追加しながら展開していく設計になっています。
Sub DynamicTableSplitter()
Dim tbl As Table
Dim i As Long
Dim rawText As String
Dim dataArray() As String
Dim targetCell As Cell
Dim colCount As Integer
Dim j As Integer
' 1. 文書内の最初の表を対象とする
If ActiveDocument.Tables.Count = 0 Then
MsgBox "表が見つかりません。", vbExclamation
Exit Sub
End If
Set tbl = ActiveDocument.Tables(1)
' 2. 行ごとにループ処理（見出し行を除外する場合は i = 2 から開始）
For i = 1 To tbl.Rows.Count
' 対象となるセル（ここでは1列目）を指定
Set targetCell = tbl.Cell(i, 1)
' 【重要】セルのテキストを取得し、末尾の制御文字を取り除く
rawText = CleanCellText(targetCell.Range.Text)
' 空白行ならスキップ
If rawText <> "" Then
' 3. Split関数でカンマ区切りを配列に分解
dataArray = Split(rawText, ",")
' 4. 分解されたデータの数に合わせて列が必要かチェックし、追加する
' ※既存の列数よりもデータ数が多い場合のみ列を追加
Do While tbl.Columns.Count < (1 + UBound(dataArray))
tbl.Columns.Add
Loop
' 5. 分解したデータを隣のセルへ流し込む
For j = 0 To UBound(dataArray)
' 1列目は元のデータなので、2列目以降（j+2列目）へ書き込み
tbl.Cell(i, j + 2).Range.Text = Trim(dataArray(j))
Next j
End If
Next i
MsgBox "データの整形が完了しました！", vbInformation
End Sub
''' <summary>
''' Wordのセル特有の制御文字を取り除くヘルパー関数
''' </summary>
Function CleanCellText(txt As String) As String
' Chr(13) はキャリッジリターン、Chr(7) はベル文字（セル末尾記号）
' これらを置換して取り除く
CleanCellText = Replace(Replace(txt, Chr(13), ""), Chr(7), "")
End Function4. アーキテクトの視点：コードの解説と設計思想
このコードが「ただの記録」と何が違うのか、その設計思想を解説します。
① ヘルパー関数による「関心の分離」
`CleanCellText` という関数を別に作りました。これは「セルのゴミを取り除く」という単一の責任を持たせています。メインの処理の中に `Replace(Replace(…))` と書くと、コードが読みづらくなり、後で修正する際にもミスが起きやすくなります。「一つの関数には一つの役割を」。これが保守性の高いコードを作るコツです。
② 動的な列追加のロジック
`Do While tbl.Columns.Count < (1 + UBound(dataArray))` の部分に注目してください。 いきなり「10列追加しろ」と命令するのではなく、「今ある列数」と「これから必要な列数」を比較し、足りない分だけを補充するという書き方をしています。これにより、データの数によって表の形が柔軟に変わる、真の「動的生成」が実現できます。
③ `Trim` によるデータのクレンジング
`Trim(dataArray(j))` を使うことで、`田中, 30, 東京` のようにカンマの後にスペースが入っていても、綺麗に `30` や `東京` として取り出せます。実務のデータは常に汚れているもの。それを前提に組むのがプロの仕事です。
5. 陥りやすいエラーと回避策
この処理を運用する上で、以下の点に注意してください。
- 結合されたセルの存在:
表の中に「セル結合」されている箇所があると、`tbl.Cell(i, j)` という指定はエラー（実行時エラー 5941）を吐きます。結合セルがある表を扱う場合は、事前に結合を解除するか、結合を考慮した複雑な判定ロジックが必要になります。
- 列の追加コスト:
非常に巨大な表（数百行・数十列）に対して、一行ごとに `Columns.Add` を繰り返すと、処理が劇的に重くなります。もしパフォーマンスが問題になった場合は、「あらかじめ最大列数分を一気に足しておく」という戦略に切り替えましょう。
最後に
いかがでしたでしょうか。
「マクロの記録」は、決まった手順をなぞるためのものです。
しかし、今回ご紹介したような「条件に応じて形を変える」ロジックこそが、VBAの真骨頂であり、あなたの業務を劇的に変える武器になります。
「データの中身を見て、構造を判断し、形を整える」
この思考プロセスが身につけば、Word VBAの基本はもうマスターしたも同然です。ぜひ、手元のデータでこのコードを試して、その感覚を掴んでみてください。
応援していますよ。次はもっと複雑な、オブジェクト指向的な設計の世界でお会いしましょう！
