如何在 Excel 中以固定間隔插入特定數量的列？
在您日常使用 Excel 的過程中，您可能會遇到需要 在現有列之間添加更多列. 當然，您可以使用插入功能一一插入列。 但是當你面對一個大數據并且需要在每第二或第n列之后插入三列時，插入功能顯然是無效的。 那么如何才能快速完成任務呢？ 在本教程中，我們將討論解決問題的兩種簡單方法。
使用 VBA 代碼以固定間隔將特定數量的空白列插入數據范圍
以固定間隔將特定數量的空白列插入數據范圍，具有驚人的功能
使用 VBA 代碼以固定間隔將特定數量的空白列插入數據范圍我們可以使用下面的 VBA代碼 在每第 n 列之后插入特定數量的空白列。 請執行以下操作。
1。 按 Alt + F11鍵 鍵，然后打開 Microsoft Visual Basic應用程序 窗口。
2。 點擊 插頁 > 模塊 并將以下宏粘貼到 模塊 窗口。
VBA代碼：以固定間隔將特定數量的列插入數據
Sub InsertColumnsAtIntervals()Updateby ExtendofficeDim Rng As RangeDim xInterval As IntegerDim xColumns As IntegerDim xColumnsCount As IntegerDim xNum1 As IntegerDim xNum2 As IntegerDim WorkRng As RangeDim xWs As WorksheetxTitleId = "KutoolsforExcel"Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)xColumnsCount = WorkRng.Columns.CountxInterval = 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 + xIntervalxNum2 = xColumns + xIntervalSet xWs = WorkRng.ParentFor i = 1 To Int(xColumnsCount / xInterval)xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).SelectApplication.Selection.EntireColumn.InsertxNum1 = xNum1 + xNum2NextEnd SubCopy3。 按 F5 運行此代碼的關鍵。 彈出提示框提醒您選擇 數據范圍
您要在其中插入空白列。
4。 點擊 OK 按鈕。 彈出另一個提示框，請輸入 列間隔數 ，在 輸入列間隔
框。
5.繼續點擊 OK 按鈕。 彈出第三個提示框，請注明 您要在每個間隔插入的列數
在盒子里。
6。 點擊 OK
按鈕獲取結果。
以固定間隔將特定數量的空白列插入數據范圍，具有驚人的功能如果您不想使用 VBA 代碼方法，則 插入空白行和列 的特點 Kutools for Excel是您的完美解決方案。 使用此功能，您只需單擊幾下即可以固定間隔將特定數量的列插入數據范圍。
申請前 Kutools for Excel，請先下載安裝。
1. 先選擇已有的數據范圍。 然后點擊 庫工具 > 插頁 > 插入空白行和列
.
2. 插入空白行和列 對話框彈出。 您可以在“范圍”框中看到您在步驟 1 中選擇的數據范圍。 選擇 空白欄 在選項 插入類型 部分。 并指定 列間隔數 和 要在每個間隔插入的列
. 這里我分別輸入1和3。
3。 點擊 OK
按鈕完成設置并獲得結果。
備注：如果您想（）此實用程序，請點擊下載，然后按照上述步驟應用操作。
其他操作（文章）如何在Excel中根據當前日期快速插入一行？假設有一張工作表包含一行日期，現在我想在當前日期右邊插入一行，這將在每天打開工作簿時自動更改。 有什么技巧可以在Excel中解決嗎？
如何在 Excel 中始終在下方插入空白行而不是上方？眾所周知，在工作表中插入空白行時，空白行將始終插入到所選行或單元格的上方。 但是，有時您可能需要將行插入到所選單元格或行的下方。 您如何在Excel中解決這項工作？
如何通過 Excel 中的命令按鈕自動插入空白新行？在許多情況下，您可能需要在工作表的指定位置插入一個空白的新行。 在本文中，我們將向您展示如何通過在Excel中單擊命令按鈕來自動插入空白新行。
如何在 Excel 中的特定文本后插入空白行？如果要在特定文本之后插入空白行（如下面的屏幕快照所示），如何快速而輕松地處理它而又不手動逐個插入？
更多文章
