Excel 多個sheet拆分成多個單獨的Excel

Excel 多個sheet拆分成多個單獨的Excel

【Excel】.xlsx格式檔案拆分

右擊單個工作表，選擇“檢視代碼”，貼入如下VB code，點選Run

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:=xlWorkbookDefault  '将工作簿另存為EXCEL預設格式
           ActiveWorkbook.Close
       Next
       MsgBox "檔案已經被分拆完畢!"
   End Sub