如何快速把多个sheet拆分成单个表格，求代码
答案:1 悬赏:70 手机版
解决时间 2021-11-25 04:33
- 提问者网友：書生途
- 2021-11-24 16:36
如何快速把多个sheet拆分成单个表格，求代码
最佳答案
- 五星知识达人网友：大漠
- 2021-11-24 17:14
Alt+F11 视图--代码窗口，
把如下复制进去按F5运行即可
最好把这个Excel 放到一个文件夹内操作, 因为默认生成到当前文件夹
Sub fencun()
Application.ScreenUpdating = False
For each sht in thisworkbook.sheets
sht.copy
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "" & sht.name & ".xlsx"
.Close True
End With
Next
Application.ScreenUpdating = true
End Sub追问这个我早就试过 错误
追答那只能说你 人品不好来自：求助得到的回答
把如下复制进去按F5运行即可
最好把这个Excel 放到一个文件夹内操作, 因为默认生成到当前文件夹
Sub fencun()
Application.ScreenUpdating = False
For each sht in thisworkbook.sheets
sht.copy
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "" & sht.name & ".xlsx"
.Close True
End With
Next
Application.ScreenUpdating = true
End Sub追问这个我早就试过 错误
追答那只能说你 人品不好来自：求助得到的回答
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