Question

如何批量修改excel sheet名称

Answer 1

1、【第一步】 打开需要批量更改工作表名称的工作簿，在第一个工作表之前插入一个新的工作表，名称为“目录”，再单击到目录工作表中

2、【第二步】 用鼠标右键单击“目录”工作表名称，在弹出的菜单中选择“查看代码”，之后就会打开代码编辑器，或者直接按下组合键Alt+F11来打开代码编辑窗口。

3、【第三步】 在打开的VB代码编辑窗口中，选择插入新的模块，把下面的代码复制粘贴到模块中，再点击开始运行代码，然后最小化代码窗口。

4、【第四步】 运行“获取各工作表的名称”代码组之后，我们将会看到在“目录”工作表中第一列出现了每个工作表的名称，并按工作表顺序排列。

5、【第五步】我们需要在 第二列中输入要更改的新名称，如A2为二班，  B2输入Class 2，输入的新名称也要按着工作表顺序排列好。当然也可以改为其他名称。

Answer 2

方法/步骤

首先，我们来准备新的名字，对应相应的工作表，从A2单元格开始，A1存放标题字段。

新名字全部准备好后，然后任意工作表标签右击，点击查看代码，或者ALT+F 11快捷键，调出VBE对话框。

进入VBE对话框后，右击thisworkbook,选择插入，然后选择模块。

双击模块，进入代码输入框输入一下代码
Sub 重命名()
Dim i&
For i = 2 To Sheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1)
Next
End Sub
也可以记住，下次直接粘贴即可，代码通用。

然后点击开发工具选项卡，在控件下面选择按钮控件（开发工具选项卡一般默认是没有的，具体可参考我前面的经验，有具体介绍如何调出）

在空白处，拖动鼠标，画出一个大小适合的按钮，然后右击选择制定宏。

选择重命名，然后点击确定。

Answer 3

方法/步骤

首先，我们来准备新的名字，对应相应的工作表，从A2单元格开始，A1存放标题字段。

新名字全部准备好后，然后任意工作表标签右击，点击查看代码，或者ALT+F 11快捷键，调出VBE对话框。

进入VBE对话框后，右击thisworkbook,选择插入，然后选择模块。

双击模块，进入代码输入框输入一下代码
Sub 重命名()
Dim i&
For i = 2 To Sheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1)
Next
End Sub
也可以记住，下次直接粘贴即可，代码通用。

然后点击开发工具选项卡，在控件下面选择按钮控件（开发工具选项卡一般默认是没有的，具体可参考我前面的经验，有具体介绍如何调出）

在空白处，拖动鼠标，画出一个大小适合的按钮，然后右击选择制定宏。

选择重命名，然后点击确定。

Answer 4

看了上面几个回答，在2010测试了下，或多或少有点报错（可能是office版本的原因吧），我用的是2010版office，简单修改了下，亲测OK，分享给大家：
Sub name()
For i = 1 To Sheets.Count
Sheets(i).name = Sheet1.Cells(i, 1)
Next
End Sub
原理：还是在第一个工作表中第一列取值，对所有工作表重命名。

Answer 5

仪表图