[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

 

转载于:https://www.cnblogs.com/sinodragon21/p/9561640.html