求助:在Excel如何跨表批量引用同一个位置的单元格数据?
可以使用INDIRECT函数来返回引用。如果表名有规律,如Sheet1、Sheet2……SheetN,可以直接引用,如果表名没规律,得先用宏表函数取出表名,再引用。
以下图为例,假设工作表分别为Sheet1-Sheet5,各表的A1单元格分别为1-5,汇总表在后面,要把各分表的A1单元格取到汇总表。
方法一:表名有规律的方法。
B1 =IFERROR(INDIRECT("sheet"&ROW()&"!A1"),"")
公式下拉复制,就可以了,如上图。
方法二:表名没有规律的方法。
步骤1:定义名称 x 如下
=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),"")
步骤2:A1输入公式
=IF(ROW()>COLUMNS(x)-1,"",INDEX(x,ROW()))
公式下拉到足够容纳所有工作表名
步骤3:C1输入公式
=IFERROR(INDIRECT(A1&"!A1"),"")
公式下拉,结果如下图
知识扩展:
1、GET.WORKBOOK(1)是4.0宏表函数,以“[工作簿1.xlsm]Sheet1”的形式返回所有工作表名的水平数组,再用REPLACE函数把工作簿名去掉,只保留所有工作表名,再用INDEX函数逐个取出。
2、由于使用了4.0宏表函数,因此,工作簿必须保存为启用宏的工作簿(*.xlsm),不能保存为不启用宏的工作簿格式(*.xlsx)。
3、INDIERECT函数的用途就是,返回由文本字符串指定的引用,如=INDIRECT("Sheet1!A1"),就是返回Sheet1工作表的A1单元格的值,工作表名用“!”表示。
步骤:
1、在自己的电脑上打开EXCEL表格
2、首先创立了所需的数据表格,输入自己的数据
3、将电脑下方EXCEL的sheet修改名字
4、将第一个表格中的数据建立在如图所示的sheet里,如第一周,第二周,第三周
5、建立好几个表格,举例对这个问题进行辅助说明,内容大概如下。
6、在一个sheet5中表格里,选择要进行统计的单元格输入“=”和函数,如此处则是=sum
7、然后点击“第一周”,工作标签和相应单元格。
8、选中第一周中的数据,如图所示
9、输入“,”后再点击“第二周”工作表和相应单元格。
10、对数据进行函数公式。对“第三周”,“第四周”工作表进行相同操作。
11、输入完成后加上")"点击回车即可算出4个周的总计结果,可以向下拉动这个汇总表在单元格中做相对引用,完成所有单元格的计算。
因为无论如何你也要提取工作表名,下面给一个提取所有工作表名的程序
Sub 取表名()
Sheets.Add
On Error GoTo ErrorHandler ' 打开错误处理
ActiveSheet.name = "表名"
On Error GoTo 0
Sheets("表名").Move After:=Sheets(Sheets.Count)
For 表号 = 1 To Sheets.Count - 1
Cells(表号, 1).Value = Sheets("表名").name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(表号, 1).Address:="", SubAddress:="'" & Sheets("表号").name & "'!A1", TextToDisplay:=Sheets("表号").name
Next
Sheets("表名").Select
Columns("A:A").EntireColumn.AutoFit
Exit Sub ' 退出ErrorHandler: ' ´íÎó´¦Àí³ÌÐò¡£
Select Case Err.number
Case 1004
Application.DisplayAlerts = False
If MsgBox("工作表 表名 已存在,是否覆盖?", vbYesNo) = vbYes Then
ActiveSheet.Delete
Sheets("表名").Cells.Delete
Sheets("表名").Select
Else
ActiveSheet.Delete
Sheets("表名").Select
Exit Sub
End If
Application.DisplayAlerts = True
End Select
Resume ' 将控制返回产生错误的语句
End Sub