如何快速将多张工作表的数据汇总到一张表里面，

可爱大丁丁 · 发表于 2012-8-5 10:17

我做了个简单版本，大概意思写在汇总表里了。麻烦大家了。

SycoVictor · 发表于 2012-8-5 10:41

[code=vb]Sub test()
Dim sh As Worksheet
Range("a2:e65536").Delete
For Each sh In Worksheets
      If sh.Name <> "汇总" Then
         sh.Range("a2:e" & sh.[e65536].End(3).Row).Copy [a65536].End(3).Offset(1, 0)
      End If
Next
End Sub[/code]

这样可以么？

可爱大丁丁 · 发表于 2012-8-5 10:45

您这个太棒了，但我不会程序语言，有没有函数公式可以实现的？

可爱大丁丁 · 发表于 2012-8-5 13:35

这个问题，除了编程，就没有别的办法了吗{:soso_e149:}

ai_EXCEL · 发表于 2012-8-5 20:06

可以把附件传上来吗？？我估计可以用数据透视表的多重合并功能解决。

lzqmsy · 发表于 2012-8-6 01:04

很好,学习了,谢谢12楼

AVEL · 发表于 2012-8-6 05:34

还是用VBA解决吧。
这个真是一劳永逸的解决途径。

神箭 · 发表于 2012-8-6 09:17

SycoVictor 发表于 2012-8-5 10:41
这样可以么？

你的这个代码的确不错！如果能在代码后作个注解让其他人能清楚其具体的含义就理更好了！急需！

/yb星期六 · 发表于 2012-8-6 09:53

不用VBA 哪就复制粘贴罗{:soso_e113:}

CWTcbyl · 发表于 2012-8-6 10:35

本帖最后由 CWTcbyl 于 2012-8-6 10:45 编辑

例子.rar (14.58 KB, 下载次数: 243) 还可以用数据透视表多表合并

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

[求助] 如何快速将多张工作表的数据汇总到一张表里面，

评分