匯總多工作表花名冊
上一貼中，“花名冊分類”的題目主要是檢驗大家對循環(huán)語句、判斷語句及一些單元格數據處理的方法。因為目標工作表和源工作表的格式都是一樣的，所以處理起來也相對比較簡單，無非就是給數據搬了個家。所以可以用我們前面貼子里說的Copy的方法，當然，也可以直接等于源區(qū)域的Value屬性，即：目標區(qū)域.value=源區(qū)域.value。比如我們想把Sheet1里的第一行數據復制到Sheet2的第一行，可以用以下兩句代碼中的任意一句：
復制內容到剪貼板
代碼:
Sheets("sheet1").Rows(1).Copy Sheets("sheet2").Rows(1)
復制內容到剪貼板
代碼:
Sheets("sheet2").Rows(1).Value = Sheets("sheet1").Rows(1).Value
這一點，在“寶貝”的作業(yè)里已經用到了。
上次的作業(yè)是對名冊進行分類，進行原樣的搬家。這一次的作業(yè)還是搬家，和上次不一樣的是，這次是將名冊匯總到一個工作表，而且只匯總相應的內容，不再是那種原封不動的搬家了。當然，原理還是一樣，如果你會了前一題，這一題對你來說，就顯得很小兒科了。
設計一個程序，能否實現(xiàn)目的很重要，實現(xiàn)目的的同時，高效率的程序也是我們追求的。但是我們現(xiàn)在才開始，大家不必太過于考慮效率的問題，管他什么代碼，只要能實現(xiàn)目的即可。在附件里，我加了計算程序執(zhí)行時間的代碼，你不用去管它，之所以加上這段代碼，是因為在下面的帖子里我可能會用到。 復制內容到剪貼板
代碼:
Sub mysub()
Dim start As Double
start = Timer
'在這里添加你的代碼
MsgBox "程序共執(zhí)行了" & Timer - start & "秒!"
End Sub
作業(yè)見附件，
學生花名冊匯總.rar (21.53 KB)此貼到此為止，咱們不見不散，樓下見！
本站僅提供存儲服務，所有內容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權內容，請
點擊舉報。
