Excel批量改名、批量生成工作薄

1、启用Excel宏，复制100份工作薄，输入以下代码，并运行：

Sub test()

    For m = 2 To 12

        Sheets("1月").Copy Sheets(Sheets.Count)

        ActiveSheet.Name = Format(m, "0月")

    Next

End Sub

如：

Sub test()

    For m = 2 To 100

        Sheets("浦西").Copy Sheets(Sheets.Count)

        ActiveSheet.Name = Format(m, "浦西0")

    Next

End 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

    Next

End Sub

3、更改工作表名

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

    Next

End 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

    Next

End Sub

执行后就可以得到需要的全部工作薄名称了。