Skip to main content

立即探索 Kutools for Outlook 的全新免費版本！

如何防止在Excel表格中重複列標題自動編號？

Author: Sun Last Modified: 2025-05-12

在 Excel 中，當您在表格中輸入重複的列標題時，系統會自動添加數字，例如 name、name1、name2，並且這些數字無法刪除，如下方截圖所示。為了防止表格中的重複列標題自動編號，您可以為重複的標題添加尾隨空格。這裡有一段 VBA 代碼可以幫助您重複標題並自動添加尾隨空格，使它們看起來相同但實際上不同。
prevent auto numbering at duplicate column header

自動為標題添加尾隨空格

注意：本教程中提供的方法已在 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

 copy and paste the code into the module

3. 點擊 執行 run button功能區中的按鈕或按下 F5 鍵來激活代碼，在第一個彈出對話框中，選擇您想要重複的標題。點擊 確定.
select the headers to repeat

4. 在第二個彈出對話框中，輸入您想要的重複次數。點擊 確定。
type the repeating times

5. 選擇一個您希望輸出重複標題的單元格。點擊 確定。
Select a cell to output the repeated headers

現在，標題已經被重複並添加了尾隨空格。
the headers are repeated and added with trailing spaces

6. 選擇標題並通過按下 Ctrl + C 複製它們，然後通過按下 Ctrl + V。 將其粘貼回您需要的表格中。

現在，您可以看到表格中有重複的列標題且沒有編號。
the table has duplicate column headers without numbering

a screenshot of kutools for excel ai

使用 Kutools AI 解鎖 Excel 的魔法

  • 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
  • 自訂公式：生成量身定制的公式，簡化您的工作流程。
  • VBA 編碼：輕鬆編寫和實現 VBA 代碼。
  • 公式解釋：輕鬆理解複雜的公式。
  • 文本翻譯：打破電子表格中的語言障礙。
通過人工智能工具增強您的 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