excel2007拆分一個(gè)工作簿多個(gè)表格的方法（excel表格按行拆分多個(gè)工作簿）

excel2007拆分一個(gè)工作簿多個(gè)表格的方法（excel表格按行拆分多個(gè)工作簿）

在Excel中因?yàn)殇浫氲臄?shù)據(jù)都在一個(gè)工作簿，如果需要拆分的話需要一定的技巧，相信有很多朋友都不知道該如何拆分一個(gè)工作簿多個(gè)表格。接下來是小編為大家?guī)淼膃xcel2007 拆分一個(gè)工作簿多個(gè)表格的方法，供大家參考。

excel2007 拆分一個(gè)工作簿多個(gè)表格的方法

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

excel2007 拆分一個(gè)工作簿多個(gè)表格的方法

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

excel2007 拆分一個(gè)工作簿多個(gè)表格的方法excel2007 拆分一個(gè)工作簿多個(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

excel2007 拆分一個(gè)工作簿多個(gè)表格的方法excel2007 拆分一個(gè)工作簿多個(gè)表格的方法

拆分工作簿多表格步驟4：單擊運(yùn)行-運(yùn)行子過程|窗體 幾秒過后 彈出提示窗口“文件已被拆分完畢” 如下圖所示

excel2007 拆分一個(gè)工作簿多個(gè)表格的方法

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

excel2007 拆分一個(gè)工作簿多個(gè)表格的方法

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。