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

1、一步一步教你用VBA自动从一个表按条件把数据填充到另一张表高考上线与未上线统计，下面是某市2013年高考总分与单科分数线2013年全市文科分数线全市人 数一本分数人数三本分数人数5673724774547一本科目语文数学外语政治历史地理综合人数3876394393分数112128128718274217三本科目语文数学外语政治历史地理综合人数47394754469474575分数99184单科分数线以语文为例：全市一本372人，即语文在372名的分数即为语文的上线分数。这里关键统计某人总分上了某一分数线，而单科没上分数线的人数。进一步统计上该科老师头上该科是否努力，是不是拖了后腿。原始成绩放s

2、heetl表中，统计后的数据放sheet2表中，科任教师名单放sheet3表中，数据如下：1.原始成绩表sheetl:姓名班级语文数学外语综合政治历史地理加分总分向恭谱2296784.577.50607郑淞方22972.58373.50602姜岚00沈鑫02108.574780599陈静97蒋儒226728172.50597张璇琳021168471.50596李罗一帆0211279.573.50594廖梓君02172.583710594何志文23576.582.5760592李旳霞021697770.50591刘奕伶22269.584.5680587赵原巧2267179.575.50586黄莹

3、06176.582730587雷凯迪06167.587640569梁虹2067173.561.50567邓铃21165.5727305662.科任教师表sheet3班班主任语文数学外语物理化学生物1肖友老师刘老师肖友老师肖雪老师张长老师吴明老师王耀老师2陈小老师邓小老师向老师陈老师何继老师邓君老师陈小老师3张小老师姚老师王春老师陈老师徐文老师王老师张小老师4鲜松老师李老师鲜松老师高乐老师冯朝老师李老师黄家老师5何万老师敬文老师何万老师王文老师张长老师陈老师黄家老师6唐建老师唐建老师龙泽老师高乐老师魏定老师唐双老师林玉老师7刘老师姚仁老师刘老师冯老师杜老师吴明老师王耀老师8陈老师刘老师罗巧老师赵

4、文老师冯朝老师陈老师张小老师9邓君老师邓小老师赵元老师贾老师何继老师邓君老师林玉老师10敬文老师敬文老师鲜松老师王文老师徐文老师吴明老师张小老师3.统计结果sheet2:班姓名总分类别未上线科目未上线分数科任教师02向恭谱607一本数学126向老师政治67何继老师02郑淞方602一本数学127向老师地理73.5陈小老师02姜岚600一本语文110邓小老师政治69何继老师02沈鑫599一本语文108邓小老师历史74邓君老师02陈静597一本数学122向老师历史81邓君老师02蒋儒597一本外语126陈老师历史81邓君老师地理72.5陈小老师02张璇琳596一本外语126陈老师政治68何继老师地理

5、71.5陈小老师02李罗一帆594一本政治69何继老师历史79.5邓君老师地理73.5陈小老师02廖梓君594一本外语125陈老师一本地理71陈小老师02何志文592数学112向老师02李昀霞591一本数学 政治 历史 地理127 向 老师69 何继老师77 邓君老师70.5 陈小老师02刘奕伶587一本语文110邓小老师数学125向 老师政治69.5何继老师地理68陈小老师02赵原巧586一本语文110邓小老师数学120向 老师历史79.5邓君老师06黄莹587一本数学119龙泽老师外语123高乐老师地理73林玉老师06雷凯迪569一本数学109龙泽老师政治67.5魏定老师地理64林玉老师0

6、6梁虹567一本语文110唐建老师数学126龙泽老师外语125高乐老师历史73.5唐双老师地理61.5林玉老师面介绍具体的操作步骤：把成绩数据按上表的格式放sheetl表中，把科任教师信息看上述格式放sheet3 表中。二、建立一个 VBA ；选中 sheet2 表，点菜单-宏-Visual Basic 编辑器，打开VBA编辑器。三、点插入菜单 - 模块；双击新建的模块 1；再点插入菜单下的过程，输入 过程名，然后进入代码编辑，把下面的代码复制入代码框即可Public Sub 测试()Dim x, y, z, v, bj, bx As Longx = 2z = 2For v = 2 To 22

7、70If Sheet1.Cells(z, 11) = 567 Then Sheet2.Cells(x, 2) = Sheet1.Cells(z, 1) Sheet2.Cells(x, 1) = Sheet1.Cells(z, 2) Sheet2.Cells(x, 3) = Sheet1.Cells(z, 11) Sheet2.Cells(x, 4) = 一本 bj = Sheet1.Cells(z, 2) 语文If Sheet1.Cells(z, 3) 112 ThenSheet2.Cells(x, 5) = Sheet1.Cells(1, 3)Sheet2.Cells(x, 6) = She

8、et1.Cells(z, 3)Sheet2.Cells(x, 7) = Sheet3.Cells(bj + 1, 3) x = x + 1End If 数学If Sheet1.Cells(z, 4) 128 ThenSheet2.Cells(x, 5) = Sheet1.Cells(1, 4)Sheet2.Cells(x, 6) = Sheet1.Cells(z, 4)Sheet2.Cells(x, 7) = Sheet3.Cells(bj + 1, 4) x = x + 1End If 英语If Sheet1.Cells(z, 5) 128 ThenSheet2.Cells(x, 5) =

9、Sheet1.Cells(1, 5)Sheet2.Cells(x, 6) = Sheet1.Cells(z, 5)Sheet2.Cells(x, 7) = Sheet3.Cells(bj + 1, 5) x = x + 1End If 政治If Sheet1.Cells(z, 7) 71 ThenSheet2.Cells(x, 5) = Sheet1.Cells(1, 7)Sheet2.Cells(x, 6) = Sheet1.Cells(z, 7)Sheet2.Cells(x, 7) = Sheet3.Cells(bj + 1, 6) x = x + 1End If 历史If Sheet1.Cells(z, 8) 82 ThenSheet2.Cells(x, 5) = Sheet1.Cells(1, 8)Sheet2.Cells(x, 6) = Sheet1.Cells(z, 8)Sheet2.Cells(x, 7) = Sheet3.Cells(bj + 1, 7) x = x + 1End If 地理If Sheet1.Cells(z, 9) 74 ThenSheet2.Cells(x, 5) = Sheet1.