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

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

有時候一個工作表品類太多，想要將工作表拆分成多個工作表，該怎麼辦呢？下面就介紹一下，利用excel的函數拆分工作表。

材料/工具

Microsoft Excel 2010

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

方法

打開需要處理的Excel文檔。

工具/原材料 excel2016版、電腦。 1、打開電腦找到並點擊excel2016版軟件； 2、打開excel2016版軟件以後，爲了更好的示範編輯2個任意文字的工作表； 3、編輯好文字以後，在表2的工作表標籤，點擊鼠標右鍵並在下拉選項中選擇“移動或複製”； 4、在

在任意工作表上單擊右鍵。

要在Excel工作簿中一次性創建多個指定名稱的工作表，可以使用如下方法。 工具：Office2013 方法如下： 首先，將工作表名導入到Excel工作簿中任意一工作表一列中 然後選擇此列中的一個單元格，創建數據透視表，如下所示： 將工作表名拖到篩選器中

單擊“查看代碼”。

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

進入VB工程頁面。

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

單擊“插入”。

以WPS 2019版本爲例： 關於EXCEL如何將1個工作表按條件分割成多個工作表，您可使用WPS參考下述步驟完成操作： 1、打開「表格（Excel）」文檔； 2、點擊「數據-拆分表格」； 3、按需選擇「把工作表按照內容拆分」或「把工作簿按照工作表拆分」使

單擊“模塊”。

如何將多個Excel工作簿合併成一個新的工作簿有多個獨立的excel工作簿文件需要合併到一個新的工作簿中，保留原來excel工作簿中各個excel工作表名稱和結構。如果量小，可以採用打開一個個複製的方法。若有100多份excel文件要合併到一個excel工作簿

輸入以下代碼：

以WPS 2019版本爲例： 關於WPS表格，一個工作表拆分成多個工作表，您可使用WPS參考下述步驟完成操作： 1、打開「表格（Excel）」文檔； 2、點擊「數據-拆分表格」； 3、按需選擇「把工作表按照內容拆分」或「把工作簿按照工作表拆分」使用即可。

Private Sub 分拆工作表()

以WPS 2019版本爲例： 關於WPS表格，一個工作表拆分成多個工作表，您可使用WPS參考下述步驟完成操作： 1、打開「表格（Excel）」文檔； 2、點擊「數據-拆分表格」； 3、按需選擇「把工作表按照內容拆分」或「把工作簿按照工作表拆分」使用即可。

       Dim sht As Worksheet

以WPS 2019版本爲例： 關於一個EXCEL如何將一個工作表根據條件拆分成多件工作表，您可使用WPS參考下述步驟完成操作： 1、打開「表格（Excel）」文檔； 2、點擊「數據-拆分表格」； 3、按需選擇「把工作表按照內容拆分」或「把工作簿按照工作表拆

       Dim MyBook As Workbook

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

       Set MyBook = ActiveWorkbook

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

       For Each sht In MyBook.Sheets

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

           sht.Copy

在工作表的名字上點鼠標右鍵選擇【移動或複製.】，選擇（新建工作簿），反覆循環即全部變爲獨立的工作簿文件。

           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "" & sht.Name, FileFormat:=xlNormal     '將工作簿另存爲EXCEL默認格式

拆分一個Excel工作簿中的多個工作表可以參照百度經驗：https://jingyan.baidu.com/article/75ab0bcb0ecc67d6874db27e.html

           ActiveWorkbook.Close

Excel2007以前的版本，一個工作簿中最多有255個工作表，07版本之後的理論上可以有無限個工作表，其建立的工作表數量受電腦內存的影響。 正常情況下，一個工作簿系統是默認三個工作表，如需要創建更多的工作表，可以手動創建，方法如下： 1、首先

       Next

以WPS 2019版本爲例： 關於 一個Excel工作簿中的多個工作表怎麼拆分成獨立表格? ，您可使用WPS參考下述步驟完成操作： 1、打開「表格（Excel）」文檔； 2、點擊「數據-拆分表格」； 3、按需選擇「把工作表按照內容拆分」或「把工作簿按照工作表

       MsgBox "文件已經被分拆完畢!"

以WPS 2019版本爲例： 關於怎麼將一個工作表拆分成多個工作表，您可使用WPS參考下述步驟完成操作： 1、打開「表格（Excel）」文檔； 2、點擊「數據-拆分表格」； 3、按需選擇「把工作表按照內容拆分」或「把工作簿按照工作表拆分」使用即可。

   End Sub

右鍵 工作表 的標籤，移動或複製 工作表 --到 新工作薄，重命名，保存，這個適合工作表少的。工作表多的話，可以用Excel自帶的VBA來完成，打開一個啓用宏的工作薄，按alt + f11，進入VBE界面，菜單欄那---插入-模塊 ，然後複製下面的代碼進去，

點擊“運行”。

