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 for Applications 窗口。

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 代碼方法,則 插入空白行和列 的特點 Excel的Kutools 是您的完美解決方案。 使用此功能,您只需單擊幾下即可以固定間隔將特定數量的列插入數據范圍。

申請前 Excel的Kutools,請先下載安裝。

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保護