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

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

2、總分上了某一分?jǐn)?shù)線，而單科沒(méi)上分?jǐn)?shù)線的人數(shù)。進(jìn)一步統(tǒng)計(jì)上該科老 師頭上該科是否努力，是不是拖了后腿。原始成績(jī)放sheetl表中，統(tǒng)計(jì)后的數(shù)據(jù)放sheet2表中，科任教師名單放sheet3表中，數(shù) 據(jù)如下：1.原始成績(jī)表sheetl:姓名班語(yǔ)文數(shù)外綜政治歷史地理加總 a級(jí)學(xué)語(yǔ)分分向恭譜021141261382296784.577.50607鄭淞方0211412713222972.58373.50602姜嵐021101291312306982790600沈鑫0210813712922572.574780599陳靜021121221302337381790597蔣儒02116129126226728

3、172.50597張璇琳02116130126224688471.50596李羅一帆021121321282226979. 573. 50594廖梓君0211312912522772.583710594何志文0211211213323576.582.5760592李旳霞02113127134217697770.50591劉奕伶0211012513022269. 584.5680587趙原巧021101201302267179. 575.50586黃瑩0611311912323276. 582730587雷凱迪0611310912821967.587640569梁虹061101261252067

4、173.561.50567鄧鈴0610912312321165.5727305662科任教師表sheet3班班主任語(yǔ)文數(shù)學(xué)外語(yǔ)物理化學(xué)生物1肖友老師劉老師肖友老師肖雪老師張長(zhǎng)老師吳明老師王罐老師2陳小老師鄧小老師向老師陳老師何繼老師鄧君老師陳小老師3張小老師姚老師王春老師陳老師徐文老師王老師張小老師4鮮松老師李老師鮮松老師高樂(lè)老師馮朝老師李老師黃家老師5何萬(wàn)老師敬文老師何萬(wàn)老師王文老師張長(zhǎng)老師陳老師黃家老師6唐建老師唐建老師龍澤老師高樂(lè)老師魏定老師唐雙老師林玉老師7劉老師姚仁老師劉老師馮老師杜老師吳明老師王雄老師8陳老師劉老師羅巧老師趙文老師馮朝老師陳老師張小老師9鄧君老師鄧小老師趙元老師賈老

5、師何繼老師鄧君老師林玉老師10敬文老師敬文老師鮮松老師王文老師徐文老師吳明老師張小老師3統(tǒng)計(jì)結(jié)果sheet2:班姓名總分類(lèi)別未上線 科目未上線分?jǐn)?shù)科任教師02向恭譜607一本數(shù)學(xué)126向老師政治67何繼老師02鄭淞方602一本數(shù)學(xué)127向老師地理73.5陳小老師02姜嵐600一本語(yǔ)文110鄧小老師政治69何繼老師02沈鑫599一本語(yǔ)文108鄧小老師歷史74鄧君老師02陳靜597一本數(shù)學(xué)122向老師歷史81鄧君老師02蔣儒597一本外語(yǔ)126陳老師歷史81鄧君老師地理72.5陳小老師02張璇琳596一本外語(yǔ)126陳老師政治68何繼老師地理71.5陳小老師02李羅一帆594一本政治69何繼老師歷史

6、79.5鄧君老師地理73.5陳小老師02廖梓君594一本外語(yǔ)125陳老師地理71陳小老師02何志文592一本數(shù)學(xué)112向老師02李旳霞591一本數(shù)學(xué)127向老師政治歷史地理69何繼老師77鄧君老師70. 5陳小老師02劉奕伶587一本語(yǔ)文110鄧小老師數(shù)學(xué)125向老師政治69.5何繼老師地理68陳小老師02趙原巧586一本語(yǔ)文110鄧小老師數(shù)學(xué)120向老師歷史79.5鄧君老師06黃瑩587一本數(shù)學(xué)119龍澤老師外語(yǔ)123高樂(lè)老師地理73林玉老師06靂凱迪569一本數(shù)學(xué)109龍澤老師政治67.5魏定老師地理64林玉老師06梁虹567一本語(yǔ)文110唐建老師數(shù)學(xué)126龍澤老師外語(yǔ)125高樂(lè)老師歷史7

7、3.5唐雙老師地理61.5林玉老師下面介紹具體的操作步驟：一、把成績(jī)數(shù)據(jù)按上表的格式放sheetl表中，耙科任教師信息看上述格式放sheet3表 中。二、建立一個(gè)VBA：選中sheet2表，點(diǎn)菜單宏Visual Basic編輯器，打開(kāi)VBA編輯器。三、點(diǎn)插入菜單-一模塊；雙擊新建的模塊1：再點(diǎn)插入菜單下的過(guò)程，輸入 過(guò)程名，然后進(jìn)入代碼編輯，把下面的代碼復(fù)制入代碼框即可Public Sub 測(cè)試()Dim x, y, z, v, bj, bx As Longx = 2z = 2For v = 2 To 2270If Sheetl. Cells(z, 11) < 710 ThenIf Sh

8、eetl.Cells(z, 11) >= 567 ThenSheet2. Cells (x,2)=Sheetl.Cells (z,1)Sheet2. Cells (x,1)=Sheetl.Cells (z,2)Sheet2. Cells (x,3)=Sheetl.Cells (z,11)Sheet2. Cells (x,4)="本"bj = Sheetl. Cells (z, 2)'語(yǔ)文If Sheetl. Cells(z, 3) < 112 ThenSheet2 Cells(x,5)=Sheetl. Cells(l,3)Sheet2 Cells(x,6

9、)=Sheetl Cells(z,3)Sheet2 Cells(x,7)=Sheet3. Cells(bj+ 1,3)End If'數(shù)學(xué)If Sheetl.Cells(z, 4) < 128 ThenSheet2. Cells (x,5)=Sheetl.Cells (1,4)Sheet2. Cells (x,6)=Sheetl.Cells (z,4)Sheet2. Cells (x,7)=Sheet3.Cells (bj+ 1,4)X = X + 1End If'英語(yǔ)If Sheetl.Cells(z, 5) < 128 ThenSheet2. Cells (x,5

10、)=Sheetl.Cells (1,5)Sheet2. Cells (x,6)=Sheetl.Cells (z,5)Sheet2. Cells (x,7)=Sheet3.Cells (bj+ 1,5)X = X + 1End If'政治If Sheetl. Cells (z, 7) < 71 ThenSheet2 Cells(x,5)=Sheetl Cells(l,7)Sheet2 Cells(x,6)=Sheetl Cells(z,7)Sheet2. Cells (x,7)二 Sheet3. Cells(bj+ 1,6)End If'歷史If Sheetl.Cells(z, 8) < 82 ThenSheet2. Cells (x, 5) = Sheetl. Cells (1, 8)Sheet2. Cells (x, 6) = Sheetl. Cells (z, 8)Sheet2. Cells(x, 7)二 Sheet3. Cells(bj + 1, 7)X = X + 1End If'地理If Sheetl.Cells(z, 9) < 74 ThenSheet2. Cells (x,5)=Sheetl. Cells (1,9)Sheet2. Ce