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

在您日常使用 Excel 的过程中，您可能会遇到需要 在现有列之间添加更多列. 当然，您可以使用插入功能一一插入列。 但是当你面对一个大数据并且需要在每第二或第n列之后插入三列时，插入功能显然是无效的。 那么如何才能快速完成任务呢？ 在本教程中，我们将讨论解决问题的两种简单方法。

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

以固定间隔将特定数量的空白列插入数据范围，具有惊人的功能

---

我们可以使用下面的 VBA代码 在每第 n 列之后插入特定数量的空白列。 请执行以下操作。

1。 按 Alt + F11键 键，然后打开 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块 并将以下宏粘贴到 模块 窗口。

VBA代码：以固定间隔将特定数量的列插入数据

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount 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)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3。 按 F5 运行此代码的关键。 弹出提示框提醒您选择 数据范围 您要在其中插入空白列。

4。 点击 OK 按钮。 弹出另一个提示框，请输入 列间隔数 在 输入列间隔 框。

5.继续点击 OK 按钮。 弹出第三个提示框，请注明 您要在每个间隔插入的列数 在盒子里。

6。 点击 OK 按钮获取结果。

---

如果您不想使用 VBA 代码方法，则 插入空白行和列 的特点 Kutools for Excel 是您的完美解决方案。 使用此功能，您只需单击几下即可以固定间隔将特定数量的列插入数据范围。

申请前 Kutools for Excel，请先下载安装。

1. 先选择已有的数据范围。 然后点击 库工具 > 插页 > 插入空白行和列.

2。 “ 插入空白行和列 对话框弹出。 您可以在“范围”框中看到您在步骤 1 中选择的数据范围。 选择 空白栏 在选项 插入类型 部分。 并指定 列间隔数 和 要在每个间隔插入的列. 这里我分别输入1和3。

3。 点击 OK 按钮完成设置并获得结果。

备注：如果您想免费试用（30天）此实用程序，请点击下载，然后按照上述步骤应用操作。

---