打開需要拆分的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 "文件已經(jīng)被分拆完畢!"
? End Sub
點擊綠色三角芭逝，運行程序塌碌，等待拆分。
拆分成功后旬盯，會彈出窗口提示台妆。
