Question

一个Excel工作簿中的多个工作表怎么拆分成独立表格

Answer 1

1、按照需求新建工作表名称，比如：独立1.xlsx，独立2.xlsx等

2、打开这些工作薄，和要拆分的工作薄

3、右击要拆分的工作表标签，选择移动或复制工作表

4、在弹出的移动或复制工作表对话框中，“工作薄”栏选择目标工作薄名称（比如独立1.xlsx），在“下列选定工作表之前”，选择存放工作表的位置，如果原工作薄要保留此工作表，请勾选“建立副本”，确定，此工作表就单独在新命名（独立1.xlsx）的工作表里面了。

5、重复上面步骤，可将每个工作表单独建立一个工作薄。

Answer 2

使用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

Answer 3