怎样把excel工作簿中的多个工作表拆分单独保存
一个Excel工作簿中的多个工作表想拆分成独立表格，首先打开表格找到并选中表格右下角的表一，然后，点击右键选择“移动或复制工作表”，然后，打开工作薄点击新工作薄，然后，点击确定，然后点击保存，打开保存界面后再点击“保存”（喜欢保存到哪里
有许多人不知道如何把excel工作簿中的多个工作表拆分单独保存，为了让大家节省时间和精力，接下来就告诉大家如何把excel工作簿中的多个工作表拆分单独保存。
材料/工具
电脑wps表格
拆分一个Excel工作簿中的多个工作表1、打开需要编辑的Excel文档，工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。 2、右键任意一个工作表标签，在弹出的下拉列表中选择“查看代码”。即弹出代码窗口。3、点击菜单“插入”-
方法
第一步，找到并选中表格右下角的表一。如图
使用VBA可能比较快！ sub Sheet2workbook() Dim Sht As Worksheet, Wp As String, Wkb As Workbook Set Wkb = ActiveWorkbook Wp = Wkb.Path For Each Sht In Wkb.Worksheets Sht.Select Sht.Copy ActiveWorkbook.SaveAs Filename:=Wp & "" & S
然后，点击右键选择“移动或复制工作表”。如图
拆分工作表为工作薄需要用宏来处理 Excel 内 按 Alt+F11 视图--代码窗口，把如下复制进去 按F5运行即可请这个Excel 放到一个文件夹内操作, 默认生成到当前文件夹 Sub fencun()Application.ScreenUpdating = Falseb = Sheets.CountFor i = 1 To b
然后，打开工作薄点击新工作薄。如图
可以按下面的步骤： (1) 在要复制的sheet标签上点鼠标右键； (2) 弹出的窗口中选"移动或复制工作表"； (3) 弹出的窗口中点下拉框，然后选"(新工作簿)"； (4) 如果是复制，勾选"建立副本"，如果是剪切，不勾选该选项， 确定 (5) 保存，这样，一个
然后，点击确定。如图
本篇经验贴子中，我将向大家分享如何利用函数将一个Excel工作簿中的多个工作表拆分成为单独的工作簿文件。步骤亦不负责，具体请参看内容。希望对你有所帮助！ 1、打开需要编辑的Excel文档。如图所示，工作簿下方有很多工作表。现在需要将这些工
然后点击保存。如图
1、在excel的加载项选择方方格子，选择汇总拆分功能， 2、在下拉菜单中选择拆分工作簿； 3、设置要拆分出的工作表，以及需要储存的位置，然后点击确定； 4、运行完成后，会有提示，可以直接查看文件， 5、在指定的文件夹内就可以看到拆分好的表
打开保存界面后再点击“保存”（大家喜欢保存到哪里请根据自己的爱好） 如图
要用VBA处理：设你的总表的名称 为“总表”，请按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码贴进去，按F5执行 Sub 拆分()LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column '看总表有多少列For i = LastColumn To 4 Step -2 '
这样表一就保存到大家的计算机上了
可以利用VBA快速将一个工作簿中多个工作表拆分成为独立的工作簿。 工具：Office2013 方法如下： 1.当前工作簿中有多个工作表，将之保存为独立的工作簿： 2.Alt+F11，在Thisworkbook中，输入代码如下： 代码注释已给出。 3.F5执行代码，回到工作
保存表二跟保存表一是一样的操作方法。鼠标右击表二。如图
可以利用VBA快速将一个工作簿中多个工作表拆分成为独立的工作簿。 工具：Office2013 方法如下： 1.当前工作簿中有多个工作表，将之保存为独立的工作簿： 2.Alt+F11，在Thisworkbook中，输入代码如下： 代码注释已给出。 3.F5执行代码，回到工作
然后，点击“移动或复制工作表”。如图
在工作表的名字上点鼠标右键选择【移动或复制.】，选择（新建工作簿），反复循环即全部变为独立的工作簿文件。
然后工作薄里选择“新工作薄”。如图
假定要将sheet1表第二行起每一行创建为一个新工作簿（独立文件），工作簿以B列单元格值命名。 1、ALT+F11 2、插入模块 3、粘贴以下代码到模块中 Sub 拆分() Dim i As Long Dim na As String Application.ScreenUpdating = False For i = 2 To Sh
保存最后一个工作薄的时候要选择“建立副本”不然保存不了。如图
这个只能用VBA解决，还是比较麻烦，估计没人免费帮你的。既然每月都要做这工作，建议你到淘宝上搜索定制EXCEL表格，花几十元做一个小程序，每月这个工作就一键完成了
然后点击“保存”如图
一、工具/原料 microsoft office excel 2007 二、方法/步骤 1、右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。 2、点击菜单插入-模块 在弹出的模块对话框中 输入以下代码： Private Sub 分拆工作表() Dim sht As Wo
然后，点击左上角“保存”保存工作薄。如图
操作步骤： 原始数据表如下（名称为：数据源），需要根据B列人员姓名拆分成每个人一个工作表。 点击【开发工具】-【Visual Basic】或者Alt+F11的快捷键进入VBE编辑界面。 如下图所示插入一个新的模块。 如下图，粘贴下列代码在模块中： Sub CFGZ
打开保存界面后点击“保存”就可以了。如图
工具：microsoft office excel 2007 步骤： 1、打开microsoft office excel 2007，右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。 2、点击菜单插入-模块，在弹出的模块对话框中，输入以下代码： Private Sub 分拆工
最后，两个工作表都在计算机里了，观看着更方便了
将每一个工作表保存为一个工作保 打开工作表》Alt+F11》粘贴下列代码》运行代码。 Sub SaveSheet() Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets ws.Copy ActiveWorkbook.SaveAs Filename:= _ ThisWorkbook.Path
扩展阅读，以下内容您可能还感兴趣。
一个Excel工作簿中的多个工作表怎么拆分成独立表格
可以百利用VBA快速将一个工作簿中多个工作表拆分成为独立的工作簿。
工具：度Office2013
方法如下知：
1.当前工作簿中有多个工作表，将之保存为独立的工作簿道：
2.Alt+F11，在Thisworkbook中，输入代码如下：
代码注释已给出。
3.F5执行代版码，回到工作簿所在文件夹，就看到已经将工作簿中的工作表作为独立的工作簿都保存到了文件夹中。
注意事项权：输入代码的工作簿首先得保存。
一个Excel工作簿中的多个工作表怎么拆分成独立表格
在工作表的名字上点鼠标右键选择【移动或复制....】，选择（新建工作簿），反复循环即全部变为独立的工作簿文件。
怎样通过“宏”把excel中的一个工作表中的行拆分成若干个独立的文件？
假定e799bee5baa6e997aee7ad94e78988e69d8331333330343239要将sheet1表第二行起每一行创建为一个新工作簿（独立文件），工作簿以B列单元格值命名。
1、ALT+F11
2、插入模块
3、粘贴以下代码到模块中
Sub 拆分()
Dim i As Long
Dim na As String
Application.ScreenUpdating = False
For i = 2 To Sheets("sheet1").Range("b65536").End(xlUp).Row
na = Sheets("sheet1").Cells(i, 2).Value
Sheets("sheet1").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & na & ".xls"
Rows(i).Copy Rows("2")
Rows("3:" & Range("b65536").End(xlUp).Row).Delete
ActiveWindow.Close savechanges:=True
Next
Application.ScreenUpdating = True
End Sub
4、运行宏“拆分”
如何将EXCEL工作薄按单位拆分为多个工作薄
这个只能用VBA解决，还是比较麻烦，估计没人免费帮你的。既然每月都要做这工作，建议你到淘宝上搜索定制EXCEL表格，花几十元做一个小程序，每月这个工作就一键完成了
如何拆分一个Excel工作簿中的多个工作表
一、工具/原料
microsoft office excel 2007
二、方法/步骤
1、右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。
2、点击菜单插复入-模块 在弹出的模块对话框中 输入以下代码：
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
3、单击运行-运行子过程-窗体，几秒过后，弹出提示窗口“文件已被拆分完毕”。
4、返回Excel工作簿文件所zhidao在路径，查看，可以发现原先工作簿中的工作表已经成为单独的工作簿了。
