怎樣把excel工作簿中的多個工作表拆分單獨儲存

一個Excel工作簿中的多個工作表想拆分成獨立表格，首先開啟表格找到並選中表格右下角的表一，然後，點選右鍵選擇“移動或複製工作表”，然後，開啟工作薄點選新工作薄，然後，點選確定，然後點選儲存，開啟儲存介面後再點選“儲存”（喜歡儲存到哪裡

有許多人不知道如何把excel工作簿中的多個工作表拆分單獨儲存，為了讓大家節省時間和精力，接下來就告訴大家如何把excel工作簿中的多個工作表拆分單獨儲存。

材料/工具

電腦wps表格

拆分一個Excel工作簿中的多個工作表1、開啟需要編輯的Excel文件，工作簿下方有很多工作表。現在需要將這些工作表單獨拆分開成一個個工作簿。 2、右鍵任意一個工作表標籤，在彈出的下拉列表中選擇“檢視程式碼”。即彈出程式碼視窗。3、點選選單“插入”-

方法

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

使用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

然後，點選右鍵選擇“移動或複製工作表”。如圖

拆分工作表為工作薄需要用巨集來處理 Excel 內 按 Alt+F11 檢視--程式碼視窗，把如下複製進去 按F5執行即可請這個Excel 放到一個資料夾內操作, 預設生成到當前資料夾 Sub fencun()Application.ScreenUpdating = Falseb = Sheets.CountFor i = 1 To b

然後，開啟工作薄點選新工作薄。如圖

可以按下面的步驟： (1) 在要複製的sheet標籤上點滑鼠右鍵； (2) 彈出的視窗中選"移動或複製工作表"； (3) 彈出的視窗中點下拉框，然後選"(新工作簿)"； (4) 如果是複製，勾選"建立副本"，如果是剪下，不勾選該選項， 確定 (5) 儲存，這樣，一個

然後，點選確定。如圖

本篇經驗貼子中，我將向大家分享如何利用函式將一個Excel工作簿中的多個工作表拆分成為單獨的工作簿檔案。步驟亦不負責，具體請參看內容。希望對你有所幫助！ 1、開啟需要編輯的Excel文件。如圖所示，工作簿下方有很多工作表。現在需要將這些工

然後點選儲存。如圖

1、在excel的載入項選擇方方格子，選擇彙總拆分功能， 2、在下拉選單中選擇拆分工作簿； 3、設定要拆分出的工作表，以及需要儲存的位置，然後點選確定； 4、執行完成後，會有提示，可以直接檢視檔案， 5、在指定的資料夾內就可以看到拆分好的表

開啟儲存介面後再點選“儲存”（大家喜歡儲存到哪裡請根據自己的愛好） 如圖

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

這樣表一就儲存到大家的計算機上了

可以利用VBA快速將一個工作簿中多個工作表拆分成為獨立的工作簿。 工具：Office2013 方法如下： 1.當前工作簿中有多個工作表，將之儲存為獨立的工作簿： 2.Alt+F11，在Thisworkbook中，輸入程式碼如下： 程式碼註釋已給出。 3.F5執行程式碼，回到工作

儲存表二跟儲存表一是一樣的操作方法。滑鼠右擊表二。如圖

可以利用VBA快速將一個工作簿中多個工作表拆分成為獨立的工作簿。 工具：Office2013 方法如下： 1.當前工作簿中有多個工作表，將之儲存為獨立的工作簿： 2.Alt+F11，在Thisworkbook中，輸入程式碼如下： 程式碼註釋已給出。 3.F5執行程式碼，回到工作

然後，點選“移動或複製工作表”。如圖

在工作表的名字上點滑鼠右鍵選擇【移動或複製.】，選擇（新建工作簿），反覆迴圈即全部變為獨立的工作簿檔案。

然後工作薄裡選擇“新工作薄”。如圖

假定要將sheet1表第二行起每一行建立為一個新工作簿（獨立檔案），工作簿以B列單元格值命名。 1、ALT+F11 2、插入模組 3、貼上以下程式碼到模組中 Sub 拆分() Dim i As Long Dim na As String Application.ScreenUpdating = False For i = 2 To Sh

儲存最後一個工作薄的時候要選擇“建立副本”不然儲存不了。如圖

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

然後點選“儲存”如圖

一、工具/原料 microsoft office excel 2007 二、方法/步驟 1、右鍵任意一個工作表標籤，在彈出的下拉列表中選擇檢視程式碼。即彈出程式碼視窗。 2、點選選單插入-模組 在彈出的模組對話方塊中 輸入以下程式碼： Private Sub 分拆工作表() Dim sht As Wo

然後，點選左上角“儲存”儲存工作薄。如圖

操作步驟： 原始資料表如下（名稱為：資料來源），需要根據B列人員姓名拆分成每個人一個工作表。 點選【開發工具】-【Visual Basic】或者Alt+F11的快捷鍵進入VBE編輯介面。 如下圖所示插入一個新的模組。 如下圖，貼上下列程式碼在模組中： Sub CFGZ

開啟儲存介面後點擊“儲存”就可以了。如圖

工具：microsoft office excel 2007 步驟： 1、開啟microsoft office excel 2007，右鍵任意一個工作表標籤，在彈出的下拉列表中選擇檢視程式碼。即彈出程式碼視窗。 2、點選選單插入-模組，在彈出的模組對話方塊中，輸入以下程式碼： Private Sub 分拆工

最後，兩個工作表都在計算機裡了，觀看著更方便了

將每一個工作表儲存為一個工作保 開啟工作表》Alt+F11》貼上下列程式碼》執行程式碼。 Sub SaveSheet() Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets ws.Copy ActiveWorkbook.SaveAs Filename:= _ ThisWorkbook.Path

擴充套件閱讀，以下內容您可能還感興趣。

一個Excel工作簿中的多個工作表怎麼拆分成獨立表格

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

工具：度Office2013

方法如下知：

1.當前工作簿中有多個工作表，將之儲存為獨立的工作簿道：

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

程式碼註釋已給出。

3.F5執行代版碼，回到工作簿所在資料夾，就看到已經將工作簿中的工作表作為獨立的工作簿都儲存到了資料夾中。

注意事項權：輸入程式碼的工作簿首先得儲存。

一個Excel工作簿中的多個工作表怎麼拆分成獨立表格

在工作表的名字上點滑鼠右鍵選擇【移動或複製....】，選擇（新建工作簿），反覆迴圈即全部變為獨立的工作簿檔案。

怎樣通過“巨集”把excel中的一個工作表中的行拆分成若干個獨立的檔案？

假定e799bee5baa6e997aee7ad94e78988e69d8331333330343239要將sheet1表第二行起每一行建立為一個新工作簿（獨立檔案），工作簿以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、執行巨集“拆分”

如何將EXCEL工作薄按單位拆分為多個工作薄

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

如何拆分一個Excel工作簿中的多個工作表

一、工具/原料

microsoft office excel 2007

二、方法/步驟

1、右鍵任意一個工作表標籤，在彈出的下拉列表中選擇檢視程式碼。即彈出程式碼視窗。

2、點選選單插復入-模組 在彈出的模組對話方塊中 輸入以下程式碼：

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 "檔案已經被分拆完畢!"

End Sub

3、單擊執行-執行子過程-窗體，幾秒過後，彈出提示視窗“檔案已被拆分完畢”。

4、返回Excel工作簿檔案所zhidao在路徑，檢視，可以發現原先工作簿中的工作表已經成為單獨的工作簿了。