1、按照需求新建工作表名称，比如：独立1.xlsx，独立2.xlsx等
2、打开这些工作薄，和要拆分的工作薄
3、右击要拆分的工作表标签，选择移动或复制工作表
4、在弹出的移动或复制工作表对话框中，“工作薄”栏选择目标工作薄名称（比如独立1.xlsx），在“下列选定工作表之前”，选择存放工作表的位置，如果原工作薄要保留此工作表，请勾选“建立副本”，确定，此工作表就单独在新命名（独立1.xlsx）的工作表里面了。
5、重复上面步骤，可将每个工作表单独建立一个工作薄。
温馨提示：内容为网友见解，仅供参考
第1个回答 2016-06-24
使用VBA可能比较快！
sub Sheet2workbook()
Dim Sht As Worksheet, Wp As String, Wkb As Workbook
Set Wkb = ActiveWorkbook
Wp = Wkb.Path
For Each Sht In Wkb.Worksheets
Sht.Select
Sht.Copy
ActiveWorkbook.SaveAs Filename:=Wp & "\" & Sht.Name & ".xlsx", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close 0
Next
End Sub
sub Sheet2workbook()
Dim Sht As Worksheet, Wp As String, Wkb As Workbook
Set Wkb = ActiveWorkbook
Wp = Wkb.Path
For Each Sht In Wkb.Worksheets
Sht.Select
Sht.Copy
ActiveWorkbook.SaveAs Filename:=Wp & "\" & Sht.Name & ".xlsx", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close 0
Next
End Sub
第2个回答 2020-06-27
相似回答
