KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何防止 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