excel把多个表的单元格数据复制到1个表的1列

excel把多个表的单元格数据复制到1个表的1列

 

把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 里面的 D17 复制到 sheet0 的 A1~A200
Cells(r, 1) = Worksheets(CStr(r)).Range("D17")
On Error Resume Next
Next r
End Sub