EXCEL中如何给sheet页批量重命名

1、我们先把需要批量重命名的”名“在一个sheet页的第一列按序列示好，如图。在举的例子里，我们需要将这些外国的名字，每个国家设置一个sheet页

2、然后批量创建好新的sheet页，这个可以参考我的另外一篇经验，”EXCEL中如何批量新建sheet页“

3、按”开发工具“→”visual basic“

4、如图选择新建“模块”，在这里要注意，要按到右侧小箭头哦

5、将这段代码复制进去

——————————————————————————

Sub 重命名()

Dim i&

For i = 2 To Sheets.Count

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

Next

End Sub

6、按图中的运行键运行

然后关闭视图回到正常的EXCEL页面

这里由于我们在“世界国家”的sheet页里的第一行第一列有值“country”此处会跳调试窗口，无视就可以了。或者删除“country”也就不会跳调试窗口了。但对运行结果没有影响。

7、妥妥地~~那些个sheet页的名字都已经自动重命名好了