一个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
于是依葫芦画瓢,便解决了这个问题

评论 ( 3)
  1. 沙发
    desit 2012-06-02 11:30

    不错的公式啊

  2. 板凳
    naiveking 2012-06-02 01:50

    为表兄台帮助小弟解决疑难…小弟特来支持一下!不错不错….页面清晰简洁…不愧为那时年少….