方法/步骤1:
1.打开需要处理的EXCEL文件

方法/步骤2:
2.按alt+F11***或***右击点查看代码

方法/步骤3:
3.插入一个模块

方法/步骤4:
4.在模块中输入以下代码

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默认格式
    ActiveWorkbook.Close
    Next
    MsgBox "文件已经被分拆完毕!"
    End Sub

方法/步骤5:
5.运行代码, 点击上面的小三角

方法/步骤6:
6.查看结果

注意事项
事先需要启用宏。文件-EXCEL选项-信任中心-宏设置-启用所有宏
输入代码后，需要另存为启用宏的工作簿
单引号后面的是注释，可以不用输入也可以运行