本文轉(zhuǎn)載自公眾號：精算師備考聯(lián)盟，原創(chuàng)作者：Min，本文著作權(quán)歸原創(chuàng)作者所有，本人收藏此文僅作為學(xué)習(xí)之用，不作其他目的，如有侵權(quán)，請聯(lián)系我刪除。

在日常工作中，有時會有遇到需要將輸出多個表格的情況，如下所示：

共有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句：關(guān)閉屏幕閃爍

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

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

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

第13句：打開屏幕閃爍

2、拆分匯總表法：（vba）

原理是根據(jù)匯總表的A列進(jìn)行分類另存

代碼比較長，放文末文件中，需要可自行下載。

3、直接另存法

Ps：該法僅適用于少量的表格，若表格過多，建議使用法1或2

步驟：右鍵單擊表格--移動或復(fù)制--新工作簿

第1步

第2步

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

最后附上文件鏈接：

鏈接：

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

提取碼：8fy1