一个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")方法二：VBASub Macro1()‘ 选择工作表 sheet0Sheets("sheet0").SelectFor r = 1 To 200‘ 将工作表 1~200 里面的 a19 复制到 sheet0 的 A1~A200Cells(r, 1) = Worksheets(CStr(r)).Range("a19")On Error Resume NextNext rEnd Sub于是依葫芦画瓢，便解决了这个问题