6.Excel vba开发-分拆工作表

最新推荐文章于 2024-06-05 13:13:54 发布

牛code

最新推荐文章于 2024-06-05 13:13:54 发布

阅读量733

点赞数

分类专栏： excel vba开发文章标签： vba

本文链接：https://blog.csdn.net/qq_25064691/article/details/126030217

版权

excel vba开发专栏收录该内容

18 篇文章

订阅专栏

本文介绍了一个VBA宏，它能将Excel工作簿中的多个工作表逐一复制并保存为单独的工作簿文件，便于管理和操作。通过简单的代码实现，提高工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

需求：一个Excel工作簿中会出现有很多个工作表的情况，有时会根据需要将他们拆分成不同的工作簿。

代码

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 & ".xlsx", FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕"
End Sub