跳至主要内容

如何在Excel中以固定间隔插入特定数量的行?

Author: Xiaoyang Last Modified: 2025-05-07

在Excel工作表中,您可以使用“插入”功能在现有行之间插入一个空白行。但是,如果您有一个较大的数据范围,并且需要每隔三行或第n行插入两行空白行,您该如何快速便捷地完成此任务呢?


使用VBA代码以固定间隔向数据范围插入特定数量的空白行

以下VBA代码可以帮助您在现有数据中的每隔第n行后插入特定数量的行。请按照以下步骤操作:

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

3. 粘贴完代码后,请按 F5 键运行此代码,会弹出一个提示框,提醒您选择要插入空白行的数据区域,见截图:

select the data range

4. 单击“确定”按钮,另一个提示框会弹出,请输入行间隔的数量,见截图:

 enter the number of row intervals

5. 继续单击“确定”按钮,在接下来弹出的提示框中,请输入要插入的空白行数,见截图:

enter the number of blank rows to insert

6. 然后单击“ 确定”,空白行已按固定间隔插入到现有数据中,见截图:

original data arrow right the blank rows are inserted into the existing data at a regular intervals

使用VBA代码根据单元格值以固定间隔向数据范围插入特定数量的空白行

有时,您可能需要根据一系列单元格值插入空白行,在这种情况下,以下VBA代码可以帮到您,请按照以下步骤操作:

1. 在Excel中按住 ALT + F11 键,打开 Microsoft Visual Basic for Applications 窗口。

2. 单击“插入” > “模块”,然后将以下代码粘贴到模块窗口中。

VBA代码:根据一系列数字插入特定数量的空白行:

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. 粘贴完代码后,按 F5 键运行此代码,在弹出的对话框中,选择要基于其插入空白行的数字列表,见截图:

select the list of numbers to insert blank rows based on

4. 然后,单击“确定”,您将得到如下截图所示的结果:

original data arrow right blank rows are inserted based on the cell values

通过便捷功能以固定间隔向数据范围插入特定数量的空白行

如果您不熟悉上述VBA代码,Kutools for Excel 也可以帮助您,它的“插入空白行和列”功能可以快速轻松地以固定间隔向现有数据插入特定数量的行或列。

Kutools for Excel 提供了超过 300 种高级功能,简化复杂任务,提升创造力与效率。 通过集成 AI 能力,Kutools 能够精准自动执行任务,让数据管理变得轻松简单。Kutools for Excel 的详细信息...         免费试用...

安装 Kutools for Excel 后,请按照以下步骤操作:

1. 选择要在其中以间隔插入空白行的数据范围。

2. 单击 Kutools > 插入 > 插入空白行和列,见截图:

click Insert Blank Rows & Columns feature of kutools

3. 在“插入空白行和列”对话框中,从“插入类型”中选择“空白行”选项,然后指定要使用的间隔数和空白行数,见截图:

specify the options in the dialog box

4. 然后单击“确定”按钮,空白行已按特定间隔插入到选定范围内,见截图:

original data arrow right  blank rows are inserted into the selected range at a specific interval

立即下载并免费试用 Kutools for Excel!


使用VBA代码根据特定数字多次复制并插入行

假设您有一组数据,现在您想根据一系列数字将每一行复制并粘贴多次到下一行,如以下截图所示。如何在Excel工作表中解决此任务?

original data arrow right Copy and insert rows multiple times based on specific numbers

为了解决这个问题,我将为您介绍一个有用的代码,请按照以下步骤操作:

1. 在Excel中按住 ALT + F11 键,打开 Microsoft Visual Basic for Applications 窗口。

2. 单击“插入” > “模块”,然后将以下代码粘贴到模块窗口中。

VBA代码:根据特定数字多次复制并插入行:

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

3. 粘贴完代码后,按 F5 键运行此代码,在弹出的对话框中,选择要基于其复制并插入数据行的数字列表,见截图:

