作者：乔山办公网日期：
返回目录：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运行。答即可！！
本文以win7系统excel2018为例进抄行演示，具体步骤如下所示。
1、右键点击需要复制的工作袭薄，在弹出知的菜单中选择移动或复制选项卡。
2、选择需要移动的工作薄道勾选下方建立副班选项。
3、点击上方下拉菜单选择新工作薄之后点击确定即可。
示例操作百步骤如下：
我们需要的工具有：电脑、EXCEL
1、首先打开度excel表格，进入需要单独保存的”工作簿“问内。
2、在”工作簿“上方单击右键，选择”答移动或复制“选项。
3、对话框里”工作簿“选项选择”新工作簿“，下方钩上”建立副本“选项即可。这样这个工内作簿就会新生成一个单独文件保存就好，而原有的文件内容也不会受影容响。
工具/原材料
excel2016版、电脑。
1、打开电脑找到并点击excel2016版软件；
2、打开excel2016版软件以后，为了更好的示范编辑zd2个任意版文字的工作表；
3、编辑好文字以后，在权表2的工作表标签，点击鼠标右键并在下拉选项中选择“移动或复制”；
4、在弹出的对话框中，上面选择新工作簿，下面勾选建立副本；
5、设置并确定好以后，在对表2的工作表进行“另存为”即可。