你這個可以用查詢的方法。在同一個工作簿上建立多個以地區爲名的表。假設原表名爲“明細”，新建了一個名爲“廣州”表，要把原表中廣州地區的都放進來。選中廣州表，點擊菜單 數據—〉導入外部數據—〉新建數據庫查詢—〉，在彈出的窗口雙擊 “Excel Fil

點擊“運行子過程/用戶窗體”。

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

文件拆分完畢。

excel將一張工作表拆分成多個工作表方法如下： 打開需要編輯的Excel文檔。如圖所示，工作簿下方有很多工作表。現在需要將這些工作表單獨拆分開成一個個工作簿。 右鍵任意一個工作表標籤，在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。如下

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

WPS表格，一個工作表拆分成多個工作表

以WPS 2019版本爲例：

關於WPS表格，一個工作表拆分成多個工作表，您可zhidao使用WPS參考下述步驟完成操作版：

1、打開「表格（Excel）」文檔；

2、點擊「數據-拆分表格」；

3、按需選權擇「把工作表按照內容拆分」或「把工作簿按照工作表拆分」使用即可。

EXCEL如何將一個工作表根據條件拆分成多件工作表

以WPS 2019版本爲例：

關於一個EXCEL如何將一個工作表根據條件拆分zhidao成多件工作表，您可使用WPS參考下專述步驟完成操作：

1、打開「表格（Excel）」文檔；

2、點擊「數據-拆分表格」；

3、按需選擇「把工屬作表按照內容拆分」或「把工作簿按照工作表拆分」使用即可。

怎樣把excel中的一個工作表中的行拆分成若干個獨立的Excel文件？

1、在excel的加載項選擇方方格子，選擇彙總拆分功能，

2、在下拉菜單zhidao中選擇拆分工作簿；

3、設置要拆分出的工作表，以及需要儲存的位置，然後點擊確定；

4、運行完成後回，會有提示，可以直接查看文件，

5、在指答定的文件夾內就可以看到拆分好的表格。

excel如何將一個工作表根據條件拆分成多個工作表

操作步驟：

原始數據7a686964616fe4b893e5b19e31333365653266表如下（名稱爲：數據源），需要根據B列人員姓名拆分成每個人一個工作表。

點擊【開發工具】-【Visual Basic】或者Alt+F11的快捷鍵進入VBE編輯界面。

如下圖所示插入一個新的模塊。

如下圖，粘貼下列代碼在模塊中：

Sub CFGZB()

Dim myRange As Variant

Dim myArray

Dim titleRange As Range

Dim title As String

Dim columnNum As Integer

myRange = Application.InputBox(prompt:="請選擇標題行：", Type:=8)

myArray = WorksheetFunction.Transpose(myRange)

Set titleRange = Application.InputBox(prompt:="請選擇拆分的表頭，必須是第一行，且爲一個單元格，如：“姓名”", Type:=8)

title = titleRange.Value

columnNum = titleRange.Column

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Dim i&, Myr&, Arr, num&

Dim d, k

For i = Sheets.Count To 1 Step -1

If Sheets(i).Name <> "數據源" Then

Sheets(i).Delete

End If

Next i

Set d = CreateObject("Scripting.Dictionary")

Myr = Worksheets("數據源").UsedRange.Rows.Count

Arr = Worksheets("數據源").Range(Cells(2, columnNum), Cells(Myr, columnNum))

For i = 1 To UBound(Arr)

d(Arr(i, 1)) = ""

Next

k = d.keys

For i = 0 To UBound(k)

Set conn = CreateObject("adodb.connection")

conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName

Sql = "select * from [數據源$] where " & title & " = '" & k(i) & "'"

Worksheets.Add after:=Sheets(Sheets.Count)

With ActiveSheet

.Name = k(i)

For num = 1 To UBound(myArray)

.Cells(1, num) = myArray(num, 1)

Next num

.Range("A2").CopyFromRecordset conn.Execute(Sql)

End With

Sheets(1).Select

Sheets(1).Cells.Select

Selection.Copy

Worksheets(Sheets.Count).Activate

ActiveSheet.Cells.Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Next i

conn.Close

Set conn = Nothing

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

如下圖所示，插入一個控件按鈕，並指定宏到剛纔插入的模塊代碼。

點擊插入的按鈕控件，根據提示選擇標題行和要拆分的列字段，本例選擇“姓名”字段拆分，當然也可以選擇C列的“名稱”進行拆分，看實際需求。

代碼運行完畢後在工作簿後面會出現很多工作表，每個工作表都是單獨一個人的數據。具體如下圖所示：

注意：

1）原始數據表要從第一行開始有數據，並且不能有合併單元格；

2）打開工作簿時需要開啓宏，否則將無法運行代碼。

怎麼拆分一個excel工作簿中的多個工作表

工具：microsoft office excel 2007

步驟：

1、打開microsoft office excel 2007，右鍵任意一個工作表標籤，在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。

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、單擊運行-運行子過程|窗體，彈出提示窗口“文件已被拆分完畢”。完成。e68a84e799bee5baa6e997aee7ad9431333361306363