文章目录
[+]
手把手系列传授教化，本期就来讲一讲如何高效拆分事情表，提高您的事情效率。
Excel拆分事情表
1.例如，一个Excel事情簿，有三张事情表，分别是一、二、三表，目的想要分别拆分这三个表。
2.右击事情表名称，比如这里右击“一”这个事情表，弹出的窗口中单击“查看代码”
（图片来自网络侵删）
3.在弹出的对话框中，输入如下代码
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
4.单击“运行”中的“运行子过程/用户窗体”
5.之后会弹出文件已经分拆完毕提示
6.可以看到当前文件夹下面拆分玩的三个文件
欢迎大家留言谈论，喜好的话点点关注哦。
