如何批量重命名Excel中两个工作表的数百个单元格？

需求说明 #

• 目标工作表：Opponent 1、Opponent 2
• 重命名规则：Opponent 1 内的单元格名称前加 OP1_，Opponent 2 内的加 OP2_
• 示例：A1 → OP1_A1，A2 → OP1_A2

可行的VBA宏代码 #

直接用以下宏即可批量完成操作，无需手动逐个修改：

Sub AddPrefixToCellNames()
    Dim ws As Worksheet
    Dim cell As Range
    Dim prefix As String
    Dim oldName As String
    Dim newName As String
    
    ' 遍历指定工作表
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "Opponent 1"
                prefix = "OP1_"
            Case "Opponent 2"
                prefix = "OP2_"
            Case Else
                ' 跳过其他无关工作表
                GoTo NextSheet
        End Select
        
        ' 遍历工作表中所有已命名的单元格
        For Each cell In ws.UsedRange
            ' 仅处理有自定义名称的单元格（跳过默认的A1类地址名）
            If cell.Name.Name <> cell.Address(False, False, xlA1, , ws.Name) Then
                oldName = cell.Name.Name
                newName = prefix & oldName
                ' 删除旧名称，添加带前缀的新名称
                cell.Name.Delete
                ws.Names.Add Name:=newName, RefersTo:=cell
            End If
        Next cell
        
NextSheet:
    Next ws
End Sub

操作步骤 #

1. 打开目标Excel文件
2. 按下 Alt + F11 打开VBA编辑器
3. 右键点击左侧的工作簿名称 → 插入 → 模块
4. 将上述代码粘贴到模块窗口中
5. 按下 F5 运行宏，或回到Excel界面，通过「开发工具」→「宏」选择 AddPrefixToCellNames 执行

代码说明 #

• 自动识别Opponent 1和Opponent 2工作表，匹配对应前缀
• 仅处理有自定义名称的单元格，避免给默认的A1类地址重复加前缀
• 自动替换旧名称为带前缀的新名称，全程无需手动干预

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