如何将一个Excel表格内的N个小sheet划N个独立的Excel表格？？？

Question

Sorry，可能是我没表达清楚。我想表达的是：我每次会在一个EXCEl表格内建N个小sheet，然后再将每个小sheet用“在sheet1上右击——移动或复制工作表——新工作表——重命名确定 ”的方式，将每个小sheet分离出来（每次要重复做近90次这个动作）。我想请教的是如何能快速的做这个过程的捷径，例如函数等 ~.~

Answer 1

 1、一个工作簿里面有多个工作表，各工作表之间的字段是一致的，但数据不一致。由于工作需要，需要将各个工作表的数据汇总到一个表格里面做汇总分析，数据少、工作表数目不多的时候，CTRL+C后CTRL+V逐个复制粘贴是可以的，但数据量大、工作表数据多的时候，则可以用宏进行快速处理；

2、从上图中，后面的5个工作表，里面是源数据。“合并报表”这个表，则是要将后面5个表格的数据汇总的表格，其内容为空。

3、方法：使用宏快速汇总：

（1）录制宏：首先，点击文件菜单的“工具”菜单，选择“宏”—“宏”

  出现以下的宏界面，在“宏名”中按照自己喜好录入一个名称，这里录入“合并工作表”的名称，“位置”是指该宏可以在那个EXCEL工作簿中使用，这里选择“当前工作簿”。然后点击“创建”。

      出现以下的宏录入界面

     Sub 合并工作表()”下面，将以下的字符复制粘贴过去
Dim m As Integer Dim n As Integer Dim o As Integer For m = 2 To 6
   n = Sheets(m).[a65536].End(xlUp).Row    o = Sheets(1).[a65536].End(xlUp).Row    Sheets(m).Select
   Range("a1", "z" & n).Select    Range("a" & n).Activate    Selection.Copy    Sheets(1).Select
   Range("a" & o + 1).Select    ActiveSheet.Paste Next

        特别注意这一段字符“For m = 2 To 6”，由于要汇总的数据的工作表有5个，加上“合并报表”这个工作表本身，一共是6个工作表，因此“For m = 2 To 6”中选择输入6，如果后面要汇总的数据工作表有3个，则是录入4，如果有12个，则是录入13，依次类推。        

   然后，点击“文件”菜单，选择“关闭并返回到Micrlsoft Excel”。宏至此录入完毕。

        （2）使用已录制好的宏“合并工作表”，进行工作表的数据汇总。首先，在“合并报表”中，点击点击文件菜单的“工具”菜单，选择“宏”—“宏”

   出现宏界面，点击选择“合并工作表”，然后点击“执行”。就能达到汇总的效果。要注意，为避免出错，最好检查以下汇总后的报表中有数据的行数，是否等于后面各个报表有数据的行数总和。

   另外要注意，已经使用宏的报表，在保存时，会出现以下提示，点击确定即可。

Answer 2

1、首先打开移动和被移动的两个excel表格，选中需要移动的sheet4工作表，鼠标右键单击，在下拉菜单中选中【移动或复制】

2、跳出【移动或复制的窗口】，如下图缩小。

3、然后在工作薄一栏，选择移至新工作薄的名称。

4、下方选择工作表放置的位置，选好后单击确定。

5、工作表已移至指定的工作薄中了。

Answer 3

一个EXCEL文件是一个独立的EXCEL工作簿，可包含N个独立的sheet工作表，每个sheet工作表之间也可建立某种关联，如果想将每个sheet工作表独立另存为一个EXCEL文件，可采用新建文件，将数复制过去，或将sheet工作表移动到新文件，保存即可。

追问

Sorry，可能是我没表达清楚。我想表达的是：我每次会在一个EXCEl表格内建N个小sheet，然后再将每个小sheet用“在sheet1上右击——移动或复制工作表——新工作表——重命名确定 ”的方式，将每个小sheet分离出来（每次要重复做近90次这个动作）。我想请教的是如何能快速的做这个过程的捷径，例如函数等 ~.~

追答

如果是这样，将一个有多个sheet表的工作簿分解成多个工作簿或多个文件，用函数方法有点力不存心，最好用VBA代码，也就是通过在EXCEL工作簿中建立一个分解的宏（或程序）。这样分解就会变得很简单，具体代码如下：
使用方法：
1、打开你的工作簿

2、按Alt+F11进入VBA

3、在工程资源管理器窗口单击鼠标右键，选择插入->模块

4、把那个下面代码粘贴到模块中，运行一下就

Sub 另存所有工作表为工作簿()
Dim sht As Worksheet
Application.ScreenUpdating = False '禁用屏幕刷新
ipath = ThisWorkbook.Path & "\" '当前工作簿的文件目录
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name & ".xls" '(工作表名称为文件名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True '恢复屏幕刷新
End Sub

或者你可参考一下：
http://zhidao.baidu.com/question/145852066.html

Answer 4

楼主的意思是要把一个工作薄中的N个工作表拆分成新的工作薄吗
如果是这样的话，在需要拆分的工作表名字上点右键-点击“移动或复制工作表”-选择“移动到新工作薄中”就可以了。

Answer 5

选定一个sheet,右键选择移动或复制工作表，在工作簿栏选择新工作簿。