多表合并与汇总问题

idxod

做为一个EXCEL的半瓶子醋，最近遇到一个问题，需要用到时多表合并汇总的技术，现将需求说明如下，请教各位大神：

前题：各表格式一致，表格名不相同
用VBA代码实现以下四个目标：
实现目标一：同一工作薄内，多表合并不汇总
实现目标二：同一工作薄内，多表汇总
实现目标三：多个工作薄内，多表合并不汇总
实现目标四：多个工作薄内，多表汇总


说明：（需要用VBA，而不是SQL，因为表格日益增多，SQL手工UNION ALL也显得烦琐 ）

如果有困难，能够实现目标一和目标三也可以，其他我可以通过函数实现

再次向热心的您表示谢意，期待您的回复

一个崇拜高手的EXCEL 半瓶子醋

aoranbuqun

上附件.
另外论坛里挺多这样功能的实例.可以参考!

idxod

目标一实现：一个工作薄内，多工作表合并
Dim m As Integer
Dim n As Integer
Dim o As Integer
For m = 2 To 6
   n = Sheets(m).[a65536].End(xlUp).Row
   o = Sheets(1).[a65536].End(xlUp).Row
   Sheets(m).Select
   Range("a1", "z" & n).Select
   Range("a" & n).Activate
   Selection.Copy
   Sheets(1).Select
   Range("a" & o + 1).Select
   ActiveSheet.Paste
Next

LMY123

发表于 2012-4-21 21:42:08 |只看该作者 |倒序浏览 分享到： 0
★  万用信息管理平台（完整版）          免费下载   &   在线试用  ★
[分享] 合并与拆分工作表的各种方法与模板汇总   [复制链接]
本帖已被收录到知识树中，索引项：多表合并和汇总
http://club.excelhome.net/thread-858389-1-1.html

idxod

aoranbuqun 发表于 2014-4-25 12:28
上附件.
另外论坛里挺多这样功能的实例.可以参考!

谢谢您，我再找找，估计可以先解决目标 一

idxod

LMY123 发表于 2014-4-25 14:08
发表于 2012-4-21 21:42:08 |只看该作者 |倒序浏览 分享到： 0
★  万用信息管理平台（完整版）           ...

谢谢您，你提供的东东很好，很受益