如何将一份excel文件所有工作表单独拆分开来

如何将一份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 & "\" & , FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式

ActiveWorkbook.Close

Next

MsgBox "文件已经被分拆完毕!"

End Sub

复制完之后点工具栏上的运行就OK了！

THANKS !!!

致力为企业和个人提供合同协议，策划案计划书，学习课件等等

打造全网一站式需求

欢迎您的下载，资料仅供参考