怎么拆分一个Excel工作簿中的多个工作表。

有时候一个工作表品类太多，想要将工作表拆分成多个工作表，该怎么办呢？下面就介绍一下，利用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

点击“运行”。

点击“运行子过程/用户窗体”。

文件拆分完毕。