【批量】拆分工作簿中的表为独立工作簿

        工作当中经常会有人，把每个月或者每个部门的数据存放在同一个工作簿的新建工作表之中，之后又会遇到要把他们分开的需求，今天我们先来解决把工作簿中的工作表一键拆分成单个独立的工作簿的技巧吧！

        正式介绍方法之前，我们先新建一个工作簿，其中存放有1班，2班，3班，4班，5班，六班等6张工作表，假定每张工作表上分别存放对应班级的人员期末考试成绩。如下图所示：

原来的工作簿

制作过程

主要是运用成组工作表的功能。

操作如下：

打开VBE编辑器

粘贴如下所示代码：

 Sub 拆分工作簿()

    Dim i As Integer, s As Worksheet

Rem 忽略代码运行中的错误

    On Error Resume Next

Rem 关闭屏幕刷新

    Application.ScreenUpdating = False

Rem 循环每一张工作表

    For Each s In Worksheets

Rem 将工作表另存后关闭

        s.Copy

        ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & s.Name & '.xlsx'

        ActiveWorkbook.Close

    Next

Rem 恢复屏幕刷新

    Application.ScreenUpdating = True

End Sub

点击F5，就会在原工作簿所在的位置，生成所有的工作簿。此代码是通用的哦！如果您喜欢就请点赞吧！