Excel中如何批量重命名工作表名称

1、打开表格，准备好新名称，添加工作表。

2、选择任意工作表标签，右键单击，选择查看代码。或者按Alt+F11。

3、右击ThisWorkbook，选择插入，点击模块。

4、输入Sub 重命名()，换行输入Dim i&，换行输入For i=2 To Sheets.Count，换行输入Sheet(i).绿覆冗猩Name=Sheets(1).Cells(i,1)，换行输入Next，换行输入End Sub。

5、点击开发工具，选择插入，选择按钮。

6、拖动鼠标绘制按钮，选择重命名，点击确定，点击按钮即可。