excel 拆分工作表的方法,以及excel拆分工作表的操作步骤
时间:2023-03-10 22:27:25
excel拆分工作表,是一个很典型的应用。比如一个excel工作簿中,有60张工作表。现在想利用excel拆分工作表来将这60个工作表分别下发给不同的人员。
下面这段excel拆分工作表的代码可以实现将excel拆分为不同的excel文件。
使用方法如下:
1.打开需要进行拆分的excel文件。
2.按ALT+F11,打开VBE编辑器。
3.单击插入——模块,复制下面的代码,然后按F5键运行。
通过三步就可以完成excel拆分工作表,拆分的工作表文件存放在和此文件同一路径之下。
Sub 拆分工作表()
Dim sht As Worksheet
Application.DisplayAlerts = False
For Each sht In Worksheets
sht.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & sht.Name & ".xls"
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
End Sub
下面是excel拆分工作表的一个演示截图:
excel 拆分工作表的方法,以及excel拆分工作表的操作步骤的下载地址:
标签:excel拆分工作表
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Windows XP服务怎么根据需求自行配置?
2023-10-16 01:22:42
![](https://img.aspxhome.com/file/2023/28/a251044_0s.jpg)
Win7系统鼠标灵敏度怎么调
2022-07-02 03:25:20
![](https://img.aspxhome.com/file/2023/27/a233203_0s.jpg)
微信中怎么制作出苏大强表情包?微信制作出苏大强表情包的方法
2023-09-07 14:51:51
![](https://img.aspxhome.com/file/2023/8/a334358_0s.jpg)
excel表格怎么居中并加粗标题?
2023-01-13 07:37:08
![](https://img.aspxhome.com/file/2023/7/42117_0s.jpg)
WPS Office发现未安装打印机怎么弄?
2023-08-27 05:36:21
![](https://img.aspxhome.com/file/2023/30/a265892_0s.jpg)
wps文字怎么调整行距
2023-04-09 08:52:00
![](https://img.aspxhome.com/file/2023/8/a170908_0s.png)
Mac 输入法自动切换,代码编辑器中文状态下使用英文标点
2022-09-29 17:15:33
![](https://img.aspxhome.com/file/2023/0/a209920_0s.jpeg)
PD虚拟机教程:如何在PD虚拟机中设置禁止3d加速?
2023-03-07 14:15:51
![](https://img.aspxhome.com/file/2023/9/a202439_0s.jpeg)
微软Win11正式版如何升级1.8版WSA 正式版Windows11升级1.8版WSA的方法
2023-09-08 22:33:15
![](https://img.aspxhome.com/file/2023/27/a237106_0s.jpg)
windows7怎么隐藏任务栏图标
2022-07-04 11:50:35
![](https://img.aspxhome.com/file/2023/1/a279681_0s.png)
Win10专业版提示input not supported错误要如何解决?
2023-11-23 07:39:06
![](https://img.aspxhome.com/file/2023/0/50040_0s.jpg)
ppt幻灯片怎么插入gif动画?
2023-10-05 16:00:06
![](https://img.aspxhome.com/file/2023/10/a345853_0s.jpg )
你还再认为那个空格键只是个摆设吗?
2022-05-26 07:02:28
压缩PPT中图片大小的方法
2023-11-06 02:10:06
win11锁屏快捷键怎么设置?两种方法轻松设置!
2023-12-05 08:52:15
![](https://img.aspxhome.com/file/2023/30/a268978_0s.png)
文本框中文字如何上下居中
2022-04-19 20:49:17
![](https://img.aspxhome.com/file/2023/0/34430_0s.gif)
苹果 iOS 15/iPadOS 15/watchOS 8/tvOS 15 公测版 Beta 6 发布
2022-03-24 13:56:36
![](https://img.aspxhome.com/file/2023/0/a204890_0s.jpeg)
PPT怎么批量修改字体 PPT批量修改字体的方法分享
2023-07-29 01:18:07
![](https://img.aspxhome.com/file/2023/10/a346253_0s.jpg)
Wps如何插入切片器及修改切片器名称 Wps插入切片器及修改切片器名称方法
2023-03-19 02:11:30
![](https://img.aspxhome.com/file/2023/2/a165462_0s.gif)
Win10如何彻底删除全部数据?Win10彻底删除全部数据教程
2023-08-27 10:55:39
![](https://img.aspxhome.com/file/2023/0/52500_0s.png)