快速在Word文檔的表格中添加行或列

在處理Word文檔時，向表格中添加行和列是一項常見任務，可以幫助您更有效地組織和呈現信息。本指南詳細介紹了如何快速高效地在Word中的表格添加行或列。

在選定位置的上方或下方添加行到表格

在選定位置的左側或右側添加列到表格

使用VBA代碼向表格添加多行

刪除行或列

在選定位置的上方或下方添加行到表格

為了在選定行的上方或下方添加行以容納額外數據，本節將指導您通過兩種簡單的方法來為表格添加行：使用「佈局」標籤和使用右鍵快捷菜單。這兩種方法都很高效，您可以根據哪一種更直觀來選擇使用。

步驟1：選擇要插入新行的上方或下方的行

• 點擊您希望添加新行的某一行中的任意單元格或整行。
• 若要插入多個新行，請選擇您計劃添加的行數。例如，如果您想插入三行新行，則應先在表格中選擇三行。
  

步驟2：應用「插入上方」/「插入下方」功能

• 方法1：選擇行後，轉到「佈局」標籤，在「行與列」組中選擇「 插入上方」或「插入下方」。參見截圖：
  
• 方法2：右鍵單擊選定區域，然後選擇「插入」> 「在上方插入行」/「在下方插入行」，參見截圖：
  

結果：

這將在選定位置的上方或下方插入與您選擇的相同數量的行。參見截圖：

• 在選定位置上方插入行
  
• 在選定位置之後插入行
  

在選定位置的左側或右側添加列到表格

本節詳細介紹了如何在Word表格現有選定位置的左側或右側添加列。我們將介紹兩種主要方法：使用「佈局」標籤和使用右鍵快捷菜單。

步驟1：選擇要插入新列的左側或右側的列

• 點擊您希望添加新列的某一列中的任意單元格或整列。
• 若要插入多個新列，請選擇您計劃添加的列數。例如，如果您想插入兩列新列，則應先在表格中選擇兩列。
  

步驟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鍵運行代碼。在彈出的對話框中，請輸入您要插入的行數，然後點擊「確定」按鈕。

結果：

該代碼將一次性在指定位置（上方或下方）添加指定數量的行到您的表格中。

刪除行或列

如果想從Word文檔的表格中刪除行或列，這裡我將介紹一些簡單的技巧。

步驟1：選擇表格中的整行或整列

• 選擇您要刪除的整行，將鼠標移至表格左邊距，即行首單元格外。光標會變成指向右側的箭頭。當箭頭出現時點擊即可選擇整行。
  
• 若要選擇一列，將鼠標指針移到所需列的第一個單元格上方，直到指針變為向下箭頭符號。然後點擊以選擇整列。
  

步驟2：按下Backspace鍵

按下鍵盤上的Backspace鍵即可立即刪除所選的行或列。

相關文章：