excel将各个工作表拆分成不同的工作簿

拆分成三个工作簿

现在我们有一个工作簿，其中有很多个工作表，现在我们需要将各个表单独做成一个个工作簿进行保存或者分发出去，我们应该怎么操作呢？

我们需要利用开发工具选项卡来进行此项操作。操作步骤如下。

（建议 收藏一别不时之需，订阅我们学习更多技能）

将开发工具选项卡显示出来

找到选项

勾选开发工具

2.打开VB工作界面

打开VB

插入模块

粘贴代码

代码如下

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:="D:\拆分后\" & mybook.Worksheets(i).Name & ".xlsx"

ActiveWindow.Close

Next i

End Sub

粘贴代码

执行代码

执行代码

关闭后，打开“D”盘，找到名为"拆分后"后的文件夹，打开即可找到拆分后的工作簿了