1、我们先把需要批量重命名的”名“在一个sheet页的第一列按序列示好，如图。在举的例子里，我们需要将这些外国的名字，每个国家设置一个sheet页
3、按”开发工具“→”visual basic“
5、将这段代码复制进去——————————————————————————Sub 飒劐土懿重命名()Dim i&For i = 2 To Sheets.Count Sheets(i).Name = Sheets(1).Cells(i, 1)NextEnd Sub
7、妥妥地~~那些个sheet页的名字都已经自动重命名好了
