多表数据汇总，谢谢！

wanggfcn · 发表于 2012-8-22 09:16

本帖最后由 wanggfcn 于 2012-8-22 09:17 编辑

多表汇总（求助）.rar (26.49 KB, 下载次数: 821)
各位老师！你们好！
我想在工作薄中，将“汇总”工作表前面的所有工作表汇总到“汇总”工作表中，前面所有的工作表格式都一样，只需要将前面所有工作表第“4行”及以下全部汇总到“汇总”工作表中，谢谢！这样汇总后我就可以通过透视表找出所有的材料用量。请赐一个代码吧！谢谢！

momoca2006 · 发表于 2012-8-22 09:25

楼主既然知道最后用数据透视表汇总，为什么不直接用数据透视表把需要汇总的几个工作表一次汇总呢？

leo2011 · 发表于 2012-8-22 09:37

请测试。做了简单。

蓝桥玄霜 · 发表于 2012-8-22 09:42

Sub lqxs()
Dim Sht As Worksheet, Myr&, m&
Application.ScreenUpdating = False
Sheet21.Activate
For Each Sht In Sheets
If Sht.Name <> "汇总" Then
Myr = Sht.[a65536].End(xlUp).Row
m = [a65536].End(xlUp).Row + 1
If Myr >= 4 Then
Sht.[a4].Resize(Myr - 3, 10).Copy Cells(m, 1)
End If
End If
Next
Application.ScreenUpdating = True
End Sub

复制代码

蓝桥玄霜 · 发表于 2012-8-22 09:43

请见附件。

suwenkai · 发表于 2012-8-22 09:43

参考一下。

KCFONG · 发表于 2012-8-22 09:45

see if help you

wanggfcn · 发表于 2012-8-22 10:04

蓝桥玄霜发表于 2012-8-22 09:43
请见附件。

蓝老师！您好！我测试有一个小问题，如果在“汇总”工作表后还有别的工作表的话（我不想将其汇总进去），我按汇总后也将进入“汇总”工作表里。有解决方法吗？谢谢！

mzbao · 发表于 2012-8-22 10:12

这么多人帮忙做了，我是最慢的一个了。不过还是传上来，和其他人的基本一样，只是在序号里改变为产品名-序号
无标题.jpg

wanggfcn · 发表于 2012-8-22 10:12

leo2011 发表于 2012-8-22 09:37
请测试。做了简单。

老师！您好！有一个小问题，如果在“汇总”工作表之后有别的工作表的话，也会汇总进去（我不想汇总进行），能解决吗？另外在“汇总”工作表中有一个表头，谢谢！

		自动登录	找回密码
密码			免费注册

[已解决] 多表数据汇总，谢谢！

评分

评分

评分

评分

评分