【入門編】【初心者向け】Word表の行をコピーして末尾に追加し、前行の書式と数式を継承させる方法 – Word VBA解析バイブル

Word VBA

2026.11.07

「マクロの記録」の先へ。Word表の書式と数式を完璧に継承して行を追加する極意

「マクロの記録」の先へ。Word表の書式と数式を完璧に継承して行を追加する極意

こんにちは。業務自動化の世界へようこそ。

Word VBAを学び始めたばかりの皆さんは、まず「マクロの記録」機能に助けられていることでしょう。「ボタンを押したら表に一行増える」……そんな単純な動作なら、記録機能で十分かもしれません。

しかし、実務の現場ではそうはいきません。
「新しく追加した行だけ、背景色が消えている」
「せっかく設定した計算式（フィールド）が、新しい行には反映されていない」
「罫線の太さがバラバラになってしまう」

そんな壁にぶつかったとき、あなたは気づくはずです。「単に『行を追加する』のではなく、『前行の魂（スタイルや数式）をコピーして、新しい命を吹き込む』必要があるのだ」と。

今日は、マクロの記録から脱却し、プロフェッショナルへの第一歩を踏み出すための「表の動的生成」のテクニックを伝授します。ここをクリアすれば、Word VBAの基本はバッチリですよ。

1. なぜ `Rows.Add` だけでは足りないのか？

Word VBAで表に行を追加する際、最も直感的なメソッドは `Rows.Add` です。

' 初心者がやりがちな、単なる行追加
ActiveDocument.Tables(1).Rows.Add

これは確かに新しい行を作ります。しかし、このメソッドが生成するのは、いわば「真っ白なキャンバス」です。
前行で設定した「セルの塗りつぶし」「フォントの色」「太い罫線」、そして何より重要な「計算フィールド（数式）」は一切引き継がれません。

実務で求められるのは、「直前の行と同じ見た目で、中身の数値だけが空の状態の行」ですよね。これを実現するには、「コピー＆ペースト」という概念をコードの中で制御する必要があります。

2. 設計図：継承のプロセス

私たちがこれから実装するのは、以下の3ステップのプロセスです。

1. ターゲットの特定: 操作したい表と、コピー元となる「一番最後の行」を特定する。
2. コピーの実行: その行の「Range（範囲）」をクリップボードにコピーする。
3. 追加と流し込み: 新しい行を作成し、そこにコピーした内容を貼り付ける。
4. データの初期化（重要！）: 書式は残しつつ、コピーされてしまった「前の行の文字や数値」だけを消去する。

ここがポイントです。「全部コピーして、中身だけ消す」。これが、書式と数式を最も確実に継承させるプロのテクニックです。

3. 実践：書式と数式を継承する黄金のコード

それでは、実際に動くコードを見てみましょう。
以下のコードは、文書内の1番目の表の末尾に、前行のスタイルを完全に引き継いだ新しい行を追加するものです。

Sub AddRowWithInheritance()
    Dim targetTable As Table
    Dim lastRow As Row
    Dim newRow As Row
    
    ' 1. エラーハンドリング：表が存在しない場合に備える
    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "文書内に表が見つかりません。", vbExclamation
        Exit Sub
    End If

    ' 2. 対象となる表を設定（ここでは1番目の表）
    Set targetTable = ActiveDocument.Tables(1)
    
    ' 3. 現在の「最後の行」を特定する
    ' targetTable.Rows.Count は現在の行数を返します
    Set lastRow = targetTable.Rows(targetTable.Rows.Count)
    
    ' 4. 最後の行の「範囲(Range)」をコピーする
    ' Rowオブジェクトそのものではなく、その中のRangeをコピーするのがコツです
    lastRow.Range.Copy
    
    ' 5. 新しい行を追加する
    Set newRow = targetTable.Rows.Add
    
    ' 6. 追加した行に、コピーした内容を貼り付ける
    ' これにより、書式、罫線、数式（フィールド）が全て継承されます
    newRow.Range.Paste
    
    ' 7. 【重要】中身のテキストや数値だけをクリアする
    ' 書式（Style）を保持したまま、文字情報だけを消去するために
    ' 各セルをループして、テキストを空にします
    Dim c As Cell
    For Each c In newRow.Range.Cells
        ' セル内のテキストを取得（末尾の制御文字を除いてクリア）
        ' Wordのセルには見えない改行記号が含まれるため、直接テキストを消す手法をとります
        c.Range.Text = ""
    Next c
    
    ' 完了通知（デバッグ用）
    Debug.Print "行の追加と書式の継承が完了しました。"
End Sub

4. 伝説のエンジニアによる「ここが落とし穴」解説

このコードを動かす際、初心者が陥りやすい、あるいは中級者が躓くポイントを解説しておきましょう。

① `Row` と `Range` の違いを理解せよ

コードの中で `lastRow.Range.Copy` と書いていますね。ここが最大の肝です。
`Row` オブジェクトは「行そのもの」という概念的な存在ですが、`Range` は「そこにある物理的な範囲」を指します。コピー＆ペーストという操作は、常に「範囲（Range）」に対して行うものだと覚えておいてください。

② セルの中身を消すときの「見えない文字」問題

`c.Range.Text = “”` と書いたとき、Wordのセルには必ず「セル区切り記号」という特殊な文字が含まれています。
実は、単純に `c.Range.Text = “”` としても、Wordの挙動によっては書式が崩れることがあります。もし、より厳密に（例えば、セル内の特定の書式を絶対に壊したくない場合）制御したいなら、`c.Range.Text = “”` の代わりに、「セル内のテキスト範囲だけを特定して消す」という高度なテクニックもありますが、まずはこの基本形をマスターしましょう。

③ 数式（フィールド）の扱い

Wordの表にある `=SUM(ABOVE)` のような数式は、実は「フィールドコード」という特殊な状態です。`Paste` を使うことで、この「数式の構造」そのものがコピーされます。もし `Rows.Add` だけで行を追加してしまうと、この構造がコピーされないため、新しい行で計算が止まってしまうのです。

5. まとめ：次の一歩へ

今回の手法をマスターすると、以下のようなことが可能になります。

請求書作成の自動化: 行が増えても、合計欄の数式が常に正しい位置に。
報告書の動的生成: 決まったフォーマットの表を、データ量に合わせて自在に拡張。

「マクロの記録」は、いわば「答えを写しているだけ」の状態です。
今回のように、「オブジェクトの構造（Table → Row → Cell → Range）を理解し、操作の意図をコードに落とし込む」ことができれば、あなたはもう、単なるユーザーではなく「開発者」の入り口に立っています。

一歩ずつ、着実に。
コードが思い通りに動いた瞬間の喜びを、ぜひ大切にしてください。

応援していますよ。