select the list of numbers to copy and insert the data rows based on

4. 然后,单击“确定”按钮,特定数量的行已复制并粘贴到每个原始行下方,见截图:

origianl data arrow right the specific number of  rows are copy and paste under each original row

通过强大功能根据特定数字多次复制并插入行

如果您有 Kutools for Excel,使用其“根据单元格值复制行/列”功能,您可以根据数字列表快速轻松地插入行或列。

Kutools for Excel 提供了超过 300 种高级功能,简化复杂任务,提升创造力与效率。 通过集成 AI 能力,Kutools 能够精准自动执行任务,让数据管理变得轻松简单。Kutools for Excel 的详细信息...         免费试用...

安装 Kutools for Excel 后,请按照以下步骤操作:

1. 单击 Kutools > 插入 > 根据单元格值复制行/列,见截图:

click Duplicate Rows / Columns based on cell value feature of kutools

2. 在“复制并插入行和列”对话框中,在“类型”部分选择“复制并插入行”选项,然后选择要复制的数据范围,并指定要基于其复制行的数值列表,见截图:

set options in the dialog box

4. 然后,单击“确定”或“应用”按钮,您将得到所需的结果:

original data arrow right the specific number of  rows are copy and paste under each original row

立即下载并免费试用 Kutools for Excel!

更多相关文章:

  • 多次复制并插入行或将行复制X次
  • 在日常工作中,您是否尝试过复制一行或多行,然后在工作表中的当前数据行下方多次插入?例如,我有一组单元格,现在我想复制每一行并将它们粘贴三次到下一行,如以下截图所示。如何在Excel中处理此任务?
  • 当Excel中的值发生变化时插入空白行
  • 假设您有一组数据,现在您希望在值变化时在数据之间插入空白行,以便将一列中连续相同的值分开,如以下截图所示。本文将为您介绍一些技巧来解决此问题。
  • 根据条件从多个工作表复制行到新工作表
  • 假设您有一个包含三个工作表的工作簿,这些工作表具有相同的格式,如以下截图所示。现在,您希望将这些工作表中C列包含文本“已完成”的所有行复制到一个新的工作表中。如何快速轻松地解决此问题,而无需手动逐个复制和粘贴?

最佳办公效率工具

🤖 Kutools AI 助手:基于智能执行生成代码创建自定义公式分析数据并生成图表调用 Kutools 函数等功能,彻底改变数据分析方式…
热门功能查找、高亮或标记重复项 | 删除空行 | 合并不丢失数据的列或单元格 | 四舍五入 ...
高级 LOOKUP多条件 VLookup | 多值 VLookup | 多表查找 | 模糊查找 ....
高级下拉列表快速创建下拉列表 | 从属下拉列表 | 多选下拉列表 ....
列管理器添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域和列 ...
精选功能网格聚焦 | 设计视图 | 增强编辑栏 | 工作簿与工作表管理器 | 资源库(自动文本) | 日期提取 | 合并数据 | 加密/解密单元格 | 按列表发送电子邮件 | 超级筛选 | 特殊筛选(筛选粗体/斜体/删除线...)...
排名前 15 的工具集12 种文本 工具添加文本删除特定字符等) | 50 多 种图表 类型甘特图等) | 40 多种实用 公式基于生日计算年龄等) | 19 种插入 工具插入二维码根据路径插入图片等) | 12 种转换 工具小写金额转大写汇率转换等) | 7 种合并与分割 工具高级合并行分割单元格等) | 还有更多...

使用 Kutools for Excel 提升您的 Excel 技能,体验前所未有的高效。 Kutools for Excel 提供超过 300 种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能...


Office Tab 将标签式界面引入 Office,让您的工作更加轻松

  • 在 Word、Excel、PowerPoint 中启用标签式编辑和阅读
  • 在同一窗口的新标签页中打开和创建多个文档,而不是在新窗口中进行操作。
  • 将您的生产力提升 50%,每天为您减少数百次鼠标点击!