如何在Excel VBA中自定义工作表名称及重命名方法

一、修改工作表的显示标签名 #

手动操作 #

• 右键点击工作表标签，选择「重命名」，输入新名称即可。

VBA代码实现 #

几种常用写法：

Sheet1.Name = "销售数据2024" ' 通过默认代码名修改指定工作表
Sheets(1).Name = "销售数据2024" ' 通过工作表在工作簿中的位置索引修改
Sheets("旧名称").Name = "销售数据2024" ' 通过旧显示名称修改

如果需要批量修改：

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "封面" Then ' 跳过指定工作表
        ws.Name = "数据_" & ws.Index ' 按索引批量命名
    End If
Next ws

二、设置VBA代码中使用的自定义工作表名称（如shCover） #

这个是工作表的CodeName属性，和显示标签名相互独立，专门用于VBA代码引用，比用显示名称更稳定——就算用户修改了工作表的标签名，代码也不会因此报错。

手动设置步骤 #

1. 按Alt+F11打开VBA编辑器。
2. 在左侧「工程资源管理器」中找到目标工作表（默认显示格式为Sheet1(显示名称)）。
3. 选中该工作表后，按F4调出「属性窗口」，找到(名称)属性，输入自定义名称（比如shCover），回车确认。
   • 注意：名称不能包含空格、特殊字符，必须以字母开头，符合VBA变量命名规则。

代码批量设置CodeName #

如果需要通过代码修改，需先启用对应引用：

1. 在VBA编辑器中点击「工具」→「引用」，勾选「Microsoft Visual Basic for Applications Extensibility 5.3」，点击确定。
2. 运行以下代码：

Sub SetWorksheetCodeName()
    Dim ws As Worksheet
    Dim vbComp As VBComponent
    
    Set ws = ThisWorkbook.Worksheets("封面") ' 用显示名称指定目标工作表
    Set vbComp = ThisWorkbook.VBProject.VBComponents(ws.CodeName)
    vbComp.Name = "shCover" ' 设置新的自定义代码名称
End Sub

另外，需确保Excel允许修改VBA项目对象模型：打开Excel选项→信任中心→信任中心设置→宏设置，勾选「信任对VBA项目对象模型的访问」。

使用自定义CodeName的优势 #

像你看到的Ws.Name <> shCover.Name，这里的shCover就是自定义CodeName，核心好处有两个：

• 稳定性：用户随意修改工作表的显示标签名，代码依然能精准定位到目标工作表，不会因名称变更报错。
• 可读性：从代码就能直接判断shCover代表封面工作表，比默认的Sheet1直观得多。

内容的提问来源于stack exchange，提问作者LaTeXFan