怎么把一个工作簿的两张工作表另存为

1. EXCEL工作簿中多个工作表如何另存其中一个

工具/原材料

excel2016版、电脑。

1、打开电脑找到并点击excel2016版软件；

2、打开excel2016版软件以后，为了更好的示范编辑2个任意文字的工作表；

3、编辑好文字以后，在表2的工作表标签，点击鼠标右键并在下拉选项中选择“移动或复制”；

4、在弹出的对话框中，上面选择新工作簿，下面勾选建立副本；

5、设置并确定好以后，在对表2的工作表进行“另存为”即可。

2. 如何快速将多个excel工作表批量另存为单独的工作簿

以下是合并当前工作簿下的所有工作表的VBA代码

Sub 合并当前工作簿下的所有工作表（）

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> ActiveSheet.Name Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕！"， vbInformation， "提示"

End Sub

3. excel中如何将一个工作簿的内容保存到另一个工作簿上

用宏。

在打印前触发程序运行。将各项信息复制进汇总（出货明细）表中。

Private Sub Workbook_BeforePrint(Cancel As Boolean)dim sh1 as worksheet,sh2 as worksheetset sh1=sheets（"打印销售单"）set sh2=sheets（"出货明细"）with sh2 i=.[a65536].end(3).row+1 '获取明细表的最后一行，再加1，赋值给变量i j=worksheetfunction.counta(sh1.range("A7:a17") '计算打印表的A7:A17有多少个品名 .range("A"&i &":A"&i+j-1)=sh1.[I5] '将打印表的I5赋值给明细表的i行，A列，以下类似 .range("B"&i &":b"&i+j-1)=sh1.[B4] .range("C"&i &":c"&i+j-1)=sh1.[I4] sh1.range("A7:A"&i+j-1).copy .range("D"&i) '将所有品名复制到明细表的D列，以下类似 sh1.range("E7:E"&i+j-1).copy .range("E"&i) sh1.range("G7:G"&i+j-1).copy .range("F"&i) sh1.range("I7:I"&i+j-1).copy .range("G"&i)end withEnd Sub。