怎么批量修改Excel的表页名？

1、首先，新建一个表（sheet）放在第一个位置，准备好新的名字，对应相应的工作表，从A2单元格开始，A1存放标题字婶薪段。

2、首先，新建一个表（sheet）放在第一个位置，准备好新的名字，对应相应的工作表，从A2单元格开始驾辞，A1存放标题字段。

3、找到ThisWorkBook 右键 插入模块

4、输入以下代码：

Sub 重命名()

Dim i&

For i = 2 To Sheets.Count

Sheets(i).Name = Sheets(1).Cells(i, 1)

Next

End Sub

5、关闭VBE，回到Excel界面，选酱良霜择“开发者选项” -“插入”-“按钮”，随便在Excel中画一个按钮出来（如果没有“开发者选项”在工具栏右键-自定义功能区中勾选）

6、点击按钮，然后就可以把你第一个sheet删除了。

（提示：先做好备份！）