Excel多个工作表快速拆分为独立的工作簿方法

1、打开要处理的excel工作表；

3、复制以下代码到窗口中；Private Sub 分拆工作表()　　Dim sht As Wor氯短赤亻ksheet　　Dim My蚱澄堆别Book 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　　Next　　MsgBox "文件已经被分拆完毕!"　　End Sub

4、按运行按钮或者按f5键选择运行代码；