excel一個(gè)工作簿中多個(gè)工作表怎么拆分成多個(gè)工作簿

一個(gè)Excel中會(huì)出現(xiàn)有很多個(gè)工作表的情況，有時(shí)會(huì)根據(jù)需要將他們拆分成不同的工作簿，該怎么做呢？

材料/工具

Excel

方法

打開(kāi)一個(gè)Excel工作薄，里面有很多個(gè)不同的工作表

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

進(jìn)入后頁(yè)面顯示如下

在空白處粘貼復(fù)制以下內(nèi)容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默認(rèn)格式

　　ActiveWorkbook.Close

　　Next

　　MsgBox "文件已經(jīng)被分拆完畢!"

　　End Sub

點(diǎn)擊頁(yè)面上方“運(yùn)行”-“運(yùn)行子過(guò)程/用戶窗口”即可拆分

聲明：本網(wǎng)頁(yè)內(nèi)容旨在傳播知識(shí)，若有侵權(quán)等問(wèn)題請(qǐng)及時(shí)與本網(wǎng)聯(lián)系，我們將在第一時(shí)間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com