如何分离多张excel里的多张sheet表?

发布网友发布时间：2022-04-24 01:53

我来回答

共4个回答

热心网友时间：2023-10-20 03:29

如图所示：首先选择要分离的工作表sheet2—右键选择移动或复制工作表—然后点击工作薄下面的倒三角—选择新工作薄—点击确定，sheet2工作表就分离出来了。

如果只是建立一个新的文件，就勾选一下建立副本，这样sheet2还存在原文件中。

热心网友时间：2023-10-20 03:30

鼠标点到名字上,右键,移动或复制工作表,工作溥那里选新工作溥,确定然后保存就行了

热心网友时间：2023-10-20 03:29

如果只是建立一个新的文件，就勾选一下建立副本，这样sheet2还存在原文件中。

热心网友时间：2023-10-20 03:30

没有办法直接与原表分离，只能点红框（如图）然后复制到另一张表里，这样复制的好处是格式不会改变的，命名Sheet的方式是直接点Sheet 名字鼠标右键 “重命名”

热心网友时间：2023-10-20 03:31

用 VBA 可实现。
注意事项：只打开一个文档，请不要同时打开其它文档。

Sub 分离工作表()
Dim sFileName As String

While ThisWorkbook.Sheets.Count >= 2
sFileName = ThisWorkbook.Sheets(2).Name
ThisWorkbook.Sheets(2).Move
Application.Workbooks(2).SaveAs ThisWorkbook.Path & "\" & sFileName & ".xls"
Application.Workbooks(2).Close False
Wend

End Sub

热心网友时间：2023-10-20 03:30

鼠标点到名字上,右键,移动或复制工作表,工作溥那里选新工作溥,确定然后保存就行了

热心网友时间：2023-10-20 03:30

热心网友时间：2023-10-20 03:31