EXCEL拆分单元格代码
程序员文章站
2024-03-04 17:46:18
...
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