excel工作簿拆分多個工作表的方法
在Excel中錄入好數(shù)據(jù)以后經(jīng)常需要因為一些特殊原因要把工作簿拆分成多個工作表,或許有的朋友并不知道拆分工作表該如何操作,如果不懂的朋友歡迎一起來學(xué)習(xí)探討一番吧。下面是由學(xué)習(xí)啦小編分享的excel工作簿拆分多個工作表的方法,以供大家閱讀和學(xué)習(xí)。
excel工作簿拆分多個工作表的方法:
拆分多個工作表步驟1:打開需要編輯的Excel文檔。如圖所示,工作簿下方有很多工作表?,F(xiàn)在需要將這些工作表單獨拆分開成一個個工作簿。
拆分多個工作表步驟2:右鍵任意一個工作表標簽,在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。如下圖所示。
拆分多個工作表步驟3:點擊菜單插入-模塊 在彈出的模塊對話框中 輸入以下代碼:
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 "文件已經(jīng)被分拆完畢!"
End Sub
拆分多個工作表步驟4:單擊運行-運行子過程|窗體 幾秒過后 彈出提示窗口“文件已被拆分完畢” 如下圖所示
拆分多個工作表步驟5:返回Excel工作簿文件所在路徑 查看 如下圖所示 原先工作簿中的工作表已經(jīng)成為單獨的工作簿了!不信 可以對照查看圖中的修改日期