怎么拆分一个Excel工作簿中的多个工作表

Question

如题所述

Answer 1

有两种常用的方法，下面以EXCEL2007版本为例进行操作，其它版本的方法大同小异：

1、使用VBA来完成这项工作，具体方法和步骤如下：

1.1 同时按下ALT+F11

1.2 双击ThisWorkbook

1.3 粘贴如下代码

Sub 拆分工作表()
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 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:=xlOpenXMLWorkbook      '将工作簿另存为EXCEL当前格式
      ActiveWorkbook.Close
    Next
     MsgBox "文件已经拆分完毕!"
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True
End Sub

1.4 在工作薄中，单击开发工具》代码》宏》选择“拆分工作表”宏》执行，现有工作薄的所有工作表将会以工作表的名称作为新工作薄的名称保存为单个的工作薄，完成后将弹出"文件已经拆分完毕!"提示窗口，保存目录为当前工作薄目录。

2、手动拆分，具体方法和步骤如下：

2.1 右击工作表标签》移动或复制工作表

2.2  在弹出的移动或复制工作表对话框中的工作薄处选择新工作薄》勾选建立副本（不勾选，工作表将被移动到新工作薄）》确定

2.3 在新打开的工作薄中，将工作薄保存为希望的路径和名称即可。

2.4 在第一个工作表上重复 前面三步，即可完成。

Answer 2

右键你需要的移动的工作表，然后选着“移动或复制工作表”，然后然后点击工作簿那个下拉菜单，选泽“新工作簿”，在到下面“建立副本”那个框上打钩，好了，然后点保存

Answer 3

方法/步骤

打开需要编辑的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

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

返回Excel工作簿文件所在路径 查看 如下图所示 原先工作簿中的工作表已经成为单独的工作簿了！不信 可以对照查看图中的修改日期本回答被提问者采纳

Answer 4

利用VBA可以实现