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

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

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

3、132128222690594廖梓君0211312912522783710594何志文02112112133235760592李日匀霞0211312713421769770591刘奕伶02110125130222680587赵原巧021101201302267105860611311912323282730587雷凯迪0611310912821987640569梁虹 06110 126 125 206710 567邓铃 06109 123 123 21172730 5662.科任教师表sheet3班班主任语文数学外语物理化学生物1肖友老师刘老师肖友老师肖雪老师张长老师吴明老师王耀老师2陈小老师

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

5、继老师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 何继老师77 邓君老师陈小老师02 刘奕伶587

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

7、Basic编辑器，打开VBA®辑器。3、 点插入菜单- 模块；双击新建的模块1；再点插入菜单下的过程，输入过程名，然后进入代码编辑，把下面的代码复制入代码框即可Public Sub 测试 ()Dim x, y, z, v, bj, bx As Long x = 2 z = 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)' 语文I

8、f (z, 3) < 112 Then(x, 5) = (1, 3)(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' 历史If (z, 8) < 82 Then (x, 5) = (1, 8) (x, 6) = (z, 8) (x, 7) = (bj + 1, 7) x = x + 1End If' 地