excel表格单元格怎么拆分工作薄

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

1、在excel中用右键点击需要拆分的工作表（如图）

2、点击“移动或复制”，弹出窗口（如图）

3、选择"新工作簿"，确定即可。

ps：如果想保留原始excel中的工作表，需要将下面“建立副本”选中

2.如何拆分一个Excel工作簿中的多个工作表

打开需要编辑的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工作簿文件所在路径 查看就是多个了。

3.如何快速将几个工作表分割成几个单独的工作薄

简单版的操作。。。

按Alt+F11打开VBA编辑器，插入新的模块，复制下面的内容到里面，按F5运行即可。

Sub SaveSeparately()

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

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

如下： 打开需要编辑的Excel文档。

工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。

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

点击菜单插入-模块 在弹出的模块对话框中 输入以下代码：Private Sub 分拆工作表：12345678910 Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式ActiveWorkbook.CloseNextMsgBox "文件已经被分拆完毕！"End Sub单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕”；返回Excel工作簿文件所在路径，查看 ，原先工作簿中的工作表已经成为单独的工作簿了。

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

所需工具材料：EXCEL 方法如下： 1、打开需要编辑的Excel文档，工作簿下方有很多的工作表。

2、右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。 3、在弹出的窗口中输入以下代码，然后选择“运行”→“运行子过程/用户窗体”（也可以直接按F5）。

4、如果Sheet比较多，请耐心等待；Sheet比较少，很快就运行完毕，然后会给出“文件已经被分拆完毕”的提示。 5、此时，返回之前未拆分工作簿的文件夹，就可以看到所有Sheet已经拆分完毕，并且文件名是以Sheet名来命名的，如果有需要，在拆分之前，可以修改好Sheet的名字，免得拆分完毕后再次修改。

6.如何将一个excel 工作薄拆分成多个工作薄

'拆分工作薄'yianxss原创，转载请注明Sub booktosheet()Dim i&, t, ipath$t = TimerApplication.ScreenUpdating = Falseipath = ThisWorkbook.Path & "\"With ThisWorkbookFor i = 2 To .Sheets.Count '第二张到最后，2改成1，就是全部工作表 .Sheets(i).Copy ActiveWorkbook.SaveAs ipath & .Sheets(i).Name & ".xlsx" ActiveWorkbook.CloseNextEnd WithApplication.ScreenUpdating = TrueMsgBox "拆分完成！总共" & （ThisWorkbook.Sheets.Count - 1） & "个" & Chr(10) & "用时：" & Format(Timer - t, "0.000") & "秒"End Sub我就贡献一下吧。