如何把多个工作表的数据汇总到一起

zhibiaodi

原始成绩.rar (113.44 KB, 下载次数: 23)

2017-8-20 16:51 上传

点击文件名下载附件
原始数据

总共有16个班
1-11班有藏文成绩
12-16没有藏文成绩
1-6,12-14班有理综，理数成绩
7-11,15-16班有文综，文数成绩
从电脑中导出数据时，各个科目成绩是分开的
现在要把所有班级所有学生的科目成绩汇总到一个工作表中
请教大神，希望有详细的解答，谢谢。

zhibiaodi

朱荣兴 发表于 2017-8-21 13:49
新建一个   汇总   工作表，然后运行代码，结果就在这个叫   汇总   的工作表内

真的可以，太神奇了，非常感谢。
请问：是不是以后只要我把下次的成绩导入到汇总前面的工作表，然后运行，就可以直接得到汇总成绩了呢？

zhibiaodi

朱荣兴 发表于 2017-8-21 13:48
Sub 汇总成绩()
Dim sh As Worksheet
Dim arr, drr As Variant

非常感谢
希望大神有空的时候，帮我解释一下每行代码的意思，方便我学习，谢谢。
还有汇总的代码是否使用于下次成绩汇总，下次成绩出来的时候，使用汇总代码，需要注意些什么，谢谢。