excel sheet拆分成不同的文档

以WPS 2019版本为例：

关于

excel sheet拆分成不同的文档

，您可使用WPS参考下述步骤完成 *** 作：

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

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

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

方法/步骤

首先我们在（12.05 A team）上面，单击鼠标右键，会d一个对话框，如下图所示慎瞎：

在对族拿话框里选择（移动或复制工作表）项，如下图所示：

在对话框里选择 选择（12.05 A team），如下图所示：

单击图中红线圈出的标示，选择（新工作兆孝搭薄）；如下图所示：

打勾（新建副本），现点确认；如图所示：

最后变成单一的工作薄，你可以保存在你想存在的任何一个地方：

ALT+F11进入VBA界面，依次菜单插入模块\x0d\x0a输入以下代码，最后点击进行\x0d\x0a分拆后的文件与当前文件同文件下，分拆棚枝启文件与sheet同名\x0d\x0aSub分拆()\x0d\x0aDim sh As Worksheet\x0d\x0aApplication.DisplayAlerts = False\x0d\x0aFor Each sh In Worksheets\x0d\x0ash.SaveAs ThisWorkbook.Path &"\" &sh.Name\x0d\x0aNext\x0d\x0aApplication.DisplayAlerts = True\x0d\x0aEnd Sub\x0d\x0a解释：\x0d\x0a\x0d\x0a使用方法：\x0d\x0a1、打开你的工作簿\x0d\x0a\x0d\x0a2、按Alt+F11进入VBA\x0d\x0a\x0d\x0a3、在工程资源管理器窗口单击鼠标右键，选择插入->模块\x0d\x0a\x0d\x0a4、把那个下面代码粘贴到模块中，运行一下就\x0d\x0a\x0d\x0aSub 另存所有工搭敏作表为工作簿()\x0d\x0aDim sht As Worksheet\x0d\x0aApplication.ScreenUpdating = False '禁用屏幕刷新\x0d\x0aipath = ThisWorkbook.Path &"\"'当前工作簿的文件目录\x0d\x0aFor Each sht In Sheets\x0d\x0a sht.Copy\x0d\x0a ActiveWorkbook.SaveAs ipath &sht.Name &".xls" '(工作表名称为文件链如名）\x0d\x0a ActiveWorkbook.Close\x0d\x0aNext\x0d\x0aApplication.ScreenUpdating = True '恢复屏幕刷新\x0d\x0aEnd Sub

---