Excel如何将一个工作簿拆分成多个工作簿？一键轻松搞定

一个Excel工作簿是由多个工作表组成，现在需要将Excel工作簿中的工作表单独提取出来并新建一个工作簿。如果Excel工作簿中的工作表数量比较少，通过右键菜单“移动或复制工作表”就能够快速完成。

倘若Excel工作簿中的工作表数量非常多该怎么快速完成呢？再通过移动或复制工作表就比较浪费精力和时间，可以通过VBA代码快速将工作簿拆分为多个工作簿。

在菜单栏的“开发工具”选项卡中，点击代码功能区中的Visual Basic编辑器。

在Visual Basic编辑器窗口中，右键单击“工程资源管理器”任意空白位置，依次选择右键菜单中的“插入”“模块”。

左键双击新建的模块1，在代码窗口中输入以下代码，并关闭Visual Basic编辑器。

代码区域：

Sub 拆分工作簿()

Dim mybook As Workbook

Dim i As Integer

Set mybook = ActiveWorkbook

For i = 1 To mybook.Worksheets.Count

mybook.Worksheets(i).Copy

ActiveWorkbook.SaveAs Filename:="C:\Users\john\Desktop\素材\" & mybook.Worksheets(i).Name & ".xlsx"

ActiveWindow.Close

Next i

End Sub

注意事项：

代码ActiveWorkbook.SaveAs Filename:="C:\Users\john\Desktop\素材\"中，“C:\Users\john\Desktop\素材\”表示拆分完成后工作簿的存储路径，请根据具体情况进行设置，请确保存储路径完全正确，否则会出错。

代码编辑完成后如何运行呢？在菜单栏的“视图”选项卡中，点击宏功能区中“宏”下方的小箭头，选择下拉菜单中的“查看宏”。

在宏窗口中，点击宏名“拆分工作簿”，点击执行按钮就可以快速将工作簿拆分成若干个工作簿。

今天的分享到此结束，通过VBA的方法操作方便，能够快速完成大量的重复性工作，对提高工作效率非常有帮助。

知识改变命运，科技成就未来。如果您有什么好的建议或意见，请在下方留言告诉我们，感谢您的支持。