拆分成三個工作簿

現(xiàn)在我們有一個工作簿，其中有很多個工作表，現(xiàn)在我們需要將各個表單獨做成一個個工作簿進行保存或者分發(fā)出去，我們應(yīng)該怎么操作呢？

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

（建議 收藏一別不時之需，訂閱我們學(xué)習(xí)更多技能）

將開發(fā)工具選項卡顯示出來

找到選項

勾選開發(fā)工具

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

粘貼代碼

執(zhí)行代碼

執(zhí)行代碼

關(guān)閉后，打開“D”盤，找到名為"拆分后"后的文件夾，打開即可找到拆分后的工作簿了