如何将一份excel文件所有工作表单独拆分开来首先打开该excel文件，键盘快捷键：“Alt+F11”会自动弹出Visual Basic：然后双击一个工作表把一下代码复制进去，代码如下：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 Next MsgBox 文件已经被分拆完毕!End Sub复制完之后点工具栏上的运行就OK了！
