可通过vba批量重命名工作表：按alt+f11打开编辑器，插入模块后粘贴代码，用array定义新名称，循环为各工作表赋名，需确保数组长度不小于工作表数量。
如果您需要为Excel工作簿中的多个工作表统一修改名称，手动逐一重命名效率低下且易出错。以下是通过VBA实现批量重命名工作表的具体操作方法：
一、使用VBA循环重命名所有工作表
该方法适用于将所有工作表按固定规则（如“Sheet1”、“Sheet2”…）或按指定数组顺序重命名。需确保工作表数量不超过目标名称数组长度，否则将跳过多余工作表。
1、按Alt + F11打开VBA编辑器。
2、在左侧工程资源管理器中，右键点击当前工作簿名称，选择“插入”→“模块”。
3、在新建模块窗口中粘贴以下代码：
Sub RenameAllSheets()
Dim i As Integer
Dim newName As Variant
newName = Array("销售数据", "采购记录", "库存汇总", "财务报表")
For i = 1 To Worksheets.Count
If i
Worksheets(i).Name = newName(i - 1)
End If
Next i
End Sub
4、将Array(...)中的字符串替换为您所需的工作表名称，注意中文引号必须为英文半角引号。
5、按F5运行宏，所有工作表将按数组顺序依次重命名。
二、根据单元格内容批量命名工作表
该方法适用于工作表名称已预先列在某一工作表（如“目录”）的指定列中，VBA读取该列内容并逐个赋值给对应工作表。要求名称不重复且符合Excel命名规范（不能含\ / ? * [ ]等字符，长度≤31）。
1、在工作簿中新建一个名为“目录”的工作表，并在A1开始向下连续填写新表名（如A1=“Q1汇总”，A2=“Q2汇总”…）。
2、按Alt + F11打开VBA编辑器，插入新模块。
3、粘贴以下代码：
Sub RenameByCell()
Dim ws As Worksheet, i As Integer
i = 1
For Each ws In ThisWorkbook.Worksheets
If ws.Name "目录" Then
ws.Name = Sheets("目录").Cells(i, 1).Value
i = i + 1
End If
Next ws
End Sub
4、确保“目录”工作表位于最前或非被重命名之列，且A列无空单元格。
5、运行宏后，除“目录”外的所有工作表将按A列顺序完成重命名。
三、按序号加前缀批量重命名
该方法适用于对现有工作表统一添加编号前缀（如“01-销售”、“02-采购”），保留原名主体结构。原始工作表顺序即为编号依据，不可随意拖动调整位置。
1、按Alt + F11打开VBA编辑器，插入新模块。
2、粘贴以下代码：
Sub RenameWithNumberPrefix()
Dim i As Integer, ws As Worksheet
Dim prefix As String
prefix = "数据"
i = 1
For Each ws In ThisWorkbook.Worksheets
ws.Name = Format(i, "00") & "-" & prefix & i
i = i + 1
Next ws
End Sub
3、修改prefix = "数据"为所需前缀文字。
4、运行后，第一张表命名为“01-数据1”，第二张为“02-数据2”，依此类推。
