一、使用VBA宏批量重命名工作表
打开VBA编辑器 按 `Alt + F11` 打开VBA编辑器，插入新模块并输入以下代码：
```vba
Sub RenameSheets()
Dim ws As Worksheet
Dim newName As String
Dim i As Integer
' 遍历所有工作表
For i = 1 To ThisWorkbook.Sheets.Count
newName = "Sheet" & i ' 默认命名规则
ThisWorkbook.Sheets(i).Name = newName
Next i
End Sub
```
运行后所有工作表将按顺序重命名为 `Sheet1`, `Sheet2` 等。
按规则重命名
若需根据特定规则重命名（如添加部门前缀），可在B列输入公式（如 `=E2 & "-" & A2`），然后将B列名称改为“新名称”，最后复制公式填充并重命名：
```vba
Sub RenameWithPrefix()
Dim ws As Worksheet
Dim new_name As String
Dim k As Integer
' 清空A列并设置文本格式
Range("A:A").ClearContents
Range("A:A").NumberFormat = "@"
' 填充新名称
k = 1
For Each ws In Worksheets
new_name = E2 & "-" & ws.Name
Cells(k, 1).Value = new_name
ws.Name = new_name
k = k + 1
Next ws
End Sub
```
需在A2输入初始规则（如 `部门-原始名称`），然后向下填充。
二、使用第三方工具批量修改
伙伴云批量重命名工具
支持多文件批量修改，支持自定义命名规则（如添加编号、转换大小写等），操作简单且效率高。
WPS智能工具箱
在WPS中，通过“智能工具箱”可直接批量重命名工作表，支持批量添加前缀或后缀。
三、手动批量重命名（适用于小规模修改）
复制粘贴重命名
选中多个工作表标签，右键选择“重命名”，统一输入新名称。
使用文件扩展名修改（高级用户）
- 将Excel文件转为ZIP包，修改 `workbook.xml` 中的 `sheet name` 属性，再重新打包为 `.xlsx` 格式。
注意事项
宏安全设置： 修改宏安全性设置需谨慎操作，建议仅运行可信代码。 数据备份
通过以上方法，您可高效完成批量修改表名字格式的需求。
