1、一步一步教你用VBA自動從一個表按條件把數據填充到另一張表高考上線與未上線統計,下面是某市2021年高考總分與單科分數線2021年全市文科分數線全市人數一本分數人數三本分數人數5673724774547一本科目數學外語政治歷史地理綜合人數3876394393分數112128128718274217三本科目數學外語政治歷史地理綜合人數47394754469474575分數99184單科分數線以語文為例：全市一本372人,即語文在372名的分數即為語文的上線分數.這里關鍵統計某人總分上了某一分數線,而單科沒上分數線的人數.進一步統計上該科老師頭上該科是否努力,是不是拖了后腿.原始成績放sheetl

2、表中,統計后的數據放sheet2表中,科任教師名單放sheet3表中,數據如下：原始成績表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.5058606176.58273

3、0587雷凱迪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何繼老師地理71.5陳小老師02李少帆594一

5、本政治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鄧君老師06587一本數學119龍澤老師外語123高樂老師地理73林玉老師06雷凱迪569一本數學109龍澤老師政治67.5魏定老師地理64林玉老師06梁虹567一本110唐建老師數學126龍澤老師外語125高樂老師歷

6、史73.5唐雙老師地理61.5林玉老師把成績數據按上表的格式放sheetl表中,把科任教師信息看上述格式放sheet3表中.卜面介紹具體的操作步驟:建立一個VBA;選中sheet2表,點菜單-宏-VisualBasic編輯器,翻開VBA編輯器.點插入菜單-模塊；雙擊新建的模塊1;再點插入菜單下的過程,輸入過程名,然后進入代碼編輯,把下面的代碼復制入代碼框即可PublicSub測試0Dimx,y,z,v,bj,bxAsLongx=2z=2Forv=2To2270IfSheet1.Cells(z,11)<710ThenIfSheet1.Cells(z,11)>=567ThenSheet

7、2.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)'語文IfSheet1.Cells(z,3)<112ThenSheet2.Cells(x,5)=Sheet1.Cells(1,3)Sheet2.Cells(x,6)=Sheet1.Cells(z,3)Sheet2.Cells(x,7)=Sheet3.Cells(bj+1,3)x=

8、x+1EndIf'數學IfSheet1.Cells(z,4)<128ThenSheet2.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+1EndIf'英語IfSheet1.Cells(z,5)<128ThenSheet2.Cells(x,5)=Sheet1.Cells(1,5)Sheet2.Cells(x,6)=Sheet1.Cells(z,5)Sheet2.Cells(x,7)=Sheet3.Cells

9、(bj+1,5)x=x+1EndIf'政治IfSheet1.Cells(z,7)<71ThenSheet2.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+1EndIf歷史IfSheet1.Cells(z,8)<82ThenSheet2.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+1EndIf'地理IfSheet1.Cells(z,9)<74ThenSheet2.Ce