一个Excel工作簿中会出现有很多个工作表的情况,有时会根据需要将他们拆分成不同的工作簿,我们该怎么做呢?
下面小编用一个简单的例子来模拟解决这个“批量拆分”的问题。
如下图所示:在一个文件夹中,存放着一个需要批量拆分工作表的总表工作簿,工作簿中含有三个工作表,名称分别为“1月工资表”,“2月工资表”,“3月工资表”。
这些工作表单独拆分开成一个个工作簿后的效果:
步骤|解决方案
打开总表工作簿,首先按下快捷键Alt+F11调出VBA界面(或者右击工作表,选择查看代码),点击“插入-模块”,复制粘贴代码放进新建的模块中。如下图所示:
代码如下:
Private 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点击“运行”按钮,几秒过后,弹出提示窗口“文件已被拆分完毕” ,如下图所示:
最后我们回到原工作簿的根目录文件夹,发现工作表已经全部分解成功。打开拆分完成的每个独立的工作簿,如下图所示:
更多资源请访问:四零四软件下载站423下载站「真诚赞赏,手留余香」
真诚赞赏,手留余香
使用微信扫描二维码完成支付
转载请注明:首页 > 投稿 » excel中的sheet怎么生成独立表格(excel中的工作表变成独立的文件教程)
发表评论
版权声明
求资源网所发布的一切破解补丁,软件,以及其他分析文章仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途。
否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。如有侵权请邮件与我们联系处理。