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

使用 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

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

其他操作（文章）

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

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

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

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

更多文章