如何防止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 ti
mes", "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 打开时,将自动存储为日期格式...
最佳办公效率工具
Kutools for Excel 解决您的大部分问题,并将您的工作效率提高 80%
超级公式栏 (轻松编辑多行文本和公式);
阅读版式 (轻松读取和编辑大量单元格);
粘贴到过滤范围...
合并单元格/行/列 和保存数据; 拆分单元格内容;
合并重复的行和总和/平均值...防止细胞重复;
比较范围...
选择重复或唯一 行;
选择空白行 (所有单元格都是空的);
超级查找和模糊查找 在许多工作簿中; 随机选择...
确切的副本 多个单元格,无需更改公式参考;
自动创建参考 到多张纸;
插入项目符号,复选框等...
收藏并快速插入公式,范围,
图表和图片;
加密单元 带密码
创建邮件列表 并发送电子邮件...
提取文字,添加文本,按位置删除,
删除空间; 创建和打印分页小计;
在单元格内容和注释之间转换...
超级滤镜 (将过滤方案保存并应用于其他工作表);
高级排序 按月/周/日,频率及更多;
特殊过滤器 用粗体,斜体...
结合工作簿和工作表; 根据关键列合并表;
将数据分割成多个工作表;
批量转换xls,xlsx和PDF...
数据透视表分组依据 周号,周几等
显示未锁定的单元格 用不同的颜色
突出显示具有公式/名称的单元格...
***
功能齐全的30天免费试用版... ***
Office Tab - 为 Office 带来标签式界面,让您的工作更轻松
在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50%,并减少数百次鼠标单击!