Word文書内の表に迅速に行または列を追加する

Word文書で作業している際、表に行や列を追加することは、情報を効果的に整理し提示するのに役立つ一般的な作業です。このガイドでは、Wordの表に行または列を迅速かつ効率的に追加するための詳細な手順を提供します。

選択範囲の上または下に行を追加する

選択範囲の左または右に列を追加する

VBAコードを使用して複数行を表に追加する

行または列を削除する

選択範囲の上または下に行を追加する

追加のデータに対応するために、選択した行の上または下に行を追加したい場合、このセクションでは、レイアウトタブを使用する方法と右クリックコンテキストメニューを使用する方法という、2つの簡単な方法で表に行を追加する手順を説明します。どちらの方法も効率的で、より直感的な方を選んでください。

ステップ 1: 新しい行を挿入したい行を選択する

• 新しい行を追加したい行の任意のセルまたは行全体をクリックします。
• 複数の新しい行を挿入するには、追加する行数を選択します。例えば、3つの新しい行を挿入したい場合は、まず表内で3つの行を選択する必要があります。
  

ステップ 2: 「上に挿入」/「下に挿入」機能を適用する

• 方法 1: 選択した行がある状態で、「 レイアウト 」タブに移動し、「 上に挿入 」または「 下に挿入 」を「 行と列 」グループで選択します。スクリーンショットをご覧ください：
  
• 方法 2: 選択範囲を右クリックし、「 挿入 > 上に行を挿入 / 下に行を挿入」を選択します。スクリーンショットをご覧ください：
  

結果：

これにより、選択した行と同じ数の行が、選択範囲の上または下に挿入されます。スクリーンショットをご覧ください：

• 選択範囲の上に行を挿入する
  
• 選択範囲の後に挿入する
  

選択範囲の左または右に列を追加する

このセクションでは、Wordの表の既存の選択範囲の左または右に列を追加する方法について詳しく説明します。ここでは、主に2つの方法を取り上げます：レイアウトタブを使用する方法と右クリックコンテキストメニューを使用する方法です。

ステップ 1: 新しい列を左または右に挿入したい列を選択する

• 新しい列を追加したい列の任意のセルまたは列全体をクリックします。
• 複数の新しい列を挿入するには、追加する列数を選択します。例えば、2つの新しい列を挿入したい場合は、まず表内で2つの列を選択する必要があります。
  

ステップ 2: 「左に挿入」/「右に挿入」機能を適用する

• 方法 1: 選択した列がある状態で、「 レイアウト 」タブに移動し、「 左に挿入 」または「 右に挿入 」を「 行と列 」グループで選択します。スクリーンショットをご覧ください：
  
• 方法 2: 選択範囲を右クリックし、「 挿入 > 左に列を挿入 / 右に列を挿入」を選択します。スクリーンショットをご覧ください：
  

結果：

これにより、選択した列と同じ数の列が、選択範囲の左または右に挿入されます。スクリーンショットをご覧ください：

• 選択範囲の左に列を挿入する
  
• 選択範囲の右に列を挿入する
  

VBAコードを使用して複数行を表に追加する

現在よりも多くの行をWordの表に追加する必要がある場合、手動での操作は面倒になることがあります。この記事では、VBAコードを使用して効率的かつ迅速に行を追加する方法をご紹介します。

ステップ 1: 新しい行を挿入したい行を選択する

複数行を追加したい行の任意のセルまたは行全体をクリックします。

ステップ 2: VBAモジュールエディターを開き、コードをコピーする

1. Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを開きます。
2. 開いたウィンドウで、挿入 > モジュール をクリックして新しい空白のモジュールを作成します。
3. 次に、以下のいずれかのコードを空白のモジュールにコピーして貼り付けます。
   VBAコード: 選択した行の上に複数行を追加する

   Sub Addrowsabove()
   'Updateby Extendoffice
       Dim lngIndex As Long
       Dim lngRowsToAdd As Long
       Dim lngPosit As Long
       Dim oTbl As Word.Table
       If Selection.Information(wdWithInTable) Then
           lngRowsToAdd = InputBox("How many rows?", "Kutools for Word", 1)
           Set oTbl = Selection.Tables(1)
           lngPosit = Selection.Rows(1).Range.Information(wdEndOfRangeRowNumber)
           For lngIndex = 1 To lngRowsToAdd
               oTbl.Rows.Add oTbl.Rows(lngPosit)
           Next lngIndex
       End If
   End Sub

   
   VBAコード: 選択した行の下に複数行を追加する

   Sub Addrowsbelow()
   'Updateby Extendoffice
       Dim lngIndex As Long
       Dim lngRowsToAdd As Long
       Dim lngRowPosition As Long
       Dim oTbl As Word.Table
       If Selection.Information(wdWithInTable) Then
           lngRowsToAdd = InputBox("How many rows?", "Kutools for Word", 1)
           Set oTbl = Selection.Tables(1)
           lngRowPosition = Selection.Rows(1).Index
           For lngIndex = 1 To lngRowsToAdd
               oTbl.Rows.Add oTbl.Rows(lngRowPosition + lngIndex)
           Next lngIndex
       End If
   End Sub

ステップ 3: コードを実行する

次に、「 F5 」キーを押してコードを実行します。ポップアップダイアログボックスで、挿入したい行数を入力し、「 OK 」ボタンをクリックします。

結果：

このコードにより、指定された数の行が一度に表の指定位置（上または下）に追加されます。

行または列を削除する

Word文書の表から行または列を削除したい場合、いくつかの簡単な方法を紹介します。

ステップ 1: 表内の行または列全体を選択する

• 削除したい行全体を選択するには、カーソルを行の左余白に移動します。行の最初のセルの外側です。カーソルが右向き矢印に変わります。矢印が表示されたらクリックして行全体を選択します。
  
• 列を選択するには、目的の列の最初のセルの上にマウスポインタを移動し、ポインタが下向き矢印シンボルに変わるまで待ちます。その後、クリックして列全体を選択します。
  

ステップ 2: Backspaceキーを押す

Backspaceキーを押して、選択した行または列をすぐに削除します。

関連記事：