怎么将工作簿中的工作表单独保存出来

右键该工作表的“表签”－“移动或复制工作表”（如果复制，将“建立副本”前的方框内打上勾）－“保存”或另存为……。

工作簿中有许多工作表，有时候需要将其中的一个发给他人，这就需要把这个工作表单独保存为一个工作簿。有种方法是：保存一个副本删除其他的工作表，本文将介绍另一种方法。

材料/工具

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

效果如下例：