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

hbqchhp · 发表于 2008-12-19 12:36

轻轻一点，工作簿记录自动合并。代码在示例表中（在汇总表中点右键，查看代码）
1，本工作簿中各表的记录自动合并到总表

本工作簿汇总.rar (19.64 KB, 下载次数: 8543)
2，多工作簿记录合并到总表

多工作薄汇兑.rar (16.44 KB, 下载次数: 8503)

关于在本工作簿汇总各表的记录到总表代码，根据有的用户要求，想有选择地从各表中某行或某列中复制记录到总表中，你可以将下面的代码复盖原来的代码。红色的字符是选择范围，蓝色字符（如：1）表示是插入到总表的第二行（第一行是列标题），这两处可自行修改。(2009.3.30)

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

[ 本帖最后由 hbqchhp 于 2009-5-9 07:41 编辑 ]

碧海 · 发表于 2008-12-19 13:20

不错，谢谢楼主，辛苦了！

碧海 · 发表于 2008-12-19 13:41

有个问题，最好表格的格式能自己随意定义，我测试了一下这个东东，修改格式后就没办法汇总了，建议修改下！

hbqchhp · 发表于 2008-12-19 13:45

原帖由碧海于 2008-12-19 13:41 发表
有个问题，最好表格的格式能自己随意定义，我测试了一下这个东东，修改格式后就没办法汇总了，建议修改下！

你指的格式是哪方面的,看能不能改。

comman723 · 发表于 2008-12-19 14:18

haohaohaohao

雾里花 · 发表于 2008-12-19 14:28

不错的东西

shangerila · 发表于 2008-12-19 20:42

超级好，我要好好研究研究~

碧海 · 发表于 2008-12-23 15:46

实际上我的意思就是说如果我把你的表内的列增加后，仍然能够汇总，我测试了你的汇总表，增加几列后，就无法汇总了，希望解决下！

cotton1221 · 发表于 2008-12-23 15:56

下载，学习

habf2008 · 发表于 2008-12-23 16:00

谢谢分享o(∩_∩)o...

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

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

评分

你指的格式是哪方面的,看能不能改。