一個(gè)Excel工作簿中的多個(gè)工作表想拆分成獨(dú)立表格，首先打開表格找到并選中表格右下角的表一，然后，點(diǎn)擊右鍵選擇“移動(dòng)或復(fù)制工作表”，然后，打開工作薄點(diǎn)擊新工作薄，然后，點(diǎn)擊確定，然后點(diǎn)擊保存，打開保存界面后再點(diǎn)擊“保存”（喜歡保存到哪里

有許多人不知道如何把excel工作簿中的多個(gè)工作表拆分單獨(dú)保存，為了讓大家節(jié)省時(shí)間和精力，接下來就告訴大家如何把excel工作簿中的多個(gè)工作表拆分單獨(dú)保存。

材料/工具

電腦wps表格

拆分一個(gè)Excel工作簿中的多個(gè)工作表1、打開需要編輯的Excel文檔，工作簿下方有很多工作表。現(xiàn)在需要將這些工作表單獨(dú)拆分開成一個(gè)個(gè)工作簿。 2、右鍵任意一個(gè)工作表標(biāo)簽，在彈出的下拉列表中選擇“查看代碼”。即彈出代碼窗口。3、點(diǎn)擊菜單“插入”-

方法

第一步，找到并選中表格右下角的表一。如圖

使用VBA可能比較快！ sub Sheet2workbook() Dim Sht As Worksheet, Wp As String, Wkb As Workbook Set Wkb = ActiveWorkbook Wp = Wkb.Path For Each Sht In Wkb.Worksheets Sht.Select Sht.Copy ActiveWorkbook.SaveAs Filename:=Wp & "" & S

然后，點(diǎn)擊右鍵選擇“移動(dòng)或復(fù)制工作表”。如圖

拆分工作表為工作薄需要用宏來處理 Excel 內(nèi) 按 Alt+F11 視圖--代碼窗口，把如下復(fù)制進(jìn)去 按F5運(yùn)行即可請這個(gè)Excel 放到一個(gè)文件夾內(nèi)操作, 默認(rèn)生成到當(dāng)前文件夾 Sub fencun()Application.ScreenUpdating = Falseb = Sheets.CountFor i = 1 To b

然后，打開工作薄點(diǎn)擊新工作薄。如圖

可以按下面的步驟： (1) 在要復(fù)制的sheet標(biāo)簽上點(diǎn)鼠標(biāo)右鍵； (2) 彈出的窗口中選"移動(dòng)或復(fù)制工作表"； (3) 彈出的窗口中點(diǎn)下拉框，然后選"(新工作簿)"； (4) 如果是復(fù)制，勾選"建立副本"，如果是剪切，不勾選該選項(xiàng)， 確定 (5) 保存，這樣，一個(gè)

然后，點(diǎn)擊確定。如圖

本篇經(jīng)驗(yàn)貼子中，我將向大家分享如何利用函數(shù)將一個(gè)Excel工作簿中的多個(gè)工作表拆分成為單獨(dú)的工作簿文件。步驟亦不負(fù)責(zé)，具體請參看內(nèi)容。希望對你有所幫助！ 1、打開需要編輯的Excel文檔。如圖所示，工作簿下方有很多工作表。現(xiàn)在需要將這些工

然后點(diǎn)擊保存。如圖

1、在excel的加載項(xiàng)選擇方方格子，選擇匯總拆分功能， 2、在下拉菜單中選擇拆分工作簿； 3、設(shè)置要拆分出的工作表，以及需要儲(chǔ)存的位置，然后點(diǎn)擊確定； 4、運(yùn)行完成后，會(huì)有提示，可以直接查看文件， 5、在指定的文件夾內(nèi)就可以看到拆分好的表

打開保存界面后再點(diǎn)擊“保存”（大家喜歡保存到哪里請根據(jù)自己的愛好） 如圖

要用VBA處理：設(shè)你的總表的名稱 為“總表”，請按Alt+F11，打開VBA編輯器，插入一個(gè)模塊，把下面的代碼貼進(jìn)去，按F5執(zhí)行 Sub 拆分()LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column '看總表有多少列For i = LastColumn To 4 Step -2 '

這樣表一就保存到大家的計(jì)算機(jī)上了

可以利用VBA快速將一個(gè)工作簿中多個(gè)工作表拆分成為獨(dú)立的工作簿。 工具：Office2013 方法如下： 1.當(dāng)前工作簿中有多個(gè)工作表，將之保存為獨(dú)立的工作簿： 2.Alt+F11，在Thisworkbook中，輸入代碼如下： 代碼注釋已給出。 3.F5執(zhí)行代碼，回到工作

保存表二跟保存表一是一樣的操作方法。鼠標(biāo)右擊表二。如圖

可以利用VBA快速將一個(gè)工作簿中多個(gè)工作表拆分成為獨(dú)立的工作簿。 工具：Office2013 方法如下： 1.當(dāng)前工作簿中有多個(gè)工作表，將之保存為獨(dú)立的工作簿： 2.Alt+F11，在Thisworkbook中，輸入代碼如下： 代碼注釋已給出。 3.F5執(zhí)行代碼，回到工作

然后，點(diǎn)擊“移動(dòng)或復(fù)制工作表”。如圖

在工作表的名字上點(diǎn)鼠標(biāo)右鍵選擇【移動(dòng)或復(fù)制.】，選擇（新建工作簿），反復(fù)循環(huán)即全部變?yōu)楠?dú)立的工作簿文件。

然后工作薄里選擇“新工作薄”。如圖

