excel一个工作簿中多个工作表怎么拆分成多个工作
家电维修 2022-11-07 17:58www.17kangjie.cn家电维修培训
一个Excel中会出现有很多个工作表的情况,有时会根据需要将他们拆分成不同的工作簿,该怎么做呢?
材料/工具
Excel
方法
打开一个Excel工作薄,里面有很多个不同的工作表
找到工作表的名字,并右击鼠标,找到“查看代码”
进入后页面显示如下
在空白处粘贴复制以下内容Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "'" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
点击页面上方“运行”-“运行子过程/用户窗口”即可拆分
上一篇:电脑怎么截图得到圆形的图片
下一篇:网易邮箱注册时间如何查询
家电上门维修
- apple官方售后维修中心 芜湖apple官方售后维修中心
- 24小时上门修手机 闪修侠上门维修电话
- 戴尔电脑售后维修服务中心 戴尔笔记本电脑售后
- 北京上门维修电脑服务 北京上门维修电脑服务电
- apple官方售后维修点查询 apple官方售后维修点查询
- 24小时上门维修电话 宿州爱玛24小时上门维修电话
- 创维电视维修 创维电视维修收费标准
- 宝珀售后维修中心服务 宝珀售后维修中心服务内
- 24小时上门维修水电电话 附近上门水电维修电话
- 宝玑维修费用 宝玑维修费用多少钱
- 联想电脑售后维修服务网点 上海联想电脑售后维
- 维修变速箱费用多少钱 维修瑞虎8变速箱费用多少
- 雅典维修点:雅典维修点过年放假文案
- 微软surface维修服务中心 surface官方维修中心地址
- 江诗丹顿售后维修中心电话 江诗丹顿官方售后网
- 雅典售后维修电话 雅典售后维修电话号码