[VBA原創源代碼] excelhome 彙總多工作表花名冊

生病了，一點一滴的積累，慢慢康復，今年十月，我就 2 週歲了。

以下代碼完成了excelhome中留的作業

http://club.excelhome.net/forum.php?mod=viewthread&tid=470603&page=22#pid3114744

Sub mysub()
  Dim start As Double
  start = Timer
  
    '在這裏添加你的代碼
    For i = 2 To 8
        For j = 3 To Sheets(i).[B65536].End(xlUp).Row
            k = Sheets(1).[B65536].End(xlUp).Row + 1
            
            Sheets(1).Range("b" & k & ":c" & k).Value = Sheets(i).Range("b" & j & ":c" & j).Value
            Sheets(1).Range("d" & k).Value = Sheets(i).Range("e" & j).Value
            Sheets(1).Range("e" & k).Value = Sheets(i).Range("L" & j).Value
            Sheets(1).Range("f" & k).Value = Sheets(i).Range("k" & j).Value
        
        Next j
    Next i
    
  
  MsgBox "程序共執行了" & Timer - start & "秒!"
End Sub