一张工作表拆分为多张工作表、一个工作簿拆分为多个工作簿
我的第2版Excel新书《Excel职场手册：260招菜鸟变达人》5月10日出版啦，比第1版增加了很多内容，操作动画和视频共100个，定价不变，非常超值。
示例文件、操作动画和视频也可以到我的微云上下载，链接地址 http://url.cn/51t8vU7
购书网址：
京东网：http://item.jd.com/12072001.html
当当网：http://product.dangdang.com/25073253.html
亚马逊：https://www.amazon.cn/dp/B0711DZB44
人民邮电出版社异步社区 ：http://www.epubit.com.cn/book/details/4766
天猫：https://detail.tmall.com/item.htm?
spm=a220m.1000858.1000725.171.10JReA&id=550004809791&user_id=2049420857&cat_id=2&is_b=1&rn=64312a65425de0826a7ab9b7af05f609
昨天分享了多工作簿和多工作表合并，有合必有分，有粉丝问到怎样拆分一张工作表为多张工作表和多个工作簿，这个问题之前小编写过，今日再次分享如下：
今天给大家分享一张工作表拆分为多张工作表、一个工作簿拆分为多个工作簿。
一张工作表拆分为多张工作表之前分享过，点击文字即可查看。
一个工作簿拆分为多个工作簿需要用到VBA,代码如下：
Option Explicit
Sub 拆分表格()
Dim x As Integer
Dim wb As Workbook
Application.ScreenUpdating = False
For x = 2 To Sheets.Count
Sheets(x).Copy
Set wb = ActiveWorkbook
With wb
.SaveAs ThisWorkbook.Path & "\3月\" & Sheets(1).Name & ".xlsx"
.Close True
End With
Next x
Application.ScreenUpdating = True
End Sub
文件下载地址 http://url.cn/45jp361，可以下载后运行，该代码将一个工作簿的除第一张工作表以外的所有工作表保存为单独的excel文件到3月文件夹中。
工作簿有这些工作表：
拆分后的文件如下图：
今天的分享到此结束，如果想看更多历史文章，请从菜单所有文章查看。