Excel多个Sheet拆分为多个文件（通过宏命令实现）

最新推荐文章于 2025-03-14 09:00:44 发布

我好帅啊~

最新推荐文章于 2025-03-14 09:00:44 发布

阅读量2.5k

点赞数 2

文章标签： excel

本文链接：https://blog.csdn.net/m0_56808407/article/details/131130342

版权

该文章介绍了一个VBA宏，用于批量处理Excel工作簿中的每个Sheet，将其复制并保存为单独的Excel文件。用户需打开VBA编辑器，插入模块，输入特定代码，然后执行。在运行过程中，程序可能会显示鼠标转圈，但这并非死机，而是因为程序正在处理数据，根据数据量可能需要几分钟时间。

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

1.打开Excel,进入VBA编辑器

在这里插入图片描述

2.在VBA编辑器，选择：插入->模块

在这里插入图片描述

3.将以下代码填入弹出窗口，并按“F5”执行

程序运行（鼠标一直处于转圈状态）
根据数据多少，运行一段时间，并不是死机，一般会有几分钟时间。、

每一个sheet工作表的表名会被作为生成的独立excel的文件名

Sub sheet转独立文件()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path &"\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub