右鍵該工作表的“表籤”－“移動或複製工作表”（如果複製，將“建立副本”前的方框內打上勾）－“保存”或另存為……。
工作簿中有許多工作表，有時候需要將其中的一個發給他人，這就需要把這個工作表單獨保存為一個工作簿。有種方法是：保存一個副本刪除其他的工作表，本文將介紹另一種方法。
材料/工具
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
效果如下例：
