VBA批量重命名工作表需逐个设置Name属性，不可对多表集合直接赋值；须校验名称长度≤31、无非法字符、不重复，并建议用On Error Resume Next容错。
用VBA一次性重命名多个工作表
Excel本身不支持选中多个工作表后统一改名（右键→“重命名”仅对活动表生效），必须靠VBA实现批量操作。核心是遍历 Worksheets 集合，按规则或列表赋值 Name 属性。
常见错误：直接写 Sheets(Array("Sheet1","Sheet2")).Name = "New" 会报错——Name 属性不支持对多表批量赋值，必须单个设置。
- 确保工作表名长度 ≤ 31 字符，且不包含
\ / ? * [ ]等非法字符 - 新名称不能与现有工作表名重复，否则运行时抛出“不能重命名工作表”的错误
- 建议先用
On Error Resume Next捕获个别失败，避免整个循环中断
从单元格列表读取新名称并应用
最实用的场景：把A1:A10里写的10个新名字，依次对应当前工作簿前10个工作表。关键点在于数据源位置、范围匹配和越界防护。
示例代码逻辑（粘贴到VBA编辑器后运行）：
Sub RenameFromRange()
Dim ws As Worksheet, i As Long
Dim nameRange As Range
Set nameRange = ThisWorkbook.Sheets(1).Range("A1:A10") ' 修改此处为你的数据区域
For i = 1 To nameRange.Cells.Count
If i <= Worksheets.Count Then
On Error Resume Next
Worksheets(i).Name = Trim(nameRange.Cells(i).Value)
On Error GoTo 0
End If
Next i
End Sub-
Trim()去除名称前后空格，避免因看不见的空格导致重命名失败 - 必须检查
i ，否则当单元格行数 > 实际工作表数时会报“下标越界” - 若数据在其他工作簿，需显式指定
Workbooks("xxx.xlsx").Sheets(1).Range(...)
按固定规则批量生成名称（如“日报_20240101”）
适合日志类工作簿，每天新增一个表并自动命名。关键是用字符串拼接 + 日期函数，同时规避重名风险。
典型写法：
Sub AutoNameByDate()
Dim i As Long
For i = 1 To Worksheets.Count
Worksheets(i).Name = "日报_" & Format(Date - (Worksheets.Count - i), "yyyymmdd")
Next i
End Sub-
Format(Date - (Worksheets.Count - i), "yyyymmdd")让第1个表是最早日期，最后一个表是今天——反向推算，避免手动调整 - 如果已有同名表存在，VBA会静默跳过（因未处理错误），建议加判断：
If Not SheetExists("日报_" & newDate) Then ... - 中文Windows下
Format函数可能返回带“年月日”的本地化格式，务必用"yyyymmdd"显式指定
重命名时被占用或含非法字符怎么办
实际批量操作中最常卡在这一步：某个新名字已被占用，或含不可见字符（比如换行符、全角空格），导致整批失败。
必须预处理名称字符串：
- 用
Replace(str, vbLf, "")和Replace(str, vbCr, "")清除换行 - 用正则或循环替换全角字符：
str = Replace(str, " ", " ")（注意全角空格ASCII码不同） - 检测是否已存在同名表：
Application.WorksheetFunction.CountIf(Sheets, newName) = 0或自定义函数SheetExists(newName) - 超长截断：
Left(newName, 31)，但需注意截断后仍要保证唯一性
真正麻烦的不是写代码，而是名字来源不可控——比如从外部CSV导入的表名常混有BOM头、不可见控制符，这类问题往往要调试半天才定位到根源。
