怎麼將工作簿中的工作表單獨儲存出來

右鍵該工作表的“表籤”－“移動或複製工作表”（如果複製，將“建立副本”前的方框內打上勾）－“儲存”或另存為……。

工作簿中有許多工作表，有時候需要將其中的一個發給他人，這就需要把這個工作表單獨儲存為一個工作簿。有種方法是：儲存一個副本刪除其他的工作表，本文將介紹另一種方法。

材料/工具

EXCEL表格

1、開啟excel表格，可以看到該表格中有兩個工作表。 2、選擇其中一個工作表，點選滑鼠右鍵，在彈出的選項中點選“移動或複製工作表”。 3、之後彈出對話方塊，將“工作簿”下的選項選為“新工作簿”。 4、選好後點擊確認按鈕。 5、即可新生成一個新的只

方法

開啟EXCEL。

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

本文以分離出工作簿中的“工作表1”為例。

滑鼠右鍵點要單獨儲存的工作表表名，選“移動或複製工作表”， rn跳出一個對話方塊，在對話方塊中“工作簿”選“新工作簿”（如果原檔案中還要儲存此工作表，“建立副本”前的方框內打上“√”），“確定”後已經複製到新檔案中去了，你就可以單獨

右擊“工作表1”。

滑鼠郵件點選原單獨儲存的表名 選擇移動或者複製工作表 在彈出窗體選擇 新工作薄

在下拉列表中單擊“移動和複製”。

1、開啟表格，可以看到一個工作簿中有多個工作表。 2、右擊工作表名稱，點選檢視程式碼(V)。 3、顯示如下頁面。 4、空白處，複製黏貼如下程式碼： Private Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbo

彈出“移動或複製工作表”對話方塊。

因為知道的資訊有限，你試試下面這個： Sub ssk()Dim FName As StringDim MyExcelApp As New Excel.ApplicationDim W00KBookName As StringW00KBookName = Excel.Application.ActiveWorkbook.NameDim i As IntegerFor i = 1 To Excel.Applicatio

單擊“將選中的工作表移至工作簿”後的小倒三角，選擇“新工作簿”。

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

“建立副本”前的方框打上√。

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

單擊“確定”，這就建立了一個只包含工作表1的新工作簿。根據需要修改下，或直接儲存及命名下該工作簿，就能發給他人了。

我又一個帶VBA程式碼可以幫你把工作薄中的工作表儲存成單個的工作薄，前提是你先備份下要儲存的工作薄： Sub xx() Set wb = ActiveWorkbook For i = wb.Sheets.Count To 1 Step -1 wb.Sheets(i).Move ActiveWorkbook.SaveAs Filename:="E:資料資

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

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

一個Excel工作簿中的多個工作表想拆分成獨立表格，首先開啟表格找到並選中表格右下角的表一，然後，點選右鍵選擇“移動或複製工作表”，然後，開啟工作薄點選新工作薄，然後，點選確定，然後點選儲存，開啟儲存介面後再點選“儲存”（喜歡儲存到哪裡請根據自己的需求），這樣表一就儲存下來了。

儲存表二跟儲存表一是一樣的操作方法。滑鼠右擊表二，然後，點選“移動或複製工作表”，然後工作薄裡選擇“新工作薄”，儲存最後一個工作薄的時候要選擇“建立副本”不然儲存不了，然後點選“儲存”，然後，點選左上角“儲存”儲存工作薄，開啟儲存介面後點擊“儲存”就可以了。具體操作步驟如下：

1、首先開啟表格找到並選中表格右下角的表一。

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

3、然後，開啟工作薄點選新工作薄。

4、然後，點選確定。

5、然後點選儲存。

6、開啟儲存介面後再點選“儲存”（喜歡儲存到哪裡請根據自己的需求），這樣表一就儲存下來了。

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

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

9、然後工作薄裡選擇“新工作薄”。

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

11、然後點選“儲存”。

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

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

14、最後，兩個工作表都儲存下來了，，觀看著更方便了。

注意事項：

1、表格儲存位置根據個人需求而定。

2、要拆分成獨立表格，需要一個一個進行儲存。

怎麼把excel中的工作表匯出單獨儲存

我又一個帶VBA程式碼可以幫你把工作薄中的工作表儲存成單個的工作薄，前提是你先備份下要儲存的工作薄：

Sub xx()

Set wb = ActiveWorkbook

For i = wb.Sheets.Count To 1 Step -1

wb.Sheets(i).Move

ActiveWorkbook.SaveAs Filename:="E:\資料資料\" & "aaa" & ActiveSheet.Name

ActiveWorkbook.Close

Next

End Sub

備註：本程式將工作薄中的工作表儲存成為單個的工作表，並能刪除原有工作表，其中“E:\資料資料\”表示為儲存路徑，

“aaa"表示在原有工作表名稱的基礎之上新增以上字元

如果可行 請加分

excel如何單個儲存工作薄中的單個工作表

Sub SaveSheet1()

Application.DisplayAlerts = False

For i = 1 To Worksheets.Count - 1

Worksheets(2).Delete

Next

Dim myPath As String

myPath = "E:備份資料夾" & Worksheets(1).Cells(1, 1)

ThisWorkbook.SaveAs (myPath)

For i = 1 To Worksheets.Count - 1

Worksheets(2).Delete

Next

ThisWorkbook.Close

End Sub追問謝謝，是可以用的，能不能再幫我改進下，我工作薄中的3個工作表,我要儲存是第2個，工作簿名字是體檢，並且儲存b2格為檔名追答在迴圈語句中使用if語句判斷名稱，不等於體檢即刪除。

如何快速將多個excel工作表批量另存為單獨的工作簿

Sub SaveSheetAsWorkbook()

Dim theName As String

On Error GoTo Line1

For Each sht In ActiveWindow.SelectedSheets

sht.Copy

theName = ThisWorkbook.Path & ThisWorkbook.Name & "_" & sht.Name & ".xls"

ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlNormal

ActiveWindow.Close

Next

Line1:

End Sub

按Alt+F11，開啟VBA編輯器，在程式碼視窗中粘，最後按F5執行。即可！！

在EXCEL中一個工作薄有多個表格如何快速把它分成單個工作薄

拆分工作表為工作薄需要用巨集來處理

Excel 內 按 Alt+F11 檢視--程式碼視窗，

把如下複製進去 按F5執行即可

請這個Excel 放到一個資料夾內操作, 預設生成到當前資料夾

Sub fencun()

Application.ScreenUpdating = False

b = Sheets.Count

For i = 1 To b

Sheets(i).Copy

a = ThisWorkbook.Worksheets(i).Name

With ActiveWorkbook

.SaveAs Filename:=ThisWorkbook.Path & "" & a & ".xlsx"

.Close

End With

Next i

Application.ScreenUpdating = true

End Sub

效果如下例：