批量重命名看似只是一行Name赋值，真正容易出错的是名称超过31个字符、含非法符号、目标名已经存在或源表名写错。可靠的宏应先完整检查映射，再统一执行，而不是边检查边修改。

重命名前必须验证的规则

检查项失败条件
源工作表映射表中的旧名称在当前工作簿不存在。
新名称长度为空或超过31个字符。
非法字符包含冒号、反斜杠、斜杠、问号、星号或方括号。
名称唯一性两个源表映射到同一新名，或新名已被其他工作表占用。

先预检再执行的宏流程

  1. 建立两列表映射

    A列写当前工作表名称，B列写目标名称；映射表自身应排除在重命名范围之外。

  2. 遍历但暂不改名

    把所有错误写入状态列，统计错误数量。只要存在一项错误，就退出过程并让用户先修正。

  3. 解决名称交换冲突

    “一部”改“二部”且“二部”改“一部”时，应先使用唯一临时名，再完成最终名称，避免中途重名。

  4. 执行并记录结果

    关闭屏幕刷新但保留错误处理，完成后恢复应用状态，并在日志列写入时间和结果。

十二张月份表改为部门名称

原工作表名为Sheet1到Sheet12，映射表对应十二个部门。预检发现“研发/测试”含斜杠，“销售部”出现两次，宏应一张都不修改，并在两行分别写明非法字符和目标重名。

修正为“研发测试部”和“销售一部、销售二部”后再次运行。重命名完成后应检查含工作表名的公式、图表系列和外部链接；Excel通常会更新内部引用，但写死在文本或VBA字符串中的名称不会自动改变。

宏运行后的复核范围

  • 工作表数量是否与运行前一致。
  • 每个目标名称是否只出现一次且顺序未被改变。
  • 公式、数据验证、图表和查询中的工作表引用是否可用。
  • 保存、关闭并重新打开副本后，工作簿是否仍能正常计算。

安全的批量重命名不是把循环写得更短，而是让所有失败条件在改名之前暴露。对正式工作簿保留映射表和运行日志，后续才能知道名称何时、按什么规则变化。

需要从部门清单直接生成新表时可查看Excel VBA批量创建工作表：按部门名单生成并避免重名；运行任何来源不明的宏前，应先按Excel宏安全设置：受信任位置、数字签名和文件来源核对文件来源和安全设置。