拆分成三個工作簿

現在我們有一個工作簿，其中有很多個工作表，現在我們需要將各個表單獨做成一個個工作簿進行保存或者分發出去，我們應該怎麼操作呢？

我們需要利用開發工具選項卡來進行此項操作。操作步驟如下。

（建議 收藏一別不時之需，訂閱我們學習更多技能）

將開發工具選項卡顯示出來

找到選項

勾選開發工具

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

Advertisements

ActiveWorkbook.SaveAs Filename:="D:\拆分后\" & mybook.Worksheets(i).Name & ".xlsx"

ActiveWindow.Close

Next i

End Sub

粘貼代碼

執行代碼

執行代碼

關閉后，打開「D」盤，找到名為"拆分后"后的文件夾，打開即可找到拆分后的工作簿了