Excel的办公小技巧/5+7收集的办公会小技巧/Excel办公小知识

Excel中怎么把多个sheet快速分割成单独的xls文件；

1、打开要分割的文件；
2、在sheet上点击反键，查看代码；
3、复制下面代码到代码框；
4、按运行（F5）；
5、在同文件夹中会出现以sheet名称命名的xls文件；


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


分类： 文字随笔 /

上一篇：Excel中怎么把相同表头的xls文件合并成一个excel的代码
下一篇：php 提取文章中所有图片

网友品论

留下您的评论