新浪博客

如何将Excel中Sheet表拆成多个文档

2020-03-20 16:16阅读:
前几日登记健康卡,其中一个班级分成四组,每组有9~12人放在一个Excel文档中,好在每个sheet都以学生学号和姓名命名了,但按照要求应该一人一档(也就是一个Excel文件),明显不符合要求,本来准备让班主任老师重新分开给我,转念一想,大家都比较忙,相对来说还是我操作娴熟些,决定我自己来拆分。


如何将Excel中Sheet表拆成多个文档
于是,第一组我分别另存为9个文档,并以学生姓名命名,再逐一打开这些文档将其他学生的sheet删除。这样,第一组分别另存为9个文档,并以学生姓名命名,再逐一打开这些文档将其他学生的sheet删除。
如何将Excel中Sheet表拆成多个文档
发现每个学生需要将近1分钟时间,后面还有几十名同
学,实在不甘心这样手动操作,于是我开始尝试使用宏定义批处理,通过百度搜索加上实践,可以利用Excel中的VBA编辑代码,批量完成,并且能以sheet表名作为拆解的文档名,正好符合要求,后面几组分秒就完成拆解。具体操作方法。先按ALT + F11 键,启动VBA编辑器,然后在窗口粘贴代码,保存运行即可。


如何将Excel中Sheet表拆成多个文档


批处理代码如下:


Sub sheet转独立文件()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path &'\'
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub

我的更多文章

下载客户端阅读体验更佳

APP专享