表格多个Sheet快速拆分为单个文件

表格多个Sheet快速拆分为单个文件

平时使用office办公软件，碰到表格中的Sheet比较多，如下图，需要单独保存，这里演示几种快速保存的方式

一、移动另存为，适用于表格Sheet文件数量少，直接另存；

二、使用宏，快速拆分多个Sheet文件，生成单独文件；

三、WPS可以使用【拆分表格】快速实现，但是WPS这个功能需要会员，亲测WPS的此功能和上述第二种方案类似；

选择需要拆分的单元格文件，右键，然后选择【移动工作表】

弹出窗口选择【新工作簿】，然后勾选【建立副本】，点击确定。

请一定勾选这个【建立副本】，不勾选就是将这个Sheet直接移走了，汇总文件中就没有了。

新的工作簿生成，选择保存，或者直接Ctrl+S，选择保存路径，其他的以此类推。

WPS中选择【开发工具】下边选择【VB编辑器】

选择左侧下拉菜单，选择【ThisWorkbook】

左键双击，弹出对话框输入如下内容，可以复制粘贴

Sub 拆分工作表()

Dim i

Dim sht As Worksheet

Application.DisplayAlerts = False

For Each sht In Sheets

sht.Copy

i = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"

ActiveWorkbook.SaveAs i

ActiveWorkbook.Close

Next

Application.DisplayAlerts = True

MsgBox "工作表生成文件完成！", vbOKOnly, "提示"

End Sub

点击运行，弹出窗口直接点击运行，等待就行

最后的效果图