寵物展會2025年時間表
515
2025-03-31
如何在 Excel 中以固定間隔插入特定數量的列？
如何在 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
Copy
3。 按 F5 運行此代碼的關鍵。 彈出提示框提醒您選擇 數據范圍
您要在其中插入空白列。
4。 點擊 OK 按鈕。 彈出另一個提示框，請輸入 列間隔數 ，在 輸入列間隔
框。
5.繼續點擊 OK 按鈕。 彈出第三個提示框，請注明 您要在每個間隔插入的列數
在盒子里。
6。 點擊 OK
按鈕獲取結果。
以固定間隔將特定數量的空白列插入數據范圍，具有驚人的功能
如果您不想使用 VBA 代碼方法，則 插入空白行和列 的特點 Kutools for Excel是您的完美解決方案。 使用此功能，您只需單擊幾下即可以固定間隔將特定數量的列插入數據范圍。
申請前 Kutools for Excel，請先下載安裝。
1. 先選擇已有的數據范圍。 然后點擊 庫工具 > 插頁 > 插入空白行和列
.
2. 插入空白行和列 對話框彈出。 您可以在“范圍”框中看到您在步驟 1 中選擇的數據范圍。 選擇 空白欄 在選項 插入類型 部分。 并指定 列間隔數 和 要在每個間隔插入的列
. 這里我分別輸入1和3。
3。 點擊 OK
按鈕完成設置并獲得結果。
備注：如果您想免費試用（30天）此實用程序，請點擊下載，然后按照上述步驟應用操作。
其他操作（文章）
如何在Excel中根據當前日期快速插入一行？假設有一張工作表包含一行日期，現在我想在當前日期右邊插入一行，這將在每天打開工作簿時自動更改。 有什么技巧可以在Excel中解決嗎？
如何在 Excel 中始終在下方插入空白行而不是上方？眾所周知，在工作表中插入空白行時，空白行將始終插入到所選行或單元格的上方。 但是，有時您可能需要將行插入到所選單元格或行的下方。 您如何在Excel中解決這項工作？
如何通過 Excel 中的命令按鈕自動插入空白新行？在許多情況下，您可能需要在工作表的指定位置插入一個空白的新行。 在本文中，我們將向您展示如何通過在Excel中單擊命令按鈕來自動插入空白新行。
如何在 Excel 中的特定文本后插入空白行？如果要在特定文本之后插入空白行（如下面的屏幕快照所示），如何快速而輕松地處理它而又不手動逐個插入？
更多文章
最佳辦公效率工具
Kutools for Excel解決了您的大多數問題，并使您的生產率提高了80％
閱讀更多
功能齊全的30天免費試用版... 采購...
Office Tab - 為 Office 帶來選項卡式界面，讓您的工作更加輕松
閱讀更多
功能齊全的30天免費試用版... 采購...
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
