EXCEL拆分单元格代码

EXCEL拆分单元格代码

在使用excel时，如果一个表格里有多个子表格，将子表格拆分为独立文件的代码如下。

1>找到工作表的名字，并右击鼠标，找到“查看代码”
2> 复制以下代码进编辑区，运行即可

注意：本人也是参考网上的教程，写这个仅仅是为了自己需要时方便查找，没有抄袭意愿~

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