如何将Excel里一个工作薄内的多个工作表复制到一张新表里？
跨文件复制SHEET的方法如下（以windows10系统的excel2019版为例）：
1、打开BOOK1，右键Sheet，随后点击【移动或复制】按钮。
2、在接着自动打开的对话框中选择工作簿为【BOOK2】。
3、在随后进入的页面中点击【移至最后】按钮，并勾选【建立副本】，随后点击确定按钮。
4、打开BOOK2工作簿，即可看到刚刚的Sheet已经完整复制过来了。
5、随后对Sheet进行重命名，命名为Sheet2即可。
Ctrl点选sheet1、sheet2‘.......sheet28的标签，右键--移动或复制工作表--新工作簿--确定即可，如果原表格不变，则要勾选建立副本。
1.需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：
2.用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：
3.然后把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4.运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。
1、打开一个需要用到的Excel表格。
2、例如要将这个Excel表格中sheet5中的数据复制到sheet6、sheet7中去。
3、将sheet5中需要复制到sheet6、sheet7中选中，复制，然后分别点开sheet6、sheet7，在里面粘贴。
4、在sheet5中选中需要复制的数据，然后点击sheet6，同时按下键盘的 shift 键不放，再点击 sheet7 ，这时候可以看到它们会处于选中的状态。
5、然后鼠标右击，在出现的菜单中选择 粘贴 ，这个时候粘贴到需要的sheet6、sheet7中了，点击之后，就可以看到了。
将A文件中a1,a2,a3,a4,a5,a6,a7,a8,a9全选（鼠标点击工作表的时候同时按Ctrl键），点击右键，选择“移动或复制”，在出现的界面上，第一个选择文件B，最下面“建立副本”打对勾，确定即可全部复制至文件B。
按住ctrl，然后选中表格（下面票签），然后按正常的复制步骤即可。
选中目标sheet，右键-移动或复制
答：简单~随便画个按钮，双击，开始编辑 Private Sub CommandButton1_Click()Dim a, b a = Sheets.Count For b = 1 To a Sheets(b).Protect AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True Next End Sub 按一下...
答：在“汇总”表里面 1月份的输入 =SUMIF(1月份!$A:$A,"合计",1月份!B:B)回车并向右填充 2月份的 =SUMIF(2月份!$A:$A,"合计",2月份!B:B)或相加：=SUMIF(1月份!$A:$A,"合计",1月份!B:B)+SUMIF(2月份!$A:$A,"合计",2月份!B:B)...
答：选择要复制的工作表，右键选择『移动或复制工作表』，在弹出窗口中勾选“建立副本”。你就可以将所用值到新工作表了，改下新工作表的名字和内容，你就可以用它了。vlookup也可以用，这是另一个需求。它的帮助是：VLOOKUP(lookup_value,table_array,col_index_num,range_lookup)Lookup_value 为需要在...
答：使用方法：1、新建一个工作薄，将其命名为你合并后的名字。2、打开此工作薄。3、在其下任一个工作表标签上点击右键，选择“查看代码”。4、在打开的VBA编辑窗口中粘贴以下代码：Sub 工作薄间工作表合并()
答：i).Name Cells(i + 100, 2) = Sheets(i).[i40]Cells(i + 100, 3) = Sheets(i).[k40]Cells(i + 100, 4) = Sheets(i).[m40]Next End Sub 按F5运行程序，Alt + F11 回到Excel ，A100下面就是你要汇总的数据了！想放在其他单元格，你可以修改 Cells(i + 100, 1)里的100 ...
答：如果是在一个工作簿内的多个表格，合并：一个工作薄中多个工作表合并代码：在EXCEL中，到合并表里打开宏，将下列代码进行粘贴并保存。然后返回你需要合并的工作表中。或按 alt + f11,双击工程资源管理器里面的合并表的SHEET,在右侧的代码区粘贴如下代码。运行此宏，就合并了。Sub 合并sheets()n = 12...
答：3、找到需要汇总的表格，点击打开。4、选中相关Sheet表格，点击确定。5、弹出导入数据对话框，点击确定。【加入社群一起学习】6、同步骤1~5，依次添加其他Sheet表格数据即可，返回EXCEL表格，发现成功将多个Sheet工作薄汇总在一起。想要了解更多关于excel的相关信息，推荐咨询秒可职场。秒可职场将持续投入产品...
答：很容易啦。1 工具菜单下选项命令打开对话框，常规选项卡上，更改工作簿中工作表数，下次再进入时工作表就多了2 在工作表标签上右击，选择所有工作表，再右击插入工作表，选择几个表，就可以一次性插入几个表。然后按F4重复就行了
答：如果每个工作表的那两个单元格地址是固定的，可以用文本地址函数indirect()，把数据引过去。1、在汇总表输入所有的工作表名称。2、在B2/C2录入引用公式。公式如下图。我在后边的表里的A1都输入了1，B1都输入了2 =INDIRECT(A2&"!a1")=INDIRECT(A2&"!b1")3、然后公式下拉，就把数据都引用过来了...
答：excel 2010版本，总共1048576行，16384列。1、打开Excel 2010版本，新建一个空白工作簿。2、新建后，点击文件中的选项。3、点击选项后，进入公式页面，勾选R1C1引用样式。4、使用R1C1引用样式后，列字母就会变成数据，选中A1表格。5、选中A1表格后，按ctrl+↓就可以直接定位到最后一行，就可以看到Excel...
