1、启用Excel宏，复制100份工作薄，输入以下代码，并运行：Sub test() For m = 2 To 12 Sheets("1月").Copy Sheets(Sheets.Count) ActiveSheet.Name = Format(m, "0月") NextEnd Sub如：Sub test() For m = 2 To 100 Sheets("浦西").Copy Sheets(Sheets.Count) ActiveSheet.Name = Format(m, "浦西0") NextEnd Sub以上表示从第二个表开始，依次建立100个工作簿，名称分别为“浦西1”、“浦西2”、“浦西3”------“浦西100”。
2、将这100份工作薄名导出，输入以下宏命令，并执行：Sub YanMing() '导出工作薄名称Dim SH As Integer For SH = 2 To Sheets.Count Sheets(1).Cells(SH, 1) = Sheets(SH).Name NextEnd Sub3、更改工作表名Sub GaiMing() '更改工作表名称Dim SH As Integer For SH = 2 To Sheets.Count If Sheets(1).Cells(SH, 2) <> "" Then Sheets(SH).Name = Sheets(1).Cells(SH, 2) '改名，引用第一个工作表的A2,A3,A4....... End If NextEnd Sub以上表示从第二个工作薄到最后一个工作薄的名称，显示在A列。
3、更改已经导出的工作薄名称，将需要的最终名称贴在对应A列名称后面的B列上，输入以下宏命令，并执行：Sub GaiMing() '更改工作表名称Dim SH As Integer For SH = 2 To Sheets.Count If Sheets(1).Cells(SH, 2) <> "" Then Sheets(SH).Name = Sheets(1).Cells(SH, 2) '改名，引用第一个工作表的A2,A3,A4....... End If NextEnd Sub执行后就可以得到需要的全部工作薄名称了。
