【原】朋友们，我带着一个好用的工具回来了

要是问我疫情对工作最大的影响是什么？

那就是人变少了，工作量加大了。

作为底层搬砖小工，我面临的是日益增长的工作量和日益减少的人手之间的矛盾。

而招人是不可能招人的，疫情结束之前是绝不可能招人的。

此情此景，同司的热情的小伙伴纷纷给了我“贴心”的建议：

你来公司打地铺吧！

你把你现在租的房子退了，来搬到公司旁边住吧！

其实我觉得你这么年轻，一天睡4个小时足够了！

.........

每当加班加到怀疑人生的时候，我会偷偷翻看一下招聘的app。

然后，我发现招聘的岗位明显减少，即使招人，用人的画风变成希望候选人十八般武艺样样精通，而且年轻，而且学历高，而且愿意无偿加班，而且要的工资低。

吓得我赶紧关掉了app,老老实实继续干活。

但在我一次次将多个工作表另存为多个工作簿，时不时在点击“移动或复制”后忘记点“建立副本”后，我非常想把自己的电脑砸掉。

于是我开始搜如何快速拆分工作表，然后发现了VBA这个神器！

简直拯救我于水深火热之中！一扇新世界的大门打开了！

VBA是内嵌入excel的编程工具，各位老铁打开excel后，按【Alt+F11】就可以调出编程界面，

然后输入如下代码就可以完成工作表的自动拆分另存！

sub chaifen()

Dim sht As Worksheet 

'定义变量

For Each sht In Worksheets 

'设置循环，对工作簿中的每一张工作表执行如下操作

sht.Copy 

'复制工作表

ActiveWorkbook.SaveAs Filename:="d:\data\" & sht.Name & ".xlsx"

'将复制的工作表另存为工作簿，且以工作表的名字命名

ActiveWorkbook.Close

'关闭复制后的工作簿

Next

End sub

写好代码运行后，整个运行过程不超过10秒。

今天有点晚了，就先写到这里，下周继续给各位老铁分享，嘻嘻~