怎样把excel的几十张表（每张表格式一致），快速复制到一个表格里，请赐教，有什么公式和方法？

发布网友发布时间：2022-04-25 20:25

共2个回答

热心网友时间：2023-10-14 22:44

是在一个工作簿中的吗?
如是请用这个代码：
Sub XXX()
Dim sht As Worksheet
Dim irow&, icol&, Num&

Application.ScreenUpdating = False
For Each sht In Sheets
If sht.Name <> "汇总" Then
With sht
irow = .[a65536].End(xlUp).Row
icol = .[iv1].End(xlToLeft).Column
Num = Sheets("汇总").[a65536].End(xlUp).Row
.Range(.Cells(2, 1), .Cells(irow, icol)).Copy Sheets("汇总").Cells(Num + 1, 1)
End With
With Sheets("汇总")
.Columns(icol + 1).NumberFormatLocal = "@"
.Range(.Cells(Num + 1, icol + 1), .Cells(Num - 1 + irow, icol + 1)) = sht.Name
End With
End If
Next
Application.ScreenUpdating = True
End Sub

新建一个汇总用的表，标签改为：汇总。然后在VB编辑器中增加一个模块，把这代码复制进去。如不会操作请留个联系方式，我给你传个样表。追问非常感谢，麻烦给我传个样表，我对vb还不熟悉，只能是硬套公式，邮箱1391295873@qq.com

热心网友时间：2023-10-14 22:44

1、把所有的表格复制到一个表格里，（不知道有没简单方法）
2、点数据，排序。
3、用分类汇总
4、筛选包含“汇总”的列出来，复制，到另外一个新表里粘贴
5、查找与替换，替换掉所有“汇总”2个字为空白。
6、你所要的总表格就搞定了。OK