KutoolsforOffice — 一套方案,五大工具。事半功倍。三月特賣:20% 折扣

如何避免 Excel 表格中的重複列標題被自動加上編號?

作者修改日期

在 Excel 中,當您在表格中輸入重複的欄位標題時,系統會自動附加編號(例如 name、name 1、name 2),且無法移除這些編號,如下方截圖所示。若要避免重複的欄位標題被自動加上編號,只需在重複的標題末尾加入一個空格即可。以下 VBA 程式碼能協助您自動為重複標題添加尾端空格,讓它們看起來完全相同,實際上卻互不重複。
防止在重複的欄位標題上自動編號

自動於標題中加入後面的空格

注意:本教學所介紹的方法已在 Excel 2021 中測試通過,其他版本的 Excel 操作方式可能略有不同。


自動於標題中加入後面的空格

1. 在欄位中輸入您要重複的標題,然後按下 Alt+F11 鍵,即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中,點選插入> 模組 以建立新模組,然後將下方程式碼複製貼上至其中。

VBA:重複標題並加入後面的空格

Sub repeat()
'UpdatebyExtendoffice20220927
    Dim xRg As Range
    Dim saveRg As Range
    Dim xIndex As Integer
    Dim xCount As Integer
    Dim k As Integer
    Dim xStr As String
    Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
    xIndex = Application.InputBox("Enter the repeat times", "kte")
    Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
    xStr = ""
    xCount = xRg.Cells.Count * xIndex
    Set saveRg = saveRg.Range("a1").Resize(1, xCount)
    k = 0
    For i = 1 To xIndex
        For j = 1 To xRg.Cells.Count
            k = k + 1
            saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
        Next
        xStr = xStr + " "
    Next
End Sub

 將程式碼複製並貼上到模組中

3. 點選功能區中的執行選取要重複的標題按鈕,或按下 F5 鍵以執行程式碼。在第一個彈出的對話方塊中,選取您要重複的標題,然後點選確定
選取要重複的標題

4. 在第二個彈出對話方塊中,輸入您想要的重複次數,然後點選確定
輸入重複次數

5. 選取您要用來輸出重複標題的儲存格,然後點選確定
選取一個儲存格以輸出重複的標題

目前標題已重複,且後方已加入空格。
標題已重複,並在尾端加入空格

6. 選取這些標題,按下 Ctrl+C 複製,再按下 Ctrl+V 將其貼上至所需的表格中。

現在您可以看到表格已包含重複列的無編號標題。
此表格包含未編號的重複欄位標題

kutools for excel ai 的螢幕截圖

透過 KUTOOLS AI 解鎖 Excel 的神奇功能

  • 智慧執行:透過簡易指令,輕鬆執行儲存格操作、分析資料,並建立圖表!
  • 自訂公式:打造專屬公式,讓您的工作流程更順暢!
  • VBA 編碼:輕鬆撰寫並套用 VBA 程式碼,立即提升工作效率!
  • 公式解析:輕鬆掌握複雜公式!
  • 文字翻譯:輕鬆打破試算表中的語言隔閡!
運用 AI 驅動的工具強化您的 Excel 能力。立即下載體驗前所未有的高效!

其他操作(文章)

如何在 Excel 中找出最大值或最小值絕對值並保留其正負號?
有時您可能希望找出數值中絕對值最大的數或絕對值最小的數,但回傳結果時仍保留其原始正負號,如下方截圖所示。

如何在 Excel 中輸入時保留前置撇號?
眾所周知,當您在開頭輸入一個撇號(例如:‘123),即可將數字轉換為文字格式,且該撇號不會顯示。

如何強制在 Excel 中以唯讀模式開啟檔案?
有時您希望其他使用者在開啟共用活頁簿時更加謹慎,避免誤改內容,可設定唯讀提示以提醒他們……

如何防止 Excel 在開啟 CSV 檔案時自動格式化日期?
這裡有一個 CSV 檔案,其中包含以文字格式儲存的日期(例如:12-may-20),但透過 Excel 開啟時會自動轉為日期格式……


  • 超強編輯欄(輕鬆編輯多行文字與公式);閱讀版面(輕鬆閱讀與編輯大量儲存格);貼上至篩選範圍……
  • 合併儲存格/列/欄並保留資料;分割儲存格內容;合併重複行並加總/平均……防止重複項儲存格;比較範圍……
  • 選取重複或唯一列;選取空白列(所有儲存格皆為空);超級查找與模糊搜尋多個活頁簿;隨機選取……
  • 精確公式複製多個儲存格而不變更公式參照;自動建立參照至多個工作表;插入項目符號、複選框及更多……
  • 收藏並快速插入公式、範圍、圖表與圖片;加密儲存格並設定密碼;建立郵件清單並寄送電子郵件……
  • 提取文本、添加文本、刪除某位置字元、移除空格;建立並列印數據分頁統計;在儲存格內容與註解之間轉換……
  • 超級篩選(儲存並套用篩選方案至其他工作表);高級排序依月份/週/日、頻率等;特殊篩選依粗體、斜體……
  • 合併活頁簿與工作表;合併表格依據關鍵列;分割數據至多個工作表批次轉換 xls、xlsx 與 PDF……
  • 資料透視表依週數、星期幾等分組……顯示未鎖定、選區鎖定以不同顏色標示;突顯包含公式/名稱的儲存格……
kte tab 201905
  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 與 Project 中啟用分頁式編輯與閱讀,提升工作效率!
  • 在同一視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
  • 每天為您提升 50% 的工作效率,省下數百次滑鼠點擊!
officetab bottom