如何避免 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 AI 解鎖 Excel 的神奇功能
- 智慧執行:透過簡易指令,輕鬆執行儲存格操作、分析資料,並建立圖表!
- 自訂公式:打造專屬公式,讓您的工作流程更順暢!
- VBA 編碼:輕鬆撰寫並套用 VBA 程式碼,立即提升工作效率!
- 公式解析:輕鬆掌握複雜公式!
- 文字翻譯:輕鬆打破試算表中的語言隔閡!
其他操作(文章)
如何在 Excel 中找出最大值或最小值絕對值並保留其正負號?
有時您可能希望找出數值中絕對值最大的數或絕對值最小的數,但回傳結果時仍保留其原始正負號,如下方截圖所示。
如何在 Excel 中輸入時保留前置撇號?
眾所周知,當您在開頭輸入一個撇號(例如:‘123),即可將數字轉換為文字格式,且該撇號不會顯示。
如何強制在 Excel 中以唯讀模式開啟檔案?
有時您希望其他使用者在開啟共用活頁簿時更加謹慎,避免誤改內容,可設定唯讀提示以提醒他們……
如何防止 Excel 在開啟 CSV 檔案時自動格式化日期?
這裡有一個 CSV 檔案,其中包含以文字格式儲存的日期(例如:12-may-20),但透過 Excel 開啟時會自動轉為日期格式……
- 超強編輯欄(輕鬆編輯多行文字與公式);閱讀版面(輕鬆閱讀與編輯大量儲存格);貼上至篩選範圍……
- 合併儲存格/列/欄並保留資料;分割儲存格內容;合併重複行並加總/平均……防止重複項儲存格;比較範圍……
- 選取重複或唯一列;選取空白列(所有儲存格皆為空);超級查找與模糊搜尋多個活頁簿;隨機選取……
- 精確公式複製多個儲存格而不變更公式參照;自動建立參照至多個工作表;插入項目符號、複選框及更多……
- 收藏並快速插入公式、範圍、圖表與圖片;加密儲存格並設定密碼;建立郵件清單並寄送電子郵件……
- 提取文本、添加文本、刪除某位置字元、移除空格;建立並列印數據分頁統計;在儲存格內容與註解之間轉換……
- 超級篩選(儲存並套用篩選方案至其他工作表);高級排序依月份/週/日、頻率等;特殊篩選依粗體、斜體……
- 合併活頁簿與工作表;合併表格依據關鍵列;分割數據至多個工作表;批次轉換 xls、xlsx 與 PDF……
- 資料透視表依週數、星期幾等分組……顯示未鎖定、選區鎖定以不同顏色標示;突顯包含公式/名稱的儲存格……

- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 與 Project 中啟用分頁式編輯與閱讀,提升工作效率!
- 在同一視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
- 每天為您提升 50% 的工作效率,省下數百次滑鼠點擊!
