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
分类: 文字随笔 /
游客1728
I everyone I am so glad there is a place like this where we can all learn from one another <a href=https://cialis.lat/discover-the-best-prices-for-cialis>cialis dosage</a> Some people have mildly itchy skin
Reply
游客2925
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