一個Excel中會出現有很多個工作表的情況，有時會根據需要將他們拆分成不同的工作簿，該怎么做呢？

材料/工具

Excel

方法

打開一個Excel工作薄，里面有很多個不同的工作表

找到工作表的名字，并右擊鼠標，找到“查看代碼”

進入后頁面顯示如下

在空白處粘貼復制以下內容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

點擊頁面上方“運行”-“運行子過程/用戶窗口”即可拆分

聲明：本網頁內容旨在傳播知識，若有侵權等問題請及時與本網聯系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com