这是宏代码,可以解决你的问题
点击工具菜单栏选择宏,VB编辑器,将以上代码粘贴,运行即可
Sub SplitWorkBook() '拆分工作簿
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
ws.Copy
Workbooks(Workbooks.Count).SaveAs ThisWorkbook.Path & "\" & ws.Name
Next
Application.ScreenUpdating = True
End Sub