Excel一个工作簿中多个工作表拆分成多个独立的工作簿!

Excel情报局
Excel职场联盟
生产挖掘分享Excel基础技能
Excel爱好者大本营
用1%的Excel基础搞定99%的职场问题
做一个超级实用的Excel公众号
Excel是门手艺玩转需要勇气
数万Excel爱好者聚集地
SUPER EXCEL MAN

前言|职场实例

一个Excel工作簿中会出现有很多个工作表的情况,有时会根据需要将他们拆分成不同的工作簿,我们该怎么做呢?

下面小编用一个简单的例子来模拟解决这个“批量拆分”的问题。

如下图所示:在一个文件夹中,存放着一个需要批量拆分工作表的总表工作簿,工作簿中含有三个工作表,名称分别为“1月工资表”,“2月工资表”,“3月工资表”。

这些工作表单独拆分开成一个个工作簿后的效果:

步骤|解决方案

打开总表工作簿,首先按下快捷键Alt+F11调出VBA界面(或者右击工作表,选择查看代码),点击“插入-模块”,复制粘贴代码放进新建的模块中。如下图所示:

代码如下:

Private Sub 分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式ActiveWorkbook.CloseNextMsgBox "文件已经被分拆完毕!"End Sub

点击“运行”按钮,几秒过后,弹出提示窗口“文件已被拆分完毕” ,如下图所示:

最后我们回到原工作簿的根目录文件夹,发现工作表已经全部分解成功。打开拆分完成的每个独立的工作簿,如下图所示:

阅读完文章之后,希望小伙伴们在文章底部帮助小编[点赞]点亮[在看]并分享转发到[朋友圈],坚持持续分享的路上很辛苦,需要有你们的鼓励与支持!您也可以通过在文章底部[留言]的方式来反馈实际办公中遇到的Excel问题场景。
(0)

相关推荐