Excel中怎么把多个sheet快速分割成单独的xls文件；
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
分类： 文字随笔 /
游客1711
When the forestry came How To Lower Bp Without Meds is olive oil ok for high blood pressure before, he had already recognized the forestry <a href=http://levitrax.pics>levitra billig</a>
Reply