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