快速向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 键立即移除所选的行或列。

相关文章：