在工作中，我們會遇到這樣的情況，別人給你報過來的表格是這樣的

一個表格包含了多個工作表

而，我們需要把一個個工作表做成單獨表格的形式。當然量少的話我們可以一個個另存為或者複製。量多的話怎麼辦呢？

今天給大家分享一個簡單的小技巧

工作表拆分代碼：

Private Sub 分拆工作表()

Dim sht As Worksheet

Dim MyBook As Workbook

Set MyBook = ActiveWorkbook

For Each sht In MyBook.Sheets

sht.Copy

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "" & sht.Name, FileFormat:=xlNormal '將工作簿另存為EXCEL默認格式

ActiveWorkbook.Close

Next

MsgBox "文件已經被分拆完畢!"

End Sub

今天就分享到這了，喜歡的話點一下關注。

閱讀更多 山裡娃在職場 的文章

關鍵字: Excel 表而 表格