Excel重命名工作表触发Run-Time Error 1004，VBA代码需求求助

问题根源 #

原代码的几个问题直接导致了1004错误：

• 误用SelectionChange事件：这个事件仅在选区变化时触发，若引用的单元格更新但没切换选区，重命名逻辑不会执行；而且直接覆盖事件自带的Target参数，不符合事件设计逻辑。
• 未处理错误值：如果A1因引用问题返回#REF!、#VALUE!这类错误值，直接赋值给工作表名称会触发报错。
• 未过滤非法字符：Excel工作表名称禁止包含/:\*?"<>|这些字符，若A1值里存在此类字符，也会引发1004错误。
• 无事件禁用机制：重命名工作表可能触发其他事件，导致循环或冲突。

修正后的代码 #

将代码粘贴到需要自动重命名的工作表模块中（右键工作表标签→「查看代码」）：

Private Sub Worksheet_Calculate()
    Dim newName As String
    Dim ws As Worksheet
    
    Set ws = Me '指代当前工作表
    '获取A1的计算结果（处理公式引用的情况）
    newName = Trim(ws.Range("A1").Value)
    
    '跳过空值或错误值
    If newName = "" Or IsError(ws.Range("A1").Value) Then Exit Sub
    
    '移除工作表名称不允许的非法字符
    newName = Replace(newName, "/", "")
    newName = Replace(newName, "\", "")
    newName = Replace(newName, ":", "")
    newName = Replace(newName, "*", "")
    newName = Replace(newName, "?", "")
    newName = Replace(newName, """", "")
    newName = Replace(newName, "<", "")
    newName = Replace(newName, ">", "")
    newName = Replace(newName, "|", "")
    
    '限制名称长度为Excel允许的最大31字符
    newName = VBA.Left(newName, 31)
    
    '处理名称重复、禁用事件防止循环
    On Error Resume Next
    Application.EnableEvents = False
    If ws.Name <> newName Then
        ws.Name = newName
    End If
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

关键说明 #

• 改用Worksheet_Calculate事件：当A1的公式结果更新时自动触发，完美适配「引用其他单元格值更新后自动重命名」的需求，无需手动切换选区触发。
• 多维度有效性检查：提前过滤空值、错误值，避免无效赋值操作。
• 非法字符过滤：移除Excel禁止的字符，从根源避免格式类的1004错误。
• 事件禁用与错误捕获：重命名时关闭事件防止循环，同时捕获名称重复等意外情况，让代码更稳定。

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