第一步:
第二步: “右键” “查看代码”
第三步: 添加下方代码,“运行”
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
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub