excel怎么将一张工作表拆分成多个工作表

excel将一张工作表拆分成多个工作表方法如下：

打开需要编辑的Excel文档。如图所示，工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。

右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。如下图所示。

点击菜单插入-模块在弹出的模块对话框中输入以下代码：

　　头只源早画又PrivateSub分拆工作表()

　　DimshtAs来自Worksheet

　　DimMyBookA360问答sWorkbook

　　Se优操线应tMyBook=Activ老师观沿使刘站手目真eWorkbook

　　ForEachshtInMyBoo读块太送停k.Sheets

　　sht.Copy

　　ActiveWor案命制木kbook.SaveAsFilename:=MyBook.Path&"\"&***.Name,FileFormat:=xlNormal'将工作簿另存为E负植派言说定XCEL默认格式

　　ActiveWork仅担量消顶book.Close

　　Next

　　MsgBox"文件已经被分拆完毕!"

　　EndSub

单击运行-运行子过程|窗体几秒过后弹出提示窗口“文件已被拆分完毕”如下图所示

返回Excel工作簿文件所在路径查看如下图所示原先工作簿中的工作表已经成为单独的工作簿了!

标签：excel