拆分一个Excel工作簿中的多个工作表5页.docx

拆分一个Excel工作簿中的多个工作表1、打开需要编辑的Excel文档，工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。2、右键任意一个工作表标签，在弹出的下拉列表中选择“查看代码”。即弹出代码窗口。3、点击菜单“插入”-“模块”， 在弹出的模块对话框中 输入以下代码：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默认格式 ActiveWorkbook.Close N