#6e教你化繁为简#—如何有智慧的分开“工作”、“家庭”和“社交”

作者：微信号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、你离胜利就差一步

编辑好弹出来的邮件，点发送就大功告成了！

拿走！不谢！我的愿望是众生离苦得乐！