KutoolsforOffice — 一套方案，五大工具。事半功倍。

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

作者Zhoumandy修改日期

在日常使用 Excel 时，您可能会遇到需要在现有列之间批量插入新列的情况。虽然可以使用“插入”功能逐列操作，但当面对大量数据、且需每隔一列或第 n 列插入三列时，这种方法显然效率低下。那么，如何才能快速完成这一任务呢？本教程将为您介绍两种简单高效的方法。

使用 VBA 代码在固定间隔处向数据区域中插入指定数量的空白列

使用 Kutools for Excel 在固定间隔处向数据区域中插入指定数量的空白列

使用 VBA 代码在固定间隔处向数据区域中插入指定数量的空白列

我们可以通过以下 VBA 代码，在每第 n 列之后插入指定数量的空白列。请按以下步骤操作：

1. 在 Excel 中按下“Alt + F11”组合键，即可打开“Microsoft Visual Basic for Applications”窗口。

2. 单击“插入”>“模块”，然后将以下宏粘贴到弹出的“模块”窗口中。

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”键运行此代码，系统将弹出提示框，引导您选择需要插入空白列的“数据区域”。
使用 VBA 在 Excel 中插入列时，提示选择数据范围的截图

4. 单击“确定”按钮后，将弹出另一个提示框，请在“输入列间隔”框中输入所需的“列间隔数”。
在 Excel 中使用 VBA 插入列时，提示输入列间隔的截图

5. 继续单击“确定”按钮，随后将弹出第三个提示框，请在框中指定“每个间隔要插入的列数”。
在 Excel 的 VBA 代码中，提示输入每个间隔要插入多少列的截图

6. 单击“确定”按钮，立即获取结果。
使用 VBA 代码后，在 Excel 中按固定间隔插入列的结果截图

使用 Kutools for Excel 在固定间隔处向数据区域中插入指定数量的空白列

如果您不想使用 VBA 代码，“Kutools for Excel”的“插入空白行/列”功能将是您的理想之选。借助这一功能，只需轻点几下，即可在固定间隔处向数据区域插入指定数量的列。

Kutools for Excel 提供 300 多项高级功能，简化复杂任务，提升创造力与效率。集成 AI 能力，Kutools 精准自动化任务，让数据管理变得轻松自如。Kutools for Excel 的详细信息……         免费试用……

1. 首先选中现有的数据区域，然后单击“Kutools”>“插入”>“插入空白行/列”。
Kutools 在 Excel 中的“插入空白行和列”选项截图

2。“插入空白行/列”对话框随即弹出，您可在“范围”框中看到步骤 1 中所选的数据区域。在“插入类型”部分选择“空白列”选项，并分别设置“列间隔数”和“每个间隔要插入的列数”——此处我输入了 1 和 3.
Kutools“插入空白行和列”对话框截图，包含指定列间隔和插入列数的选项

3. 单击“确定”按钮，完成设置并立即获取结果。
使用 Kutools 插入列后的最终结果截图

Kutools for Excel——通过 300 多款必备工具全面增强 Excel 功能，助您工作更快速、更轻松，并借助 AI 功能实现更智能的数据处理与高效办公！立即获取

其他操作（文章）

如何在 Excel 中根据当前日期快速插入一行？
假设工作表中某行包含日期，您希望在当前日期所在列的右侧自动插入一行，且该位置能随每天打开工作簿而动态更新。Excel 中是否有技巧可实现这一需求？

如何在 Excel 中始终在下方（而非上方）插入空白行？
众所周知，在工作表中插入空白行时，新行默认会插入到所选行或单元格的上方。但有时您可能希望在所选单元格或行的下方插入新行——该如何实现呢？

如何通过命令按钮在 Excel 中自动插入一个空白新行？
在许多场景下，您可能需要在工作表的指定位置插入空白新行。本文将教您如何通过单击 Excel 中的命令按钮，一键自动插入空白行！

如何在 Excel 中特定文本后插入空白行？
如果您希望在特定文本之后自动插入空白行（如下方截图所示），如何快速轻松地实现，而无需逐一手动操作？

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