excel如何提取各个工作表相同位置单元格的内容？

 我来答

1个回答

#热议# 在购买新能源车时，要注意哪些？

天罗网17
2022-09-24 · TA获得超过6163个赞

知道小有建树答主

回答量：306

采纳率：100%

帮助的人：71.8万

我也去答题访问个人页

关注

展开全部

excel如何提取各个工作表相同位置单元格的内容？

增加一个汇总表，在其中的A列输入30个表名，11.1,11.2…… 11.30
然后在B1单元格输入以下公式，并向下填充公式
=INDIRECT(A1&"!C8")

开启excel档案，里面有一百多个工作表，从sheet1到sheet100这样，现在需要把每个sheet里面的A3资料提取出来，组成新的一列，又把所有的D5资料组成新的一列，以此类推，确定工作表的名字是Sheet1、Sheet2、...Sheet100。
1、插入一新工作表，在任意单元格输入 =INDIRECT("Sheet"&ROW(A1)&"!A3") 公式向下复制100行。
2、同理 =INDIRECT("Sheet"&ROW(A1)&"!D5")，求行标公式：ROW(A1)，求列标公式：COLUMN(A1)。多工作表同位置单元格求和。
3、EXCEL中容易被忽略功能(18):多工作表同位置单元格求和。对于一个工作簿内多个相同位置的单位格求和，最常见的方法是：=sheet1!A1+sheet2!A1+sheet3!A1+sheet4!A1+sheet5!A1+sheet6!A1+sheet7!A1+sheet8!A1 公式很长。如果想对当前工作簿内除当前工作表以外所有A1单元格求和，可以用的的简便公式： =sum('*'!A1)。
提醒：1、这种公式系统还是会转换成类似下面的公式。
2、这个公式不含当前工作表！如果要想计算所有工作表，可以写： =SUM(Sheet1:Sheet8!A1)。特别强调：工作表名称不一定必须是按顺序命名的，比如：工作表名称分别为：北京、上海、南京、成都。对这4个表所有A1单元格求和，可以写为：=SUM(北京:成都!A1)。系统会先判断：北京是第一个工作表；成都是第四个工作表，那么这个公式的含义就是：从第一个工作表到第四个工作表所有A1单元格的和。也就是说这个公式中工作表的名称只是为了确定表格的位置！如果只想对sheet2表到sheet7表的A1单元格求和。那么可以输入这样的公式：=SUM(Sheet2:Sheet7!A1)。如果只想对sheet2表到sheet4、sheet6表到sheet7求和，中间要跳过sheet5，那么可以输入这样的公式：=SUM(Sheet2:Sheet7!A1)-sheet5!A1。或者 =SUM(Sheet2:Sheet4!A1，Sheet6:Sheet7!A1)。
3、如果工作表名称中有空格、括号需要在工作表名称上加上单引号，比如：='sheet 5'!A1 =SUM('Sheet2:Sheet2 (1)'!A1) 。

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

插入工作表在A1中输入或复制贴上下列公式 =INDIRECT("sheet"&ROW(A1)&"!A1") 下拉填充分别得到SHEET1到SHEETn工作表中A1单元格的值

进行简单操作的话，可以用类似：
=SUM('SHEET1:SHEET10'!A1)
这种方式处理
如果是是复杂操作恐怕只有一个一个引用
当然VBA（包括自定义函式）能够很方便地解决这类问题

假如读取f盘下，123.xlsx中sheet1的a1的值
='F:\[123.xlsx]sheet1'!$a$1

excel中，A工作表里，输入B工作表中A单元格的内容，显示A单元格后面第二个单元格的内容，如何?

B工作表A1单元格后两个单元格是指A3单元格还是指C1单元格

如果是指A3单元格则A工作表输入公式
=OFFSET(B表!A1,2,)
如果是指C1单元格则公式为
=OFFSET(B表!A1,,2)

公式中的A1可改成你说的A单元格的单元格地址,公式中的"B表"要改换成表格的实际名称
单元格名称（也称地址）
在表格中有一横排的A，B，C，D。。。这样的字母，这每个字母代表着一列，边上还有一竖行的数字，称为行，每个数字代表一行，列和行就组成了单元格地址，比如第一个单元格（即A和1交汇的单元格）就是指A1单元格，横数第二个（即B和2交汇的单元格）称为B2单元格。

excel vb 批量修改各工作表相同单元格内容

按下ALT+F11,选单:插入-模组,复制下列程式码.然后按F5执行
Sub number()
Dim a As Integer
a = Sheets.Count
For x = 2 To a
Sheets(x).Select
Cells(1, 2).NumberFormatLocal = "@"
Cells(1, 2) = Format(8000 + x - 1, "00000")
Next
End Sub