分享

vba代码-7-拆分工作表

 L罗乐 2019-09-13

本文转载自公众号:精算师备考联盟,原创作者: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

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多