类型一样,用复制可以,但比较慢,有没有快速的方法
1、将需要合并的所有表格放到一个文件夹中。
2、打开Excel表格,在表格上方的工具栏中点击数据下方中点击新建查询后点击下拉菜单中的从文件选项。
3、在弹出的对话框中选择刚刚存储表格的文件夹后点击确定选项。
4、在合并界面点击下方的下拉菜单并点击下拉菜单中的合并并加载选项。
5、选择要合并的工作表的名称并点击确定选项完成多个工作表格的合并。
1.把 多个工作表 合并到到一张表, 最快捷的方法是用宏处理:
2.例如 将多个表合并到总计表:
总计 表只留一个标题,右键点 汇总 工作表 标签 ,查看代码, 把如下代码复制进去, F5运行:
Sub 工作表合并()
For Each st In Worksheets
If st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
Next
End Sub
3.就会把多个表合并 到 总表。
4.如下例: 在Sheet 总计 中 运行 如上代码,就会将所有 月份 分表 汇总 进来,方便后续处理,而 不需要一次次粘贴处理。
以WPS 2019版本为例:
关于Excel中如何快速把多张工作表同时放在一个工作表中,您可使用WPS参考下述步骤完成操作:
1、打开「表格(Excel)」文档;
2、点击「数据-合并表格-多个工作表合并成一个工作表」;
3、勾选需合并的工作表即可。
提示:在设置合并工作表时也可添加其他「表格(Excel)」文档来选择其他文档的工作表来合并。
- 官方电话官方服务
- 官方网站
Private Sub CommandButton1_Click()
Dim i, j, k, l As Integer
Dim strPath As String
strPath = "d:\test" '要处理的文件夹
With Application.FileSearch
.LookIn = strPath
.SearchSubFolders = False '不包含子文件夹
.Filename = "*.xls"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles.Count
t (i)
j = Workbooks("汇总各月数据_遍历方式.xls").Sheets("Sheet1").Range("A65536").End(xlUp).Row
k = Sheets("Sheet1").Range("A65536").End(xlUp).Row
l = Sheets("sheet1").Range("IV1").End(xlToLeft).Column
Range("A2:" & Chr(l + 64) & k).Copy Workbooks("汇总各月数据_遍历方式.xls").Sheets("Sheet1").Range("A" & j + 1)
ActiveWorkbook.Close
Next i
End If
End With
End Sub