由于工作需要，遇到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
于是依葫蘆畫瓢，便解決了這個問題
