在 Excel 中每隔一行插入空白行 – 4 种方法 -英雄云拓展知识分享

在 Excel 中，插入空白行对大多数用户来讲是一项简单的任务。 但是，通常，在某些情况下，您可能需要在表中的每一个现有行之间插入一个空白行，以下面的屏幕截图所示。 这有助于提高可读性并使数据更容易于导航。 在本文中，我们将讨论一些在 Excel 中每隔一行或第 n 行插入空白行的快捷且方便的技能。

在 Excel 中每隔一行或第 n 行插入空白行

• 使用插入功能
• 具有辅助列和排序功能
• 只要点击几下 TOOLS
• 使用 VBA 代码

视频：在 Excel 中每隔一行插入空白行

使用插入功能每隔一行插入空白行

如果数据量较少，可以经过按 Ctrl 键手动选择每行，然后使用插入功能在每一个现有行之前插入一个空白行。 您可以这样做：

步骤 1：按住 Ctrl 键手动逐一选择行

1. 经过单击行号选择第一行。
2. 接下来，按住 按Ctrl 键，然后逐一单击要选择的行号。
   

步骤 2：从右键菜单当选择“插入”选项

选择要插入空白行的所有行后，右键单击选定的行号之一，然后选择 插入 从上下文菜单中，查看屏幕截图：

结果：

现在，将在每一个选定行之前插入一个空白行。

使用辅助列和排序功能每隔一行或第 n 行插入空白行

上述方法适用于工作表中的小数据。 但是，如果您要处理大量数据，最好创建一个辅助列，然后利用排序功能在 Excel 中每隔一行或第 n 行插入空白行。 请依照以下步骤来实现此目的：

第一步：创建辅助列

1. 创建与您的数据相邻的辅助列。 举例来看，我有一个数据范围A1:D10，我将输入文本“助手专栏” 在单元格 E1 中，请参见屏幕截图：
   
2. 然后，在单元格 E1 和 E2 中分别输入 2 和 3。
3. 选择单元格 E2 和 E3，然后将填充柄向下拖动到最后一个数据单元格，将填充递增数字的列表，以下图所示：
   
4. 现在，复制序列号并将其粘贴到最后一个单元格 E10 的下方。
   

步骤 2：利用排序功能按辅助列对数据进行排序

1. 现在，选择 Helper 列中的数据，然后单击 数据 > 分类，请参见屏幕截图：
   
2. 在弹出的 排序正告 对话框，请选择 扩大选择 选项，然后单击 分类 按钮，请参见屏幕截图：
   
3. 在下面的 分类 对话框当选择 助手专栏 来自 排序 下拉列表作为关键列，其他选项保持不变。 然后，单击 OK 关闭对话框。
   

结果：

现在，数据将针对辅助列中的值进行排序，并在每隔一行以后插入一个空白行。

只需点击几下便可每隔一行或第 n 行插入空白行

有时，当您想要在数据范围内定期插入特定数量的空白行时，例如每两个或更多数据行后插入一个或多个空白行，之前的方法可能会很复杂且难以掌握。 为了快捷、轻松地解决这项工作， Excel的工具“ 插入空白行和列 该功能可以帮助您只需点击几下便可处理这项工作。

下载并安装后 Excel的工具点击此处成为Trail Hunter 库工具 > 插入 > 插入空白行和列 打开 插入空白行和列 对话框。

1. 选择要插入空白行的数据范围。
2. 选择 空白行 来自 插入类型 部份。
3. 然后，将数字指定到 间隔 及 行 针对需要添加文本框。 （在这里，我将在两行以后插入一个空白行，因此，这种情况下，我输入 2 及 1 到 间隔 及 行 分别装箱。）
4. 最后点击 OK 关闭对话框。
   

结果：

现在，每两行后将插入一个空白行，请参见屏幕截图：

使用 VBA 代码每隔一行或第 n 行插入空白行

如果您对 VBA 代码感兴趣，这里我们将提供一个代码，用于以固定间隔向数据中插入特定数量的空白行。 请依照以下步骤进行：

步骤1：打开VBA模块编辑器并复制代码

1. 按住 ALT + F11 键，然后打开 Microsoft Visual Basic for Applications 窗口。
2. 点击 插入 > 模块，然后将以下代码粘贴到 模块 窗口。
   VBA代码：以固定间隔向数据中插入特定数量的空白行

   Sub InsertRowsAtIntervals()
   '
   Dim Rng As Range
   Dim xInterval As Integer
   Dim xRows As Integer
   Dim xRowsCount As Integer
   Dim xNum1 As Integer
   Dim xNum2 As Integer
   Dim WorkRng As Range
   Dim xWs As Worksheet
   xTitleId = "TOOL"
   Set WorkRng = Application.Selection
   Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
   xRowsCount = WorkRng.Rows.Count
   xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
   xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
   xNum1 = WorkRng.Row + xInterval
   xNum2 = xRows + xInterval
   Set xWs = WorkRng.Parent
   For i = 1 To Int(xRowsCount / xInterval)
   xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
   Application.Selection.EntireRow.Insert
   xNum1 = xNum1 + xNum2
   Next
   End Sub

第2步：履行代码得到结果

1. 粘贴此代码后，请按 F5 键来运行此代码。 在提示框当选择要插入空白行的数据范围。 然后，单击 OK，
   
2. 会弹出另外一个提示框，请输入行间隔数。 然后，单击 OK，请参见屏幕截图：
   
3. 在下面的提示框中，请输入您要插入的空白行数。 然后，单击 OK，请参见屏幕截图：
   

结果：

现在，特定数量的空白即将依照您指定的定期间隔插入到现有数据中，请参见屏幕截图：

这是在数据区域中插入每隔一行或第 n 行的方法。 如果您有兴趣探索更多 Excel 提示和技能，我们的网站提供数千个教程，请单击 这里 访问它们。 感谢您的浏览，我们期待在不久的将来为您提供更多有用的信息！

相干文章：