订阅excel一个工作薄多个sheet表批量分拆
来源：网络收集 点击： 时间：2024-08-26【导读】：
一个excel工作表里多个sheet表可以通过设置一次性批量分拆成多个excel文件工具/原料more一台电脑方法/步骤1/7分步阅读
2/7
3/7
4/7
5/7
6/7
7/7
新建一个excel工作表
2/7插入多个sheet表，修改名称为新建1、新建2、新建3、新建4、新建5、新建6、新建7、新建8、新建9
3/7在新建1上点右键，出现的弹出选项中，选择查看代码（v）
4/7在弹出的对话框点插入，选择模块。
5/7在模块的对话框输入，以下代码：
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
6/7选择运行，点击运行子过程
7/7显示拆分完成，拆分成功
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_1159256.html
上一篇：欢心直播怎么启用震动
下一篇：如何做杏鲍菇炒西葫芦
