轻轻一点，工作簿自动合并。

lanseqingren · 发表于 2009-6-24 16:53

LZ你好：我现在有N个工作簿，每个工作簿有N个表单。我想将每个工作簿的第三个到第N个表单的B7:G30进行汇总怎么做？谢谢

hbqchhp · 发表于 2009-6-24 18:19

原帖由 lanseqingren 于 2009-6-24 16:53 发表
LZ你好：我现在有N个工作簿，每个工作簿有N个表单。我想将每个工作簿的第三个到第N个表单的B7:G30进行汇总怎么做？谢谢

那你将不参与汇总的表删除掉就行了

yuzhou0723 · 发表于 2009-6-30 08:04

先做记号，慢慢研究

tygg · 发表于 2009-6-30 14:47

研究了一下，感觉不错，但数据透视似可以实现

yuquancsk · 发表于 2009-6-30 17:52

很实用呢，谢谢楼主了

sunnight · 发表于 2009-6-30 22:03

楼主你好，请教一下我想要做月的汇总
参考了一下你的模板有以下问题(因为是初学者请不要介意)

1.是否能自动生成?即不用按纽就会自动汇总到汇总表中？
2.是否能够让其自动将空白的部份去掉，只留下有用的数据部份。
(因为每日的行数有多有少，但我统整时只需要有内容的地方)

谢谢。

sydjx · 发表于 2009-7-2 10:27

厉害，很实用，感谢。

isp9999 · 发表于 2009-7-2 17:43

不错！但是何海霞没有合计呀！！

mobile10086 · 发表于 2009-7-2 21:36

Sub 工作簿汇总()
For Each st In Worksheets
If st.Name <> ActiveSheet.Name Then st.UsedRange.Range("a2:f31").Copy [a65536].End(xlUp).Offset(1, 0)
Next
End Sub
光看楼主的代码，我发现一个问题，就是从a2到f31，也就是说固定区域。如果我下一张表格的数据行多了和列多了，就会无法实现吧。期待更完美的。

hbqchhp · 发表于 2009-7-6 23:25

可以将("a2:f31）改为你所需要的

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

[推荐] 轻轻一点，工作簿自动合并。