怎么拆分一个excel工作簿中的多个工作表

Question

如题所述

Answer 1

以WPS 2019版本为例：

关于怎么拆分一个excel工作簿中的多个工作表，您可使用WPS参考下述步骤完成操作：

1、打开「表格（Excel）」文档；

2、点击「数据-拆分表格」；

3、按需选择「把工作表按照内容拆分」或「把工作簿按照工作表拆分」使用即可。

Answer 2

可以利用VBA实现，Alt+F11，复制如下代码，F5执行即可：
Sub 拆分到工作簿()
Dim wk As Workbook, ss$, k%
Application.DisplayAlerts = False
For Each sht In ThisWorkbook.Sheets
Set wk = Workbooks.Add
k = k + 1
ThisWorkbook.Sheets(k).Copy Workbooks(2).Sheets(1)
ss = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"
wk.SaveAs ss
wk.Close
Next
Application.DisplayAlerts = True
MsgBox "拆分工作簿完成！"
End Sub本回答被网友采纳