如何把excel工作表分开拆分

时间：2021.08.23 发布人：Mage.Yang
如何把excel工作表分开拆分

已解决问题

谷歌Mage.Yang用户在2021.08.23提交了关于“岳麓山如何把excel工作表分开拆分”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-09-21T05:42:18。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，感谢你,我会记得你对我的好的 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：匿名用户  

拆分一个Excel工作簿问答中的多个工作表方法：

1、打开需要编辑的Excel件某州右际率编安型文档。工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。

2、右键任意一个工作表标签，在出的下拉列表中选择查看代码。即出代码窗口。

3、点击菜单插入-模块

在出的模块对话框中

输入以下代码：

Private

Sub

分拆工作表()

Dim

sht

As

Worksheet

Dim

MyBook

As

Work什种念易地超棉book

Set

MyBook

=

县烈呼究批ActiveWorkbook

F袁价七烟记统进副帮or

Each

sht

In

MyBook.Sheets

sht.Copy

见ActiveWorkbook.S**eAs

Filename:=MyBook.Path

&

"\"

&

***.Name,

FileFormat:=xlNormal

'将工作簿另存为EXCEL默认格式

ActiveWorkbook.Close

Next

MsgBox

"文件已经被分拆完毕!"

End

Sub

4、单击运行-运行子过程|窗体

几秒过后

出提示窗口“文件已被化速济蛋款西利罗发已拆分完毕”。

5、返回Excel工作簿文件所在路径

查看原先工作簿中的工作表已经成为单独的工作簿了！不信

可以对照查看图中的修改日期

。