用VBA程式實現，假設將所有sheet中的第一行，提取到新建的sheet表中\程式碼及註釋如下：Sub main()Worksheets.Add after:=Sheets(Sheets.Count) "新增新的工作表，用於存放資料For i = 1 To Sheets.Count - 1 "遍歷所有工作表，除新新增的工作表外Sheets(i).Rows(1).Copy Sheets(Sheets.Count).Range("A" & i) "將每個工作表的第一行，複製到新工作表，從第一行開始依次往下累加Next iEnd Sub

謝邀，出門腐敗前匆忙弄了個答案不知道有沒有馬虎的地方。在sheet1的B2中輸入公式=VLOOKUP($A1,Sheet2!$A$2:$B$21,2,FALSE)然後自動填充。這是sheet2的原始資料。其中$A$1和$B$20改成sheet2中成績表的第一格（左上角）及最後一格（右下角），如圖的例子中有一行表頭，所以是$A$2:$B$21，沒有那一行就是$A$1:$B$20。$符號不理解的話就先當不存在，$A$1就看成A1，但寫的時候一定不能省略。題目是VLOOKUP函式最基礎的用法，有空可以學習一下VLOOKUP函式，以後受用無窮。