excel拆分工作簿中的表为独立工作簿方法.doc

《excel拆分工作簿中的表为独立工作簿方法.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、excel拆分工作簿中的表为独立工作簿方法【批量】拆分工作簿中的表为独立工作簿　　　　　　工作当中经常会有人，把每个月或者每个部门的数据存放在同一个工作簿的新建工作表之中，之后又会遇到要把他们分开的需求，今天我们先来解决把工作簿中的工作表一键拆分成单个独立的工作簿的技巧吧！　　正式介绍方法之前，我们先新建一个工作簿，其中存放有1班，2班，3班，4班，5班，六班等6张工作表，假定每张工作表上分别存放对应班级的人员期末考试成绩。如下图所示：　　原来的工作簿　　　　制作过程　　主要是运用成组工作表的功能。　　　　操作如下：　　打开VBE编辑器　　粘贴如下所示代码

2、：　　Sub拆分工作簿()　　DimiAsInteger,sAsWorksheet　　Rem忽略代码运行中的错误　　OnErrorResumeNext　　Rem关闭屏幕刷新　　Application.ScreenUpdating=False　　Rem循环每一张工作表　　ForEachsInWorksheets　　Rem将工作表另存后关闭　　s.Copy　　ActiveWorkbook.SaveAsFilename:=ActiveWorkbook.Path&s.Name&‘.xlsx’　　ActiveWorkbook.Close　　Next　　Rem恢复屏幕

3、刷新　　Application.ScreenUpdating=True　　EndSub　　　　点击F5，就会在原工作簿所在的位置，生成所有的工作簿。此代码是通用的哦！如果您喜欢就请点赞吧！