怎麼拆分一個Excel工作簿中的多個工作表?
- 電腦
- 關注:2.37W次
小編之前分享過如何合併多個工作表,這倒好,現在再來介紹一下如何拆分同一個工作薄中的多個工作表。
操作方法
(01)如下圖所示,工作薄中有四個工作表。
(02)在工作表處,右擊鼠標,點擊“查看代碼”
(03)圖下圖所示,彈出的窗口中,直接點擊插入——模塊。
(04)在彈出的窗口中輸入一下代碼: Private Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In ts As Filename:= & "" & , FileFormat:=xlNormal x27;將工作簿另存為EXCEL默認格式 e Next MsgBox "文件已經被分拆完畢!" End Sub
(05)然後點擊運行,點擊運行子過程。
(06)經過一番運算,最終完成後,會彈出下圖界面,點擊完成即可。
(07)拆分出來的四個工作表如下圖所示,效果還不錯。
- 文章版權屬於文章作者所有,轉載請註明 https://miaozhigu.com/sm/diannao/ye2oy4.html