Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


使用 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 运行此代码的关键。 弹出提示框提醒您选择 数据范围 您要在其中插入空白列。
文档间隔插入列 1

4。 点击 OK 按钮。 弹出另一个提示框,请输入 列间隔数输入列间隔 框。
文档间隔插入列 2

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

6。 点击 OK 按钮获取结果。
文档间隔插入列 4


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

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

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

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

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

3。 点击 OK 按钮完成设置并获得结果。
文档间隔插入列 7

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


其他操作(文章)

如何在Excel中根据当前日期快速插入一行?
假设有一张工作表包含一行日期,现在我想在当前日期右边插入一行,这将在每天打开工作簿时自动更改。 有什么技巧可以在Excel中解决吗?

如何在 Excel 中始终在下方插入空白行而不是上方?
众所周知,在工作表中插入空白行时,空白行将始终插入到所选行或单元格的上方。 但是,有时您可能需要将行插入到所选单元格或行的下方。 您如何在Excel中解决这项工作?

如何通过 Excel 中的命令按钮自动插入空白新行?
在许多情况下,您可能需要在工作表的指定位置插入一个空白的新行。 在本文中,我们将向您展示如何通过在Excel中单击命令按钮来自动插入空白新行。

如何在 Excel 中的特定文本后插入空白行?
如果要在特定文本之后插入空白行(如下面的屏幕快照所示),如何快速而轻松地处理它而又不手动逐个插入?


  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 和保存数据; 拆分单元格内容; 合并重复的行和总和/平均值...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 收藏并快速插入公式,范围,图表和图片; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 数据透视表分组依据 周号,周几等 显示未锁定的单元格 用不同的颜色 突出显示具有公式/名称的单元格...
kte选项卡201905
  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (0)
还没有评分。 成为第一位评论!
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护