假定要將sheet1表第二行起每一行創(chuàng)建為一個(gè)新工作簿（獨(dú)立文件），工作簿以B列單元格值命名。 1、ALT+F11 2、插入模塊 3、粘貼以下代碼到模塊中 Sub 拆分() Dim i As Long Dim na As String Application.ScreenUpdating = False For i = 2 To Sh

保存最后一個(gè)工作薄的時(shí)候要選擇“建立副本”不然保存不了。如圖

這個(gè)只能用VBA解決，還是比較麻煩，估計(jì)沒人免費(fèi)幫你的。既然每月都要做這工作，建議你到淘寶上搜索定制EXCEL表格，花幾十元做一個(gè)小程序，每月這個(gè)工作就一鍵完成了

然后點(diǎn)擊“保存”如圖

一、工具/原料 microsoft office excel 2007 二、方法/步驟 1、右鍵任意一個(gè)工作表標(biāo)簽，在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。 2、點(diǎn)擊菜單插入-模塊 在彈出的模塊對話框中 輸入以下代碼： Private Sub 分拆工作表() Dim sht As Wo

然后，點(diǎn)擊左上角“保存”保存工作薄。如圖

操作步驟： 原始數(shù)據(jù)表如下（名稱為：數(shù)據(jù)源），需要根據(jù)B列人員姓名拆分成每個(gè)人一個(gè)工作表。 點(diǎn)擊【開發(fā)工具】-【Visual Basic】或者Alt+F11的快捷鍵進(jìn)入VBE編輯界面。 如下圖所示插入一個(gè)新的模塊。 如下圖，粘貼下列代碼在模塊中： Sub CFGZ

打開保存界面后點(diǎn)擊“保存”就可以了。如圖

工具：microsoft office excel 2007 步驟： 1、打開microsoft office excel 2007，右鍵任意一個(gè)工作表標(biāo)簽，在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。 2、點(diǎn)擊菜單插入-模塊，在彈出的模塊對話框中，輸入以下代碼： Private Sub 分拆工

最后，兩個(gè)工作表都在計(jì)算機(jī)里了，觀看著更方便了

將每一個(gè)工作表保存為一個(gè)工作保 打開工作表》Alt+F11》粘貼下列代碼》運(yùn)行代碼。 Sub SaveSheet() Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets ws.Copy ActiveWorkbook.SaveAs Filename:= _ ThisWorkbook.Path

擴(kuò)展閱讀，以下內(nèi)容您可能還感興趣。

一個(gè)Excel工作簿中的多個(gè)工作表怎么拆分成獨(dú)立表格

可以百利用VBA快速將一個(gè)工作簿中多個(gè)工作表拆分成為獨(dú)立的工作簿。

工具：度Office2013

方法如下知：

1.當(dāng)前工作簿中有多個(gè)工作表，將之保存為獨(dú)立的工作簿道：

2.Alt+F11，在Thisworkbook中，輸入代碼如下：

代碼注釋已給出。

3.F5執(zhí)行代版碼，回到工作簿所在文件夾，就看到已經(jīng)將工作簿中的工作表作為獨(dú)立的工作簿都保存到了文件夾中。

注意事項(xiàng)權(quán)：輸入代碼的工作簿首先得保存。

一個(gè)Excel工作簿中的多個(gè)工作表怎么拆分成獨(dú)立表格

在工作表的名字上點(diǎn)鼠標(biāo)右鍵選擇【移動(dòng)或復(fù)制....】，選擇（新建工作簿），反復(fù)循環(huán)即全部變?yōu)楠?dú)立的工作簿文件。

怎樣通過“宏”把excel中的一個(gè)工作表中的行拆分成若干個(gè)獨(dú)立的文件？

假定e799bee5baa6e997aee7ad94e78988e69d8331333330343239要將sheet1表第二行起每一行創(chuàng)建為一個(gè)新工作簿（獨(dú)立文件），工作簿以B列單元格值命名。

1、ALT+F11

2、插入模塊

3、粘貼以下代碼到模塊中

Sub 拆分()

Dim i As Long

Dim na As String

Application.ScreenUpdating = False

For i = 2 To Sheets("sheet1").Range("b65536").End(xlUp).Row

na = Sheets("sheet1").Cells(i, 2).Value

Sheets("sheet1").Copy

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & na & ".xls"

Rows(i).Copy Rows("2")

Rows("3:" & Range("b65536").End(xlUp).Row).Delete

ActiveWindow.Close savechanges:=True

Next

Application.ScreenUpdating = True

End Sub

4、運(yùn)行宏“拆分”

如何將EXCEL工作薄按單位拆分為多個(gè)工作薄

這個(gè)只能用VBA解決，還是比較麻煩，估計(jì)沒人免費(fèi)幫你的。既然每月都要做這工作，建議你到淘寶上搜索定制EXCEL表格，花幾十元做一個(gè)小程序，每月這個(gè)工作就一鍵完成了

如何拆分一個(gè)Excel工作簿中的多個(gè)工作表

一、工具/原料

microsoft office excel 2007

二、方法/步驟

1、右鍵任意一個(gè)工作表標(biāo)簽，在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。

2、點(diǎn)擊菜單插復(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

3、單擊運(yùn)行-運(yùn)行子過程-窗體，幾秒過后，彈出提示窗口“文件已被拆分完畢”。

4、返回Excel工作簿文件所zhidao在路徑，查看，可以發(fā)現(xiàn)原先工作簿中的工作表已經(jīng)成為單獨(dú)的工作簿了。

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