你正在处理一份Excel报表，里面密密麻麻排了十几个工作表标签——Sheet1、Sheet2、Sheet3……看起来既混乱又不专业。

现在你需要把它们批量改成“销售部日报”“采购部周报”“库存月结”这类业务名称。一个一个双击改名？太慢了，还容易输错。得用系统化方法。

用VBA宏按固定列表重命名

这个方法适合新名称已经确定、数量不多（十个以内）、而且你不想碰代码、不想装插件的用户。直接把名称写死在代码里，运行一次全改完。

操作也不复杂：

• 按下Alt + F11进入VBA编辑器。
• 在左侧“工程资源管理器”里右键当前工作簿，插入一个模块。
• 然后把下面这段代码粘贴进去——记得把引号里的名称换成你自己的（用英文逗号隔开，数量不能超过工作表总数）：

Sub BatchRenameSheets()
    Dim arrNames As Variant
    arrNames = Array("销售部日报", "采购部周报", "库存月结", "客户回访记录")
    Dim i As Integer
    For i = 0 To UBound(arrNames)
        If i < Worksheets.Count Then Worksheets(i + 1).Name = arrNames(i)
    Next i
End Sub

光标放到代码里任意位置，按F5运行，所有对应序号的工作表就会立刻更新为新名称。

用VBA从单元格读取名称自动赋值

当新名称已经整理在某个工作表（比如Sheet1的A列）里，而且顺序需要严格对应工作表的物理顺序时，这个方法最稳妥。基础版已经足够大多数场景使用。

方法一：基础版（推荐新手）

同样的打开VBA编辑器，插入模块，粘贴以下代码：

Sub RenameFromRange()
    Dim i As Long
    For i = 1 To Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
        If i <= Worksheets.Count Then
            On Error Resume Next
            Worksheets(i).Name = Trim(Sheets("Sheet1").Cells(i, 1).Value)
            On Error GoTo 0
        End If
    Next i
End Sub

运行前确认一下：数据源工作表确实叫“Sheet1”，而且A列第一行是名称，没有空行。
特别留意：如果A列某个单元格是空的，或者包含非法字符（比如 / * [ ] ），那个工作表名会保持不变，不会报错中断。

方法二：增强校验版（防重名+长度控制）

如果你担心重名或名称超长导致运行中断，可以用下面这个更完善的版本，把核心循环段替换成：

    Dim newName As String
    newName = Trim(Sheets("Sheet1").Cells(i, 1).Value)
    If newName <> "" And Len(newName) <= 31 Then
        If Not WorksheetExists(newName) Then
            Worksheets(i).Name = newName
        End If
    End If

这段代码会直接跳过空值、超长名称和已经存在的名称，避免运行中断。不过需要额外加一个判断函数到模块最下方：

Function WorksheetExists(wsName As String) As Boolean
    On Error Resume Next
    WorksheetExists = Not Worksheets(wsName) Is Nothing
    On Error GoTo 0
End Function

用Kutools插件可视化批量操作

如果你经常处理大量Excel文件，又不想碰代码，Kutools这类插件能让你三步搞定——甚至连鼠标都不用多点几次。

• 第一步：安装并启用Kutools for Excel，顶部菜单会出现Kutools选项卡。
• 第二步：点击Kutools → 工作表 → 重命名工作表。
• 第三步：在弹出的窗口里勾选要修改的工作表，选择“按单元格值重命名”，然后点击“选择范围”按钮，框选你准备好的新名称区域（比如Sheet1!$A$1:$A$8），点确定。

这一步操作起来很直观：直接把名称区域拖进去就行。必须确保所选单元格数量不超过当前选中的工作表数量，否则多余名称会被忽略。

用快捷键组合逐个快速重命名

当只有五到八个工作表需要人工核对命名，而且你想追求零学习成本、不依赖外部工具的时候，这套键盘流效率极高。熟练之后，单张表改名不超过三秒。

1. 鼠标单击第一个目标工作表标签（比如Sheet1），让它变成活动表。
2. 按 Alt + H > O > R，光标会立刻跳入名称编辑框。
3. 输入新名称（比如“销售部日报”），然后按Enter确认。
4. 按 Ctrl + Page Down 切换到下一个工作表标签。
5. 重复②→④，形成“快捷键→输入→回车→翻页”的机械节奏。

全程不用碰鼠标，眼睛只看屏幕，手不离主键盘区。如果中途输错了，直接按Backspace删掉重来。千万别用鼠标去点其他地方——会打乱节奏。

《夸克》非常好用的免费AI浏览器

下载APP查看