vba代码-7-拆分工作表

本文转载自公众号：精算师备考联盟，原创作者：Min，本文著作权归原创作者所有，本人收藏此文仅作为学习之用，不作其他目的，如有侵权，请联系我删除。

在日常工作中，有时会有遇到需要将输出多个表格的情况，如下所示：

共有3张表格，需要将除了汇总表以外的表格另存为单个表格。

方法如下：

1、拆分工作表法：（vba）

代码如下：

Sub 分拆工作表()

Application.ScreenUpdating = False

    Dim sht As Worksheet

    Dim MyBook As Workbook

    Set MyBook = ActiveWorkbook

    For Each sht In MyBook.Sheets

    If sht.Name <> '汇总表' Then

        sht.Copy

        ActiveWorkbook.SaveAs Filename:=MyBook.Path & '\' & sht.Name, FileFormat:=xlOpenXMLWorkbook     '将工作簿另存为xlsx格式

        ActiveWorkbook.Close

    End If

    Next

    MsgBox '拆分完成!'

Application.ScreenUpdating = True

End Sub

示例动画如下：

代码解析：

第1句：关闭屏幕闪烁

第2-4句：定义工作表、工作簿

第5-11句：拆分工作簿并命名

第12句：输出“拆分完成！”

第13句：打开屏幕闪烁

2、拆分汇总表法：（vba）

原理是根据汇总表的A列进行分类另存

代码比较长，放文末文件中，需要可自行下载。

3、直接另存法

Ps：该法仅适用于少量的表格，若表格过多，建议使用法1或2

步骤：右键单击表格--移动或复制--新工作簿

第1步

第2步

以上为拆分工作表常用的方法

最后附上文件链接：

链接：

https://pan.baidu.com/s/1AR4tXbfvjiQzHSwqMYFiTQ

提取码：8fy1