跳到主要内容

如何防止Excel表格中重复列标题的自动编号?

在 Excel 中,当您在表格中键入重复的列标题时,它会自动添加一个数字,就像 name、name1、name2 一样,并且无法删除该数字,如下图所示。 为防止表中重复列标题自动编号,您可以在重复标题中添加尾随空格。 这是一个 VBA 代码,可以帮助您重复标题并自动添加尾随空格,以使它们不同但看起来相同。
从另一个列表自动完成

自动在标题中添加尾随空格

注意:本教程提供的方法均在 Excel 2021 中测试,在不同的 Excel 版本中可能会有一些不同。


自动在标题中添加尾随空格

1. 在列中键入要重复的标题,然后按 其他 + F11 启用键 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块Microsoft Visual Basic应用程序 窗口,然后将以下代码复制并粘贴到其中。

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 键激活代码,在第一个弹出对话框中,选择要重复的标题。 点击 OK.
从另一个列表自动完成

4. 在第二个弹出对话框中,输入您想要的重复次数。 点击 OK.
从另一个列表自动完成

5. 选择要输出重复标题的单元格。 点击 OK.
从另一个列表自动完成

现在标题已被重复并添加了尾随空格。
从另一个列表自动完成

6. 选择标题并按复制它们 按Ctrl + C,然后按 按Ctrl + V.

现在您可以看到表格有重复的列标题而没有编号。
从另一个列表自动完成


其他操作(文章)

如何在Excel中找到最大或最小绝对值并保持登录
有时,您可能希望找到它们绝对值的最大值或最小值,但在返回结果时保留它们的符号,如下面的屏幕截图所示。

输入Excel时如何保持领先的撇号?
众所周知,当你想将数字转换为文本时,可以在前面输入一个撇号,如下所示:'123,数字将转换为文本并隐藏撇号。

如何在Excel中强制以只读方式打开?
有时,您希望打开共享工作簿的其他用户在编辑共享工作簿时要小心,您可以发出只读提示来警告他们...

如何阻止 Excel 自动格式化 CSV 中的日期?
这是一个 csv 文件,其中包含文本格式 12-may-20 的日期,但是当您通过 excel 打开时,将自动存储为日期格式...


  • 超级公式栏 (轻松编辑多行文本和公式); 阅读视图 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 和保存数据; 拆分单元格内容; 合并重复的行和总和/平均值...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 收藏并快速插入公式,范围,图表和图片; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级筛选 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 数据透视表分组依据 周号,周几等 显示未锁定的单元格 用不同的颜色 突出显示具有公式/名称的单元格...
kte选项卡201905
  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations