一步一步教你ecel中用vba自动从一个表按条件把数据填充到另一张表

1、v1.0可编辑可修改一步一步教你用VBA自动从一个表按条件把数据填充到另一张表高考上线与未上线统计，下面是某市2013年高考总分与单科分数线2013年全市文科分数线全市人 数一本分数人数三本分数人数5673724774547一本科目语文数学外语政治历史地理综合人数380426444391476394393分数112128128718274217三本科目语文数学外语政治历史地理综合人数4739475446914732467145474575分数9910599607157184单科分数线以语文为例：全市一本372人，即语文在372名的分数即为语文的上线分数。这里关键统计某人总分上了某一分数线，而单

2、科没上分数线的人数。进一步统计上该科老师头上该科是否努力，是不是拖了后腿。原始成绩放sheetl表中，统计后的数据放 sheet2表中，科任教师名单放 sheet3表中，数据如下：1.原始成绩表sheetl:班数外综加总姓名语文政治历史地理级学语合分分向恭谱02114126138229670607郑淞方02114127132229830602姜风021101291312306982790600沈鑫0210813712922574780599陈静021121221302337381790597蒋儒0211612912622672810597张璇琳0211613012622468840596李罗一

3、帆02112132128222690594廖梓君02113 129 125 22783710 594何志义02112112 133 235760 592李日匀霞0211312713421769770591刘奕伶02110125 130 222680 587赵原巧02110120130226710586黄莹0611311912323282730587雷凯迪0611310912821987640569梁虹06110126125206710567邓铃06109123123211727305662.科任教师表sheet3班班主任语文数学外语物理化学生物1肖友老师刘老师肖友老师肖雪老师张长老师吴明老师王

4、耀老师2陈小老师邓小老师向老师陈老师何继老师邓君老师陈小老师3张小老师姚老师王春老师陈老师徐文老师王老师张小老师4鲜松老师李老师鲜松老师高乐老师冯朝老师李老师黄家老师5何万老师敬文老师何万老师王文老师张长老师陈老师黄家老师6唐建老师唐建老师龙泽老师高乐老师魏定老师唐双老师林玉老师7刘老师姚仁老师刘老师冯老师杜老师吴明老师王耀老师8陈老师刘老师罗巧老师赵文老师冯朝老师陈老师张小老师9邓君老师邓小老师赵元老师贾老师何继老师邓君老师林玉老师10敬文老师敬文老师鲜松老师王文老师徐文老师吴明老师张小老师3.统计结果sheet2:班姓名 总分类别 未上线 未上线分科任教师科目数02向恭谱607 一本 数学

5、126向老师政治67何继老师02郑淞方602 一本 数学127向老师地理陈小老师02姜岚600 一本 语文110邓小老师政治69何继老师02沈鑫599 一本 语文108邓小老师历史74邓君老师02陈静597 一本 数学122向老师历史81邓君老师02蒋儒597 一本 外语126陈老师历史81邓君老师地理陈小老师02张璇琳596 一本 外语126陈老师政治68何继老师地理陈小老师02李罗一帆594 一本 政治69何继老师历史邓君老师地理陈小老师02廖梓君594 一本 外语125陈老师地理71陈小老师02何志文592 一本 数学112向老师02李日匀霞591 一本 数学127向老师政治69何继老师

6、历史77邓君老师地理陈小老师02刘奕伶587 一本 语文110邓小老师数学125向老师政治何继老师地理68陈小老师02赵原巧586 一本 语文110邓小老师数学120向老师历史邓君老师06黄莹587 一本 数学119龙泽老师外语123高乐老师地理73林玉老师06雷凯迪569 一本 数学109龙泽老师政治魏定老师地理64林玉老师06梁虹567 一本 语文110唐建老师数学126龙泽老师外语125高乐老师历史唐双老师地理林玉老师卜面介绍具体的操作步骤：sheet3 表中。一、把成绩数据按上表的格式放 sheetl表中，把科任教师信息看上述格式放2、 建立一个 VBA选中sheet2表，点菜单-宏-

7、Visual Basic编辑器，打开VBA®辑器。3、 点插入菜单一模块；双击新建的模块1;再点插入菜单下的过程，输入过程名，然后进入代码编辑，把下面的代码复制入代码框即可Public Sub 测试()Dim x, y, z, v, bj, bx As Longx = 2z = 2For v = 2 To 2270If (z, 11) < 710 ThenIf (z, 11) >= 567 Then(x, 2) = (z, 1)(x, 1) = (z, 2)(x, 3) = (z, 11)(x, 4)="一本"bj = (z, 2)语文If (z, 3

8、) < 112 Then(x, 5) = (1,3)5v1.0可编辑可修改(x, 6) = (z, 3)(x, 7) = (bj + 1,3)x = x + 1End If'数学If (z, 4) < 128 Then(x, 5) = (1,4)(x, 6) = (z, 4)(x, 7) = (bj + 1,4)x = x + 1End If英语If (z, 5) < 128 Then(x, 5) = (1,5)(x, 6) = (z, 5)(x, 7) = (bj + 1,5)x = x + 1End If政治If (z, 7) < 71 Then(x, 5) = (1, 7)(x, 6) = (z, 7)(x, 7) = (bj + 1,6)x = x + 1End If历史(x, 5) = (1,8)(x, 6) = (z, 8)(x, 7) = (bj + 1, 7)x = x + 1End If