快速添加多行或向表格添加列（Word 文档）

作者小阳修改日期2024-08-30

在 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 键即可运行代码。在弹出的对话框中，输入您要插入的设置行数，然后点击确定按钮。