注意：本操作以wps為例，其它的請自行測試

（1）下載【wps vba宏插件】

（2）點擊 【開發(fā)工具】--》【vba編輯器】--》【插入】--》【模塊】

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:=xlNormal '將工作簿另存為EXCEL默認(rèn)格式

ActiveWorkbook.Close

Next

MsgBox "文件已經(jīng)被分拆完畢!"

End Sub