步一步教你excel中用VBA自動(dòng)從一個(gè)表按條件把數(shù)據(jù)填充到另一張表

1、一步一步教你用VBA自動(dòng)從一個(gè)表按條件把數(shù)據(jù)填充到另一張表高考上線與未上線統(tǒng)計(jì)，下面是某市2013年高考總分與單科分?jǐn)?shù)線2013年全市文科分?jǐn)?shù)線全市人 數(shù)一本分?jǐn)?shù)人數(shù)三本分?jǐn)?shù)人數(shù)5673724774547一本科目語文數(shù)學(xué)外語政治歷史地理綜合人數(shù)380426444391476394393分?jǐn)?shù)112128128718274217三本科目語文數(shù)學(xué)外語政治歷史地理綜合人數(shù)4739475446914732467145474575分?jǐn)?shù)9910599607157184單科分?jǐn)?shù)線以語文為例：全市一本372人，即語文在372名的分?jǐn)?shù)即為語文的上線分?jǐn)?shù)。這里關(guān)鍵統(tǒng)計(jì)某人總分上了某一分?jǐn)?shù)線，而單科沒上分?jǐn)?shù)線的人數(shù)。

2、進(jìn)一步統(tǒng)計(jì)上該科老師頭上該科是否努力，是不是拖了后腿。原始成績放sheetl表中，統(tǒng)計(jì)后的數(shù)據(jù)放 sheet2表中，科任教師名單放 sheet3表中，數(shù) 據(jù)如下：1.原始成績表sheetl:姓名班 級(jí)語文數(shù) 學(xué)外語綜合政治歷史地理加分總 分向恭譜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班班主任語文數(shù)學(xué)外語物理化學(xué)生物1肖友老師劉老師肖友老師肖雪老師張長老師吳明老師王耀老師2陳小老師

4、鄧小老師向老師陳老師何繼老師鄧君老師陳小老師3張小老師姚老師王春老師陳老師徐文老師王老師張小老師4鮮松老師李老師鮮松老師高樂老師馮朝老師李老師黃家老師5何萬老師敬文老師何萬老師王文老師張長老師陳老師黃家老師6唐建老師唐建老師龍澤老師高樂老師魏定老師唐雙老師林玉老師7劉老師姚仁老師劉老師馮老師杜老師吳明老師王耀老師8陳老師劉老師羅巧老師趙文老師馮朝老師陳老師張小老師9鄧君老師鄧小老師趙元老師賈老師何繼老師鄧君老師林玉老師10敬文老師敬文老師鮮松老師王文老師徐文老師吳明老師張小老師3.統(tǒng)計(jì)結(jié)果sheet2:班姓名總分類別未上線 科目未上線分 數(shù)科任教師02向恭譜607一本數(shù)學(xué)126向老師政治67何

5、繼老師02鄭淞方602一本數(shù)學(xué)127向老師地理陳小老師02姜嵐600一本語文110鄧小老師政治69何繼老師02沈鑫599一本語文108鄧小老師歷史74鄧君老師02陳靜597一本數(shù)學(xué)122向老師歷史81鄧君老師02蔣儒597一本外語126陳老師歷史81鄧君老師地理陳小老師02張璇琳596一本外語126陳老師政治68何繼老師地理陳小老師02李羅一帆594一本政治69何繼老師歷史鄧君老師地理陳小老師02廖梓君594一本外語125陳老師地理71陳小老師02何志文592一本數(shù)學(xué)112向老師02 李昀霞591 一本數(shù)學(xué) 政治 歷史 地理127 向 老師69 何繼老師77 鄧君老師陳小老師02 劉奕伶587

6、 一本語文110 鄧小老師數(shù)學(xué)125 向 老師政治何繼老師地理68 陳小老師02 趙原巧586 一本語文110 鄧小老師數(shù)學(xué)120 向 老師歷史鄧君老師06 黃瑩587 一本數(shù)學(xué)119 龍澤老師外語123 高樂老師地理73 林玉老師06 雷凱迪569 一本數(shù)學(xué)109 龍澤老師政治魏定老師地理64 林玉老師06 梁虹567 一本語文110 唐建老師數(shù)學(xué)126 龍澤老師外語125 高樂老師歷史唐雙老師地理林玉老師下面介紹具體的操作步驟：1、 把 成績數(shù)據(jù)按上表的格式放sheet1 表中，把科任教師信息看上述格式放sheet3 表中。2、 建立一個(gè)VBA選中sheet2表，點(diǎn)菜單 宏-Visual

7、Basic編輯器，打開VBA®輯器。3、 點(diǎn)插入菜單- 模塊；雙擊新建的模塊1；再點(diǎn)插入菜單下的過程，輸入過程名，然后進(jìn)入代碼編輯，把下面的代碼復(fù)制入代碼框即可Public Sub 測(cè)試 ()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' 數(shù)學(xué)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' 地