如何忽略VBA重命名工作表时的“名称已被占用”错误？

当多个工作表的B3单元格内容重复时，原代码会触发重命名冲突错误。要忽略该错误并继续处理其他工作表，可以通过添加错误处理逻辑实现：

修改后的代码如下：

Sub RenameSheet()
    Dim rs As Worksheet
    
    For Each rs In Sheets
        ' 临时忽略错误，遇到重命名冲突时跳过当前操作
        On Error Resume Next
        rs.Name = rs.Range("B3")
        ' 恢复默认错误捕获，避免遗漏其他类型错误
        On Error GoTo 0
    Next rs
End Sub

代码说明 #

• On Error Resume Next：让VBA在遇到错误时跳过当前执行行，继续处理下一个工作表，重名冲突的工作表会保持原名称，不会中断整个循环。
• On Error GoTo 0：恢复默认的错误检测机制，确保后续代码若出现其他错误（比如B3单元格为空、内容包含非法字符）能正常触发提示，避免全局忽略所有错误。

如果需要更友好的处理（比如给重名工作表自动添加序号后缀），可以参考以下进阶方案：

Sub RenameSheetWithUniqueNames()
    Dim rs As Worksheet
    Dim newName As String
    Dim nameCounter As Integer
    
    For Each rs In Sheets
        newName = rs.Range("B3").Value
        nameCounter = 1
        ' 检查名称是否已存在，若存在则添加序号后缀
        Do While SheetExists(newName)
            newName = rs.Range("B3").Value & "_" & nameCounter
            nameCounter = nameCounter + 1
        Loop
        rs.Name = newName
    Next rs
End Sub

' 辅助函数：检查工作表名称是否已存在
Function SheetExists(sheetName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(sheetName)
    SheetExists = Not ws Is Nothing
    On Error GoTo 0
End Function

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