excel工作簿拆分多個(gè)工作表的方法

　　在Excel中錄入好數(shù)據(jù)以后經(jīng)常需要因?yàn)橐恍┨厥庠蛞压ぷ鞑静鸱殖啥鄠€(gè)工作表，或許有的朋友并不知道拆分工作表該如何操作，如果不懂的朋友歡迎一起來學(xué)習(xí)探討一番吧。下面是由學(xué)習(xí)啦小編分享的excel工作簿拆分多個(gè)工作表的方法，以供大家閱讀和學(xué)習(xí)。

　　excel工作簿拆分多個(gè)工作表的方法：

　　拆分多個(gè)工作表步驟1：打開需要編輯的Excel文檔。如圖所示，工作簿下方有很多工作表。現(xiàn)在需要將這些工作表單獨(dú)拆分開成一個(gè)個(gè)工作簿。

　　拆分多個(gè)工作表步驟2：右鍵任意一個(gè)工作表標(biāo)簽，在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。如下圖所示。

　　拆分多個(gè)工作表步驟3：點(diǎn)擊菜單插入-模塊 在彈出的模塊對(duì)話框中 輸入以下代碼：

　　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

　　拆分多個(gè)工作表步驟4：?jiǎn)螕暨\(yùn)行-運(yùn)行子過程|窗體 幾秒過后 彈出提示窗口“文件已被拆分完畢” 如下圖所示

　　拆分多個(gè)工作表步驟5：返回Excel工作簿文件所在路徑 查看 如下圖所示 原先工作簿中的工作表已經(jīng)成為單獨(dú)的工作簿了!不信 可以對(duì)照查看圖中的修改日期