excel2007拆分一個(gè)工作簿多個(gè)表格的方法
在Excel中因?yàn)殇浫氲臄?shù)據(jù)都在一個(gè)工作簿,如果需要拆分的話需要一定的技巧,相信有很多朋友都不知道該如何拆分一個(gè)工作簿多個(gè)表格。接下來(lái)是學(xué)習(xí)啦小編為大家?guī)?lái)的excel2007 拆分一個(gè)工作簿多個(gè)表格的方法,供大家參考。
excel2007 拆分一個(gè)工作簿多個(gè)表格的方法
拆分工作簿多表格步驟1:打開需要編輯的Excel文檔。如圖所示,工作簿下方有很多工作表?,F(xiàn)在需要將這些工作表單獨(dú)拆分開成一個(gè)個(gè)工作簿。
excel2007 拆分一個(gè)工作簿多個(gè)表格的方法圖1
拆分工作簿多表格步驟2:右鍵任意一個(gè)工作表標(biāo)簽,在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。如下圖所示。
excel2007 拆分一個(gè)工作簿多個(gè)表格的方法圖2
excel2007 拆分一個(gè)工作簿多個(gè)表格的方法圖3
拆分工作簿多表格步驟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
excel2007 拆分一個(gè)工作簿多個(gè)表格的方法圖4
excel2007 拆分一個(gè)工作簿多個(gè)表格的方法圖5
拆分工作簿多表格步驟4:?jiǎn)螕暨\(yùn)行-運(yùn)行子過(guò)程|窗體 幾秒過(guò)后 彈出提示窗口“文件已被拆分完畢” 如下圖所示
excel2007 拆分一個(gè)工作簿多個(gè)表格的方法圖6
拆分工作簿多表格步驟5:返回Excel工作簿文件所在路徑 查看 如下圖所示 原先工作簿中的工作表已經(jīng)成為單獨(dú)的工作簿了!不信 可以對(duì)照查看圖中的修改日期
excel2007 拆分一個(gè)工作簿多個(gè)表格的方法圖7
看了excel2007 拆分一個(gè)工作簿多個(gè)表格的方法還看了:
1.怎么拆分一個(gè)Excel工作簿中的多個(gè)工作表
3.Excel中如何一次性同時(shí)打開多個(gè)工作簿