當(dāng)前位置：首頁 - 手機 - 正文

怎么拆分一個Excel工作簿中的多個工作表？

來源：懂視網(wǎng) 責(zé)編：小OO 時間：2020-03-19 16:24:53

導(dǎo)讀有時候收到或者下載下來的工作簿中包含多個工作表，但是為了方便發(fā)送給不同的個體，需要把每個工作表拆分成不同的工作簿，下面就介紹一下解決方法：方法打開表格，如下一個工作簿中有多個工作表點擊進(jìn)入工作表右擊任意一個工作表標(biāo)簽，在彈出的下拉列表中選擇【查看代碼】之后進(jìn)入彈出的空白區(qū)域空白處，復(fù)制黏貼如下信息：　PrivateSub分拆工作表()　　DimshtAsWorksheet　　DimMyBookAsWorkbook　　SetMyBook=ActiveWorkbook　　ForEachshtInMy...

有時候收到或者下載下來的工作簿中包含多個工作表，但是為了方便發(fā)送給不同的個體，需要把每個工作表拆分成不同的工作簿，下面就介紹一下解決方法：

方法

打開表格，如下一個工作簿中有多個工作表

點擊進(jìn)入工作表

右擊任意一個工作表標(biāo)簽，在彈出的下拉列表中選擇【查看代碼】

之后進(jìn)入彈出的空白區(qū)域

空白處，復(fù)制黏貼如下信息：
　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

點擊運行-運行子過程/用戶窗體。

完成后，保存

到此就成功拆分成多個了。

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

標(biāo)簽：天神鎮(zhèn) 彩色天才