大家在實際工作中經常會碰到拆分Excel工作表的問題，難道每次都要一次次粘貼複製，在重新調整格式麼？
手把手系列教學，本期就來講一講如何高效拆分工作表，提高您的工作效率。
Excel拆分工作表
1.例如，一個Excel工作簿，有三張工作表，分別是一、二、三表，目的想要分別拆分這三個表。
2.右擊工作表名稱，比如這裡右擊“一”這個工作表，彈出的窗口中單擊“查看代碼”
3.在彈出的對話框中，輸入如下代碼
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
4.單擊“運行”中的“運行子過程/用戶窗體”
5.之後會彈出文件已經分拆完畢提示
6.可以看到當前文件夾下面拆分玩的三個文件
歡迎大家留言討論，喜歡的話點點關注哦。
分享到:
閱讀更多 網絡極客 的文章
