1、wps或office打开文件
2、按ALT+ F11 或者 顶部点击 开发工具-VB编辑器
3、在VBA窗口中，点击左侧列表中的【ThisWorkbook】，然后输入代码
excel拆分工作表， 复制某一个 sub 即可
Sub 拆分指定名称工作表()
Dim i
Dim sht As Worksheet
Application.DisplayAlerts = False
Dim stName As String
stName = "工作表名称"
For Each sht In Sheets
i = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"
If sht.Name = stName Then
sht.Copy
ActiveWorkbook.SaveAs i
ActiveWorkbook.Close
Exit For
End If
Next
Application.DisplayAlerts = True
MsgBox "工作表生成文件完成！", vbOKOnly, "提示"
End Sub
Sub 拆分所有工作表()
Dim i
Dim sht As Worksheet
Application.DisplayAlerts = False
For Each sht In Sheets
i = ThisWorkbook.Path & "" & [sht.Name](http://sht.Name) & ".xlsx"
sht.Copy
ActiveWorkbook.SaveAs i
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
MsgBox "工作表生成文件完成！", vbOKOnly, "提示"
End Sub
