如何在Excel中以固定间隔插入特定数量的行？-英雄云拓展知识分享

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

在Excel工作表中，可使用插入功能在现有行之间插入空白行。 但是，如果您有大量数据，并且需要在每第3个或第n行以后插入两个空白行，那幺如何快捷便捷地完成此工作？

• 使用VBA代码以固定的间隔将特定数量的空白行插入数据范围
• 使用VBA代码针对单元格值将特定数量的空白行插入数据范围
• 使用方便的功能以固定的间隔将特定数量的空白行插入数据范围
• 使用VBA代码针对特定编号屡次复制和插入行
• 具有特定功能，可针对特定数字屡次复制和插入行

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

以下VBA代码可以帮助您在现有数据中的第n行以后插入特定数量的行。 请履行以下操作：

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

3. 粘贴此代码后，请按 F5 键以运行此代码，将弹出提示框，提示您选择要插入空白行的数据范围，请参见屏幕截图：

4。 点击 OK 按钮，将弹出另外一个提示框，请输入行间隔的数量，请参见屏幕截图：

5。 继续点击 OK 按钮，在下面弹出的提示框中，请输入要插入的空白行数，请参见屏幕截图：

6。 然后点击 OK，并且空白行已定期插入到现有数据中，请参见屏幕截图：

使用VBA代码针对单元格值将特定数量的空白行插入数据范围

有时，您可能需要针对单元格值列表插入空白行，在这类情况下，下面的VBA代码可以帮您一个忙，请这样做：

1。 按住 ALT + F11 键，然后打开 Microsoft Visual Basic for Applications 窗口。

2。 点击 插入 > 模块，然后将以下代码粘贴到 模块窗口.

VBA代码：针对数字列表插入特定数量的空白行：

Sub Insertblankrowsbynumbers ()
'
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):", "TOOLS", 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 ⑴
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 键以运行此代码，在弹出的对话框中，选择要基于其插入空白行的数字列表，请参见屏幕截图：

4。 然后，点击 OK，您将取得所需的结果，如以下屏幕截图所示：

使用方便的功能以固定的间隔将特定数量的空白行插入数据范围

如果您不熟习上述VBA代码， Excel的工具 也可能对您有帮助 插入空白行和列 该功能可以按固定的间隔快捷轻松地将特定数量的行或列插入现有数据。

安装后 Excel的工具，请履行以下操作：

1。 选择要间隔插入空白行的数据范围。

2。 点击 库工具 > 插入 > 插入空白行和列，请参见屏幕截图：

3。 在 插入空白行和列 对话框当选择 空白行 来自的选项 插入类型，然后指定要使用的间隔和空白行的数量，以下所示的屏幕截图：

4。 然后点击 OK 按钮，并且空白行已以特定间隔插入到选定范围内，如以下屏幕截图所示：

立即下载和免费试用Excel的工具！

使用VBA代码针对特定编号屡次复制和插入行

假定您有一个tada范围，现在，您想复制每行并将其基于数字列表屡次粘贴到下一行，以下面的屏幕截图所示。 如何在Excel工作表中解决此任务？

为了处理此工作，我将为您介绍一个有用的代码，请履行以下步骤：

1。 按住 ALT + F11 键，然后打开 Microsoft Visual Basic for Applications 窗口。

2。 点击 插入 > 模块，然后将以下代码粘贴到 模块窗口.

VBA代码：针对特定数字屡次复制和插入行：

Sub CopyRows()
'
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: ", "TOOLS", 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 ⑴
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 键以运行此代码，在弹出的对话框中，选择要复制的数字列表并基于其插入数据行，请参见屏幕截图：

4。 然后，点击 OK 按钮，并且已将特定的行数复制并粘贴到每一个原始行下，请参见屏幕截图：

具有特定功能，可针对特定数字屡次复制和插入行

如果你有 Excel的工具，其 针对单元格值复制行/列 功能，您可以针对数字列表快捷轻松地插入行或列。

安装后 Excel的工具，请履行以下操作：

1。 点击 库工具 > 插入 > 针对单元格值复制行/列，请参见屏幕截图：

