每次考完試，學校的教務部門都要將各班提交的成績進行匯總和分析。由于各班的成績表都是單獨提交的，如何將所有班級的成績合并到一張工作表上以便于數據的處理呢？這些操作我們平時都是通過復制粘貼來實現的，如果要合并的班級很多，就顯得比較繁瑣了，而且容易出錯。筆者所在學校也有這樣的問題，經過一番研究，我用VBA輕輕松松地實現了這一操作。　　假設我們將所有考生的成績合并到Sheet1中。在當前的工作表中用“控件工具箱”畫一個命令按鈕并命名為“合并成績”（如圖所示），雙擊后在其Click事件中輸入下面的代碼：　　Private Sub CommandButton1_Click()　　'統計要合并的工作表的數量（循環次數）　　For i = 2 To Sheets.Count　　Worksheets(i).Select　　'選擇各工作表中的數據區域并復制　　Worksheets(i).Select　　'選擇各工作表中的數據區域并復制　　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　　'主體程序執行完畢　　[a1].Select　　CommandButton1.Enabled = False　　countall = '一共合并了' + Str([a65536].End(xlUp).Row - 1) + '個學生的成績,數據表合并成功！'

　　MsgBox countall, vbOKOnly, '提示信息'　　End Sub　　程序中“ActiveSheet.Range('A2:AA' && irow).Select”的功能用于選擇每張工作表除了第一行以外的數據區域（第一張工作表除外）。　　小提示：在進行本操作之前，首先要保證每張工作表的字段順序是一致的，且每張成績中第一行是表格的標題行。要做到這一點也行容易，可事先將制作好的Excel文件用“共享工作簿”的方法共享給老師們以便于他們錄入成績。