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

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

• 使用插入功能
• 具有辅助列和排序功能
• 只需点击几下 Kutools for Excel
• 使用 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 行插入空白行

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

下载并安装后 Kutools for Excel，单击“ 库工具 > 插页 > 插入空白行和列 打开 插入空白行和列 对话框。

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

结果：

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

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

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

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

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

   Sub InsertRowsAtIntervals()
   'Updateby Extendoffice
   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 = "KutoolsforExcel"
   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

第二步：执行代码得到结果

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

结果：

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

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

相关文章：