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