或科室需要数据，或者需要更改数据时，我们就可以把这个科室或部门的excel文件单独发给他们。
对于如何拆分工作表，如何保存拆分后的工作表为单独excel文件，在我们的直播课程第69课《office应用必学知识：重温数据透视表 拆分excel工作表》中，已经详细的讲过了。在这里不再过多阐述，想仔细看这个教程的朋友，可以关注洛阳教育者百家号，在首页直播里看回放，进行学习。
需要给大家说明的是，在课程最后给大家展示了一段一键保存拆分后工作表的vba代码，现在把这段代码发出来，供大家使用。这段代码大家不用改动，只要按照课程的要求，打开excel开发工具，把代码放在模块里运行就行了。代码如下：
Sub 保存拆分工作表()
Dim xpath As String
xpath = ActiveWorkbook.Path
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=xpath & "\" & sht.Name & ".xlsx"
ActiveWorkbook.Close
Next
MsgBox "所有工作表保存完毕！"
End Sub
以上是全部代码，希望在excel办公过程中，能帮到大家，提高办公效率。有什么疑问欢迎留言讨论。