Word 文書で作業する場合、表に行と列を追加するのは一般的なタスクであり、情報をより効果的に整理して表示するのに役立ちます。このガイドでは、Word の表に行や列を迅速かつ効率的に追加する方法について詳しく説明します。

選択範囲の上/下に行をテーブルに追加

テーブルの選択範囲の左側または右側に列を追加します。

VBA コードを使用してテーブルに複数の行を追加する

行または列を削除する

選択範囲の上/下に行をテーブルに追加

追加データを収容するために選択した行の上または下に行を追加するには、このセクションでは、テーブルに行を追加する 2 つの簡単な方法 ([レイアウト] タブを使用する方法と、右クリックのコンテキスト メニューを使用する方法) について説明します。どちらのアプローチも効率的であり、より直感的に感じられる方法に基づいて選択できます。

ステップ 1: 上または下に新しい行を挿入する行を選択します

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

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

• 方法1: 行を選択した状態で、 レイアウト タブを選択 上に挿入 or 下に挿入 セクションに 行と列 グループ。 スクリーンショットを参照してください：
  
• 方法2: 選択範囲を右クリックして、 インセット > 上に行を挿入 / 下に行を挿入、スクリーンショットを参照してください：
  

結果：

これにより、選択した行の上下に、選択したのと同じ数の行が挿入されます。スクリーンショットを参照してください:

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

テーブルの選択範囲の左側または右側に列を追加します。

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

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

• 新しい列を追加する列内のセルまたは列全体をクリックします。
• 複数の新しい列を挿入するには、追加する列の数を選択します。たとえば、2 つの新しい列を挿入する場合は、最初にテーブルで 2 つの列を選択する必要があります。
  

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

• 方法1: 列を選択した状態で、 レイアウト タブを選択 左に挿入 or 右挿入 セクションに 行と列 グループ。 スクリーンショットを参照してください：
  
• 方法2: 選択範囲を右クリックして、 インセット > 列を左側に挿入 / 列を右側に挿入、スクリーンショットを参照してください：
  

結果：

これにより、選択した列の左側または右側に、選択したのと同じ数の列が挿入されます。スクリーンショットを参照してください:

• 選択範囲の左側に列を挿入します
  
• 選択範囲の右側に列を挿入します
  

VBA コードを使用してテーブルに複数の行を追加する

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

ステップ 1: 上または下に新しい行を挿入する行を選択します

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

手順 2: VBA モジュール エディターを開いてコードをコピーする

1. イベント Altキー+ F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。
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 キーを押します

イベント バックスペース ボード上のキーを押すと、選択した行または列がすぐに削除されます。

関連記事：