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キーを押すだけで、選択した行または列を即座に削除できます。

関連記事：