怎么拆分工作簿? 我有一个excel工作薄，里面有很多个工作表，怎样快速把工作表都从工作薄中分出来啊？

复制该工作簿，粘贴，重命名，打开后，要的工作表留下，不要的，删除（按住ctrl键的同时，点不要的工作表，然后在右键选项中，点删除），分拆几个工作表就重复操作几次。

把一个excel工作薄，里面的多个工作表，从工作薄中分出来，可用这个宏
Sub QEJebel()
Dim sh As Worksheet
Dim Pa As String
Pa = ThisWorkbook.Path
For Each sh In ThisWorkbook.Sheets
sh.Copy
ActiveWorkbook.SaveAs Pa & "\ " & sh.Name & ".xls"
ActiveWorkbook.Close
Next
End Sub
运行这个宏，，，完成后删除，不影响生成后各文件。

新建一个工作簿，然后在原来的工作簿中，选中你要分离的工作表，右键，选择移动或复制，不勾建立副本，就直接移除远工作簿了

点击工作簿中需要分裂的工作表的标签、右键、移动或复制工作表、在这个动作前、你先新建一个表、把要分裂的表移动到这个新表上就是、

如果是在一个工作薄：视图-全部重排

如果是分开多个工作薄，点开始-程序-OFFICE-EXCEL，打开新工作薄