如何提取多个excel工作表中相同位置的单元格数据

Question

如题所述

Answer 1

1、如果sheet名称具备一定规律，例如常见的sheet1,sheet2,sheet3…
等可采用如下公式，向下拖拽即可。
=INDIRECT("sheet"&ROW(A1)&"!A1")
也可通过类似单元格区域排列方式进行相关运算，例如如下公式对sheet1到sheet4的单元格A1求和。
=sum('Sheet1:Sheet4'!A1)
2、VBA方法
如果毫无规律，则可使用VBA进行操作，如下代码指代排列在第一个sheet A1单元格的数值。
Worksheets(1).cells(1,1)如下代码将各sheet A1单元格内容复制到当前sheet B列。

Sub?Data_()
Dim?i?As?Single
For?i?=?1?To?Worksheets.Count
Cells(i,?2)?=?Worksheets(i).Cells(1,?1)
Next
End?Sub