概述
1.打开需要拆分sheet表的excel文件
2.在sheet表上鼠标右键，选择【查看代码】
3.在打开的界面中点击【插入】------>选择【模块】
4.在空白窗口中粘贴如下的代码：
Sub slip()
Dim sht As Worksheet, folder As String
folder = ThisWorkbook.Path
Application.DisplayAlerts = False
For Each sht In Worksheets
sht.Copy
ActiveSheet.Name = "sheet1"
ActiveWorkbook.SaveAs folder & "" & sht.Name & ".xlsx"
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
End Sub
5.点击运行—>运行过程/用户窗体
最后
以上就是舒适夏天为你收集整理的将一个excel表中的多个sheet表进行拆分的全部内容，希望文章能够帮你解决将一个excel表中的多个sheet表进行拆分所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复