Excel：簡(jiǎn)單合并成績(jī)表

每次考完試，學(xué)校的教務(wù)部門都要將各班提交的成績(jī)進(jìn)行匯總和分析。由于各班的成績(jī)表都是單獨(dú)提交的，如何將所有班級(jí)的成績(jī)合并到一張工作表上以便于數(shù)據(jù)的處理呢？這些操作我們平時(shí)都是通過復(fù)制粘貼來實(shí)現(xiàn)的，如果要合并的班級(jí)很多，就顯得比較繁瑣了，而且容易出錯(cuò)。筆者所在學(xué)校也有這樣的問題，經(jīng)過一番研究，我用VBA輕輕松松地實(shí)現(xiàn)了這一操作。　　假設(shè)我們將所有考生的成績(jī)合并到Sheet1中。在當(dāng)前的工作表中用“控件工具箱”畫一個(gè)命令按鈕并命名為“合并成績(jī)”（如圖所示），雙擊后在其Click事件中輸入下面的代碼：　　Private Sub CommandButton1_Click()　　'統(tǒng)計(jì)要合并的工作表的數(shù)量（循環(huán)次數(shù)）　　For i = 2 To Sheets.Count　　Worksheets(i).Select　　'選擇各工作表中的數(shù)據(jù)區(qū)域并復(fù)制　　Worksheets(i).Select　　'選擇各工作表中的數(shù)據(jù)區(qū)域并復(fù)制　　irow = Worksheets(i).[B65536].End(xlUp).Row　　ActiveSheet.Range('A2:AA' && irow).Select　　Selection.Copy　　'粘貼到第一張工作表中　　Worksheets(1).Select　　mrow = [a65536].End(xlUp).Row + 1　　Range('A' && mrow).Select　　ActiveSheet.Paste　　Next i　　'主體程序執(zhí)行完畢　　[a1].Select　　CommandButton1.Enabled = False　　countall = '一共合并了' + Str([a65536].End(xlUp).Row - 1) + '個(gè)學(xué)生的成績(jī),數(shù)據(jù)表合并成功！'

　　MsgBox countall, vbOKOnly, '提示信息'　　End Sub　　程序中“ActiveSheet.Range('A2:AA' && irow).Select”的功能用于選擇每張工作表除了第一行以外的數(shù)據(jù)區(qū)域（第一張工作表除外）�！　⌒√崾荆涸谶M(jìn)行本操作之前，首先要保證每張工作表的字段順序是一致的，且每張成績(jī)中第一行是表格的標(biāo)題行。要做到這一點(diǎn)也行容易，可事先將制作好的Excel文件用“共享工作簿”的方法共享給老師們以便于他們錄入成績(jī)。