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

Author: Xiaoyang Last Modified: 2025-05-12

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

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

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

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

刪除行或列

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

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

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

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

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

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

結果：

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

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

? 提示：

格式規則：
當在選定區域上方添加新行時，格式將匹配選定的第一行。相反，當在下方添加行時，格式將反映選定行中最後一行的樣式。
添加行的快捷方式：
若要在表格底部快速添加新行，可以使用Tab鍵。只需在最後一行的最後一個單元格中按下 Tab鍵，就會自動創建一個新行。

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

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

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

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

步驟2：應用「插入左側」/「插入右側」功能

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

結果：

這將在選定位置的左側或右側插入與您選擇的相同數量的列。參見截圖：

在選定位置左側插入列
在選定位置右側插入列

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

當您需要向Word表格添加比目前更多的行時，手動操作可能會很繁瑣。本文將向您展示如何使用VBA代碼高效快速地添加行。

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

點擊您希望添加多行的某一行中的任意單元格或整行。

步驟2：打開VBA模塊編輯器並複製代碼

按Alt + F11鍵打開Microsoft Visual Basic for Applications窗口。
在打開的窗口中，點擊「插入」>「模塊」以創建一個新的空白模塊。

然後，將以下任一代碼複製並粘貼到空白模塊中。
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鍵運行代碼。在彈出的對話框中，請輸入您要插入的行數，然後點擊「確定」按鈕。