求助：在Excel如何跨表批量引用同一个位置的单元格数据？-excel公式跨表格,excel跨多个表格求和公式

sheet1 里按Alt+F11
视图zd---代码窗口

输入如下版，权 输完后按F5运行

sub shtname()
for i=2 to sheets.count
cells(i,1)=sheets(i).[A1]
next
end sub

SHEET2表格的A1单元格zhidao输入公式
=OFFSET(SHEET1!$A$1,,ROW(A1)*3+COLUMN(A1)-4)
或
=INDEX(Sheet1!$1:$1,ROW(A1)*3+COLUMN(A1)-3)
右拉至C列,再下拉复内制公式

SHEET2表格的D1单元格输入公式
=OFFSET(SHEET1!$A$2,,ROW(A1)*3+COLUMN(A1)-4)
或
=INDEX(Sheet1!$2:$2,ROW(A1)*3+COLUMN(A1)-3)
右拉至F列,再下拉复制公式

如果9之后还要引用容第三行的10,11.......
则SHEET2的A1单元格公式改成
=OFFSET(Sheet1!$A$1,(INT((ROW(A1)-1)/3))*2,MOD((ROW(A1)-1)*3,9)+COLUMN(A1)-1)
SHEET2表格的D1单元格公式改成
=OFFSET(Sheet1!$A$2,(INT((ROW(A1)-1)/3))*2,MOD((ROW(A1)-1)*3,9)+COLUMN(A1)-1)

sheet1 里按Alt+F11
视图---代码zhidao窗口版

输入如下， 输完后按F5运行权

sub shtname()
for i=2 to sheets.count
cells(i,1)=sheets(i).[A1]
next
end sub