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)NextEnd Sub
6、按图中的运行键运行然后关闭视图回到正常的EXCEL页面这里由于我们在“世界国家”的sheet页里的第一行第一列有值“country”此处会跳调试窗口,无视就可以了。或者删除“country”也就不会跳调试窗口了。但对运行结果没有影响。
7、妥妥地~~那些个sheet页的名字都已经自动重命名好了