作者：微信号woshi6e
如果你有这么一个exl文件
打开它后看到了这些名字的sheet
你想把每个sheet分别发给一个人，但又不想让任一人看到另两人的sheet
比如：
你想把“工作”发给“老板”
把“家庭”发给“妈妈”
把“社交”发给“闺蜜”
当这个需求出现在各位宝宝面前，我相信大部分宝宝都会很快完成任务
你会手动将每个sheet保存成单个文件，然后将文件拉到邮件中去发送
其实，一般情况下，6e接到这样的需求，也是这样做的。
直到有一天，老板下达一个任务
“每天！要给全国40个城市发送邮件告诉他们当天业绩
而且，不能让业绩差的“上海”看到业绩好的“北京”的业绩”
讲真，宝宝接到这个任务的时候，心情是奔溃的！
业绩做一下20分钟，可发出这40个邮件估计要1小时！
并且，每天都要发！每天都要发！每天都要发！oh my god！
宝宝心里苦，但是不能说！
只怪自己读书少，excel只会ctrl+C、ctrl+V
在6e向宇宙发出求救信号之后，度娘接到了我的召唤，来到我的眼前，并带来一串程序
对于平日里只会仰望程序猿的6e来说，只得求助
好在互联网公司大神多
接着无私的会编程的同事教会了我使用这个宏
现在我来教大家
1、把要拆分处理的文件拉到桌面上，进入该excel文件
2、在顶部菜单栏找到“宏”
3、新建宏
命名新宏，并点击创建
4、在弹出的代码编辑窗口上复制+粘贴上下面这段代码
Sub Macro1()
Dim sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\\" & sht.Name & ".xls"
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
5、点这个小绿三角后，等它跑一跑，不要关闭文件
6、接下来就是见证奇迹的时刻！
到你的桌面上去找到你想要的“工作”、“家庭”和“社交”吧!
正在这个时候，老板来电催办了，赶紧把邮件发给他
7、鼠标右键点击桌面上已经拆分开的“工作”这个文件，找到菜单中的“发送到”，在最右面的菜单点开你常用的邮箱
9、你离胜利就差一步
编辑好弹出来的邮件，点发送就大功告成了！
拿走！不谢！我的愿望是众生离苦得乐！
