有时候一个工作表品类太多，想要将工作表拆分成多个工作表，该怎么办呢？下面就介绍一下，利用excel的函数拆分工作表。
材料/工具
Microsoft Excel 2010
方法
打开需要处理的Excel文档。
在任意工作表上单击右键。
单击“查看代码”。
进入VB工程页面。
单击“插入”。
单击“模块”。
输入以下代码：
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkboo氢式破燃美部k.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
点击“运行”。
点击“运行子过程/用户窗体”。
文件拆分完毕。