打开开发工具，点击宏代码编辑器
然后右键插入模块
把代码复制粘贴进去，根据需要修改存放路径，保存以后执行拆分工作簿的代码就ok了！
不会的可以看我的视频教学哦～
总结：开发工具➡️宏代码编辑器➡️空白区域右键插入模块➡️代码复制粘贴进去，修改拆分后存放的路径➡️保存后在Excel点击宏，选择拆分工作簿，执行，然后就自动拆分了！比你手动复制粘贴快多了！
代码：
Sub 拆分工作簿()
Dim mybook As Workbook
Dim i As Integer
Set mybook = ActiveWorkbook
For i = 1 To mybook.Worksheets.Count
mybook.Worksheets(i).Copy
ActiveWorkbook.SaveAs Filename:="d:UsersAdministratorDesktop新建文件夹" & mybook.Worksheets(i).Name & ".xlsx"
ActiveWindow.Close
Next i
End Sub
