在Excel中如何快速把多张工作表同时放在一个工作表中？

在Excel中如何快速把多张工作表同时放在一个工作表中？

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  总计  中 运行  如上代码，就会将所有 月份 分表 汇总 进来，方便后续处理，而 不需要一次次粘贴处理。

是放到一个工作薄吧？

用VBA就可以实现

Q我吧，我跟你说怎么弄，前几天刚在这里给另一个朋友做过，可能他的表格式与你的不一样，所以VBA代码不适用，只要相应做些更改就可以了。
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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息