在 Excel 中每隔一行插入空白行 – 4 种方法

在 Excel 中，插入空白行对大多数用户来说是一项简单的任务。然而，在某些情况下，你可能需要在表格的每一行之间插入一个空白行，如下方截图所示。这可以提高可读性并使数据更易于浏览。本文将介绍一些快速便捷的方法，用于在 Excel 中每隔一行或第 n 行插入空白行。

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

• 通过“插入”功能
• 通过辅助列和排序功能
• 通过 Kutools for Excel - 仅需几次点击
• 通过 VBA 代码

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

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

如果你的数据量较少，可以通过按住 Ctrl 键手动选择每一行，然后使用“插入”功能在每行之前插入空白行。以下是具体操作步骤：

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

1. 单击行号以选择第一行。
2. 接下来，按住键盘上的 Ctrl 键，并逐一单击要选择的行号。
   

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

选中所有需要插入空白行的行后，右键单击其中一个选中的行号，并从上下文菜单中选择“插入”，请参见截图：

结果：

现在，每个选定行之前都会插入一个空白行。请参见截图：

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

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

步骤 1：创建辅助列

1. 在数据旁边创建一个辅助列。例如，我有一个 A1:D10 的数据区域，我会在单元格 E1 中输入文本“辅助列”，请参见截图：
   
2. 然后，分别在单元格 E2 和 E3 中输入 1 和 2。
3. 选中单元格 E2 和 E3，然后向下拖动填充柄至最后一个数据单元格，将会填充一系列递增数字，如下图所示：
   
4. 现在，复制这些序列号并将它们粘贴到 E10 单元格下方。请参见截图：
   

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

1. 现在，选中辅助列中的数据，然后点击“数据”>“排序”，请参见截图：
   
2. 在弹出的“排序警告”对话框中，请选择“扩展选定区域”选项，然后点击“排序”按钮，请参见截图：
   
3. 在随后出现的“排序”对话框中，从“主要关键字”下拉列表中选择“辅助列”，并保持其他选项不变。然后，点击“确定”关闭对话框。请参见截图：
   

结果：

现在，数据将根据辅助列中的值进行排序，并且每隔一行插入了一个空白行。

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

有时，当你想在数据范围内以固定间隔插入特定数量的空白行时，比如每隔两行或多行数据插入一个或多个空白行，前面提到的方法可能会显得复杂且难以掌握。为了解决这个问题，Kutools for Excel 的“插入空白行和列”功能可以帮助你通过几次点击轻松完成这项任务。

下载并安装 Kutools for Excel 后，点击“Kutools”>“插入”>“插入空白行和列”以打开“插入空白行和列”对话框。

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

结果：

现在，每隔两行就会在数据中插入一个空白行，请参见截图：

通过 VBA 代码每隔一行或第 n 行插入空白行

如果你对 VBA 代码感兴趣，这里我们将提供一段代码，用于在固定间隔内插入特定数量的空白行。请按照以下步骤操作：

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

1. 在 Excel 中按住 ALT + F11 键，打开“Microsoft Visual Basic for Applications”窗口。
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

步骤 2：执行代码以获取结果

1. 粘贴这段代码后，请按 F5 键运行此代码。在弹出框中，选择要插入空白行的数据范围。然后，点击“确定”，请参见截图：
   
2. 另一个提示框将弹出，请输入行间隔的数量。然后，点击“确定”，请参见截图：
   
3. 在接下来的提示框中，请输入要插入的空白行数量。然后，点击“确定”，请参见截图：
   

结果：

现在，特定数量的空白行已按照你指定的固定间隔插入到现有数据中，请参见截图：

这就是如何在数据范围内每隔一行或第 n 行插入空白行的方法。如果你对探索更多 Excel 技巧感兴趣，我们的网站提供了数千个教程。感谢阅读，我们期待未来为你提供更多有用的信息！

相关文章：