一个excel问题

由于工作需要，遇到EXCLE难题：在一个excel工作薄中把sheet1到sheet5000的a6、b6这两格内容，依序贴到另一个表格的a1.b1到a5000.b5000。如果只有几个sheet,简单的CTRL+C、CTRL+V便可解决，但是大量的时候就不得不借助公式或者其他方法来解决…
无奈只得上网百度下呢，找到如下得文字：
问题：把sheet1到sheet200的a19这一格，依序贴到sheet0的a1到a200
解答：方法一：公式
可在A1储存格输入以下公式，再行拖曳至A200即可。
=INDIRECT("Sheet"&ROW()&"!A19")

方法二：VBA
Sub Macro1()
‘ 选择工作表 sheet0
Sheets("sheet0").Select
For r = 1 To 200
‘ 将工作表 1~200 里面的 a19 复制到 sheet0 的 A1~A200
Cells(r, 1) = Worksheets(CStr(r)).Range("a19")
On Error Resume Next
Next r
End Sub
于是依葫芦画瓢，便解决了这个问题