在 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 技巧，我们的网站提供数千篇实用教程，感谢您的阅读，期待未来为您带来更多高效解决方案！

相关文章：