[分享]多个工作薄数据汇总到一个工作表中！

阿斌 · 发表于 2005-10-3 21:51

好快的汇总方法，收藏！

all.smt · 发表于 2005-10-4 03:21

好有启发!

huntxp · 发表于 2005-10-21 23:48

谢谢了

lgcmeli · 发表于 2005-10-22 00:29

学习下

szxyz · 发表于 2005-10-24 01:03

可不可以不是加在行下面，而是加在列后面。

ling_663 · 发表于 2005-11-2 11:33

龙兄：

中午好！！我想你帮我看一下我们学校的成绩统计表，可不可以把初二（或初一）各个班的成绩自动汇总到初二（初一）全级这个工作薄中。

还有，帮我看一看这个统计表有什么漏洞，可不可以搞完善一点，因为我总觉得有时增加学生或减少学生时都会出错，特别是在把各科合格率、优秀率汇总成一个表时，最容易出错。麻烦你帮一下忙！

谢谢

tyj1127 · 发表于 2005-11-2 20:55

楼主：你那个“多个工作簿数据汇总到一个工作表中”要填资料的5个簿能否拆开不同部门填？填完后才汇总在总工作表中？

dfxy915 · 发表于 2005-11-2 22:12

得好好学学啊，钻究中。。。

shanyue · 发表于 2005-11-3 08:22

楼主：

如果每个工作表都有相同的表头，合并时，只需一个表头就可以了，该如何修改你的合并程序？？

向你表示万分感谢！！！

Long_III · 发表于 2005-11-3 08:38

以下是引用shanyue在2005-11-3 8:22:00的发言：
楼主：

如果每个工作表都有相同的表头，合并时，只需一个表头就可以了，该如何修改你的合并程序？？

向你表示万分感谢！！！

sht.Range(sht.Cells(2, 1), sht.Cells(a, b)).Copy Chjs.Cells(m, 2)

这句里的2表示第二行，到a行，你的标题是3行的行，这里就改为4，最开始的m = 2，也要改为4

这里是复制标题的sht.Range(sht.Cells(1, 1), sht.Cells(1, b)).Copy Chjs.Cells(1, 2)，改为1～3行

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

汇总成绩表