求助：批量将300个Excel工作表名改为对应A1单元格内容的VBA代码

你的问题出在把工作表事件嵌套在了普通循环过程里，这不符合VBA语法，自然无法运行。下面分两种场景给出可行的解决方法：

1. 一次性批量修改所有工作表名称 #

如果只是想立刻把所有工作表的名字改成各自A1单元格的内容，用这段普通宏代码即可：

Sub BatchRenameSheets()
    Dim ws As Worksheet
    Dim newName As String
    
    For Each ws In ThisWorkbook.Worksheets
        newName = Trim(ws.Range("A1").Value) ' 去除A1内容的首尾空格
        ' 跳过空值，避免报错
        If newName <> "" Then
            ' 处理Excel表名禁止的字符（\:/*?[]）
            newName = Replace(newName, "\", "")
            newName = Replace(newName, "/", "")
            newName = Replace(newName, ":", "")
            newName = Replace(newName, "*", "")
            newName = Replace(newName, "?", "")
            newName = Replace(newName, "[", "")
            newName = Replace(newName, "]", "")
            ' 处理重名情况，自动添加索引后缀
            On Error Resume Next
            ws.Name = newName
            If Err.Number <> 0 Then
                ws.Name = newName & "_" & ws.Index
            End If
            On Error GoTo 0
        End If
    Next ws
End Sub

使用步骤：打开Excel按Alt+F11，插入模块，粘贴代码后运行该宏即可。

2. 实时自动更新表名（修改A1时同步改名） #

如果需要每次修改任意工作表的A1时，自动同步更新该表的名称，不用给每个工作表单独写事件，直接在ThisWorkbook模块中添加工作簿级别的事件代码：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' 仅当修改A1单元格时触发
    If Target.Address = "$A$1" Then
        Dim newName As String
        newName = Trim(Sh.Range("A1").Value)
        If newName <> "" Then
            ' 处理非法字符
            newName = Replace(newName, "\", "")
            newName = Replace(newName, "/", "")
            newName = Replace(newName, ":", "")
            newName = Replace(newName, "*", "")
            newName = Replace(newName, "?", "")
            newName = Replace(newName, "[", "")
            newName = Replace(newName, "]", "")
            ' 处理重名
            On Error Resume Next
            Sh.Name = newName
            If Err.Number <> 0 Then
                Sh.Name = newName & "_" & Sh.Index
            End If
            On Error GoTo 0
        End If
    End If
End Sub

使用步骤：按Alt+F11，双击左侧的ThisWorkbook，粘贴代码后保存为启用宏的工作簿（.xlsm格式），之后修改任意工作表的A1，表名会自动更新。

注意事项 #

• Excel表名不允许包含\:/*?[]这些字符，代码已做替换处理
• 若多个工作表A1内容重复，代码会自动添加索引后缀避免报错
• 操作前建议备份工作簿，防止意外问题

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