ARTICLE · 1256173

Sheet 改名不用逐个双击!Excel 批量修改工作表名称

发布时间：2026-10-26 23:10:06 最近访问：2026-10-26 23:10:06

2026年10月19日星期一多云⛅｜丙午年戊戌月丙寅日

哈喽，你好👋

欢迎来到「搬砖时光日记」。

文件里十几个工作表，Sheet1、Sheet2……Sheet100需要统一改成 1 、2 ……100。手动双击重命名，重复操作很费时间，还容易输错名字。今天记录1 种修改工作表名称的方法。

VBA 批量重命名（大量工作表，推荐）

1、Alt+F11打开 VBA 编辑器，插入【模块】；

2、粘贴下面代码；

Sub RenameSheet()Dim i As IntegerFor i = 1 To Sheets.CountSheets(i).Name = iNext iEnd Sub

3、按 F5 运行，自动依次改成工作表名称 1 、2 ……100。

提醒：操作前务必备份原文件！

想导出全部 Sheet 名字，整理好再批量改名，用这段 VBA：

Sub GetSheetName()Dim i As IntegerCells(1, 1).Value = "工作表名称"For i = 1 To Sheets.CountCells(i + 1, 1).Value = Sheets(i).NameNext iEnd Sub

操作步骤：

Alt+F11 打开 VBA，插入模块粘贴代码，F5 运行；

当前表 A 列，自动生成全部工作表名称。

1、如果我想将 sheet 名字改成当前表 A 列里预设的内容，程序该怎么写？

2、如果不是从 1 开始编号，而是 27、28 ……126，代码要如何修改？

1、工作表名称不能超过 31 个字符，过长会报错；

2、同一个工作簿，不能出现重名 Sheet；