Excel-宏-將Excel多個工作表拆分成多個單獨的Excel

1.原文件

2.拆分后

3.具體操作：打開需要拆分的excel，在任意工作表右擊，點擊“查看代碼”

輸入代碼

Private Sub 分拆工作表()
       Dim sht As Worksheet
       Dim MyBook As Workbook
       Set MyBook = ActiveWorkbook
       For Each sht In MyBook.Sheets
           sht.Copy
           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook     '將工作簿另存為xlsx格式
           ActiveWorkbook.Close
       Next
       MsgBox "文件已經被分拆完畢!"
   End Sub

4.執行

5.遇到的問題

點擊是繼續即可