excle 轻松合并成绩表
每次考完试，学校的教务部门都要将各班提交的成绩进行汇总和分析。由于各班的成绩表都是单独提交的，如何将所有班级的成绩合并到一张工作表上以便于数据的处理呢？这些操作我们平时都是通过复制粘贴来实现的，如果要合并的班级很多，就显得比较繁琐了，而且容易出错。笔者所在学校也有这样的问题，经过一番研究，我用vba轻轻松松地实现了这一操作。
+ |0 ]% X/ P# [2 U$ {3 s3 d. z8 p
- \7 q; p; O" ^团购网站系统,团购网程序假设我们将所有考生的成绩合并到sheet1中。在当前的工作表中用“控件工具箱”画一个命令按钮并命名为“合并成绩”（如图所示），双击后在其click事件中输入下面的代码：
% ^" N' P: Z* l) r1 f+ Yprivate sub commandbutton1_click() bbs.163k.com& _' j6 n/ f1 o# X( J
'统计要合并的工作表的数量（循环次数）
' Q. D# k f9 g163K网站系统官方论坛for i = 2 to sheets.count
9 B0 Y4 J# i2 O# ]/ M9 Mbbs.163k.comworksheets(i).select
! v- o& f; A$ r7 V6 H% A& d2 L' W163K网站系统官方论坛'选择各工作表中的数据区域并复制 为互联网事业发展提供源动力！$ H- b' v$ u( r* E
worksheets(i).select
% Q7 z' M5 c! v0 g( o ]1 B* L2 R8 P'选择各工作表中的数据区域并复制 为互联网事业发展提供源动力！( k4 E( W% C3 B% R% M
irow = worksheets(i).[b65536].end(xlup).row 163K网站系统官方论坛' R) O3 A# |+ b: S' L2 P
activesheet.range("a2:aa" && irow).select
$ |6 E8 } y! T7 H! W) u; c$ X163k团购网站系统官方服务论坛selection.copy
! }3 b2 v* @7 y+ n( M0 g'粘贴到第一张工作表中 bbs.163k.com+ a1 }- f7 m* B( }: @# S
worksheets(1).select bbs.163k.com7 U3 I3 F% `: d8 x2 n# s/ v% a
mrow = [a65536].end(xlup).row + 1 为互联网事业发展提供源动力！5 v# N6 {2 c" ]" B& U* D( |
range("a" && mrow).select 163K网站系统官方论坛+ ^9 M5 M. I/ S, }8 n
activesheet.paste
8 f0 q; p! X3 e t1 ]* p' D163k团购网站系统官方服务论坛next i 为互联网事业发展提供源动力！" |& A! f) L3 c* g; e$ j; j
'主体程序执行完毕
4 f3 V0 b3 g( `! M为互联网事业发展提供源动力！[a1].select
& q. I# e6 n1 Q9 ]1 Y* k团购网站系统,团购网程序commandbutton1.enabled = false
$ O+ K" g/ H# f+ p) y2 Y* A& D' V为互联网事业发展提供源动力！countall = "一共合并了" + str([a65536].end(xlup).row - 1) + "个学生的成绩,数据表合并成功！"
; {! G3 L5 t9 e5 }; l! w163k团购网站系统官方服务论坛msgbox countall, vbokonly, "提示信息"
# S4 X7 T4 O* Uend sub 163K网站系统官方论坛) W, u8 \' D# Y u$ T# N9 A9 D8 k
程序中“activesheet.range("a2:aa" && irow).select”的功能用于选择每张工作表除了第一行以外的数据区域（第一张工作表除外）。
' ]: g+ Y5 q7 K163k团购网站系统官方服务论坛小提示：在进行本操作之前，首先要保证每张工作表的字段顺序是一致的，且每张成绩中第一行是表格的标题行。要做到这一点也行容易，可事先将制作好的excel文件用“共享工作簿”的方法共享给老师们以便于他们录入成绩。
1 `3 g, W) V5 H' U163k团购网站系统官方服务论坛为互联网事业发展提供源动力！/ m% i& W+ D1 S* f' x- F N
9 b- g# v7 }' f0 ^6 D7 _, ~163k团购网站系统官方服务论坛团购网站系统,团购网程序( k1 _$ c5 V4 x N, Y
团购网站系统,团购网程序, h3 O- T ?3 W( z/ }