2。 在 复制并插入行和列 对话框当选择 复制并插入行 在选项 种别 部份，然后选择要复制的数据范围，然后指定要基于其复制行的值列表，请参见屏幕截图：

4。 然后，点击 Ok or 登记 按钮，您将针对需要取得以下结果：

立即下载和免费试用Excel的工具！

更多相干文章：

选择英雄云的云表单=选择更智能的Excel

>>>>🚀🌟 点击注册 免费试用 更高级的-英雄云企业级云表单 🌟🚀 😃👉🌐>>>>

在现代企业管理中，数据的高效管理和处理至关重要。随着信息技术的不断发展，英雄云的云表单已经成为了提高数据录入、管理和分析效率的不可或缺的工具。让我们来深入探讨英雄云-云表单的几大优势。

基础字段：多样性满足业务需求

英雄云的云表单中包括了各种基础字段，如单行文本、多行文本、数字输入框、单选框、复选框、下拉框、下拉复选框、日期时间、分割线等。这些字段的多样性使用户可以根据具体的业务需求，轻松进行文本、数据和时间信息的录入或修改。例如，您可以使用单行文本字段录入员工姓名、产品型号等，或者使用下拉框进行多选，根据不同情况选择更加方便的字段类型。

高级字段：提升工作效率

英雄云的云表单还提供了高级字段，如地址、图片、附件、手写签名、手机、子表、关联数据、关联查询以及流水号。这些高级字段在基础字段的基础上升级，可帮助用户完成一些琐碎的工作。例如，使用地址字段可以避免逐字打字，而流水号字段可以自动生成规律性的编号，非常适用于合同编号生成等场景。

部门成员字段：精确管理与通讯录的关联

英雄云的部门成员字段允许企业对各个部门的成员进行精确管理。用户可以通过部门成员字段获取通讯录中的部门成员信息，应用于记录报销人、报销部门等场景。这些成员字段还细分为成员单选和成员多选，可根据具体需求在通讯录中选择一个或多个成员。

聚合表：数据处理更智能

英雄云的聚合表功能用于对已存在的表单数据进行聚合计算，从而得到一张聚合表，后续其他表单可调用聚合表进行数据联动、关联查询和关联数据等操作完成数据处理。这一功能可应用于多种场景，如进销存管理、财务管理和门店零售管理等，帮助企业完成数据处理，提高工作效率。

表单权限设置：灵活管理数据访问

英雄云的表单权限设置允许用户根据企业的具体需求管理表单的访问和操作权限。用户可以根据系统权限或自定义权限对不同成员或团队进行权限设置，以确保数据的安全和合规性。这一功能使企业能够根据变化的业务需求和团队结构，实时调整权限设置。

自定义打印模板：文档输出更便捷

英雄云的云表单支持自定义打印模板，可将表单数据转换为可打印的Word文档。用户可以根据自己的需求进行排版和编辑，将产品规格说明书等文档轻松生成。这一功能提供了一种标准化的文档输出方式，简化了信息整理的过程。

综合来看，选择英雄云的云表单意味着选择更智能、更灵活、更高效的数据管理工具。无论是提高工作效率，精确管理数据，还是实现数据处理，英雄云的云表单都能满足您的多样化需求，助力您的业务发展。

如果您正在寻找一款强大的云表单工具，不妨考虑英雄云，它将为您带来更多的便捷和智能，助您事半功倍。

免责声明：

本网址（www.yingxiongyun.com）发布的材料主要源于独立创作和网友匿名投稿。此处提供的所有信息仅供参考之用。我们致力于提供准确且可信的信息，但不对材料的完整性或真实性作出任何保证。用户应自行验证相关信息的正确性，并对其决策承担全部责任。对于由于信息的错误、不准确或遗漏所造成的任何损失，本网址不承担任何法律责任。本网站所展示的所有内容，如文字、图像、标志、音频、视频、软件和程序等的版权均属于原创作者。如果任何组织或个人认为网站内容可能侵犯其知识产权，或包含不准确之处，请即刻联系我们进行相应处理。