处理 Word 文档时，向表格添加行和列是一项常见任务，可以帮助您更有效地组织和呈现信息。本指南提供了有关如何快速有效地向 Word 表格添加行或列的详细步骤。

将所选内容上方/下方的行添加到表格中

将列添加到表格中所选内容的左侧或右侧

使用 VBA 代码向表添加多行

删除行或列

将所选内容上方/下方的行添加到表格中

要在选定行的上方或下方添加行以容纳其他数据，本节将指导您通过两种简单的方法将行添加到表中：使用“布局”选项卡和使用右键单击上下文菜单。这两种方法都很有效，可以根据您感觉更直观的方式进行选择。

第 1 步：选择要在上方或下方插入新行的行

• 单击要添加新行的行或整行中的任何单元格。
• 要插入多个新行，请选择您计划添加的行数。例如，如果要插入三个新行，则应首先在表中选择三行。
  

步骤 2：应用“在上方插入/在下方插入”功能

• 方法1：选择行后，转到 布局 标签，选择 在上方插入 or 在下方插入 ，在 行和列 组。 看截图：
  
• 方法2：右键单击所选内容，然后选择 插页 > 在上方插入行 / 在下面插入行，请参见屏幕截图：
  

结果：

这将在您选择的上方或下方插入与您选择的行数相同的行。看截图：

• 在所选内容上方插入行
  
• 在选择后插入行
  

将列添加到表格中所选内容的左侧或右侧

本节详细概述如何在 Word 表格中现有选择的左侧或右侧添加列。我们将介绍两种主要方法：使用“布局”选项卡和使用右键单击上下文菜单。

第 1 步：选择要在左侧或右侧插入新列的列

• 单击要添加新列的列或整个列中的任何单元格。
• 要插入多个新列，请选择您计划添加的列数。例如，如果要插入两个新列，则应首先在表中选择两列。
  

步骤 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键 键立即删除选定的行或列。

相关文章：