有时，我们需要将一个excel工作薄里的每张工作表，单独存为一份工作簿。如果只有一两张工作表倒也没什么，如果一个工作簿里面有几十张表，手工这样操作即烦又慢。

如果用VBA来处理这事，那就简单了。先看效果，

动画中所使用的VBA代码如下：

 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

代码其实不复杂。

不少人对VBA代码有抵触心理，其实没有那么复杂，把他看成一个稍微复杂点的函数即可。

当然如果并不打算深入学习VBA，只是临时使用下，那只要会复制黏贴就好了！

至于怎么用VBA代码，可以参考之前的文章：

Excel vba 实例（1） - 批量制作工资表头

永恒君把上面实例的文件也分享出来，需要的直接使用也可以。

公众号后台回复“拆分”即可。

Excel VBA功能很强大，但是要熟练的运用起来还是有一定的难度，好在永恒君帮大家搜集了几套关于VBA的视频教程，非常的实用。

需要的话，后台回复“VBA”获取吧~~

欢迎交流！

微信公众号：永恒君的百宝箱

个人博客：www.yhjbox.com

转载请注明：永恒君的百宝箱 » Excel vba 实例（2） – 批量将工作表拆分为单独文件