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

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

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

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

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

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

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

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

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

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

5、最后的效果图