求助:在Excel如何跨表批量引用同一个位置的单元格数据?
发布网友
发布时间：2022-04-27 01:30
共5个回答
热心网友
时间：2022-06-22 02:23
1、打开Excel2010工作表。
2、为制作下拉菜单数据而构建的工作表2。
3、将光标移动到单元格B2，点击数据，数据有效。
4、弹出对话框，点击允许下拉菜单，选择顺序。
5、将光标移动到源下，然后单击表2。
6、框选性别下的男女单元格，来源处就会自动添加=Sheet2!$A$2:$A$3，确定。
热心网友
时间：2022-06-22 02:23
可以使用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单元格的值，工作表名用“!”表示。
热心网友
时间：2022-06-22 02:24
步骤：
1、在自己的电脑上打开EXCEL表格
2、首先创立了所需的数据表格，输入自己的数据
3、将电脑下方EXCEL的sheet修改名字
4、将第一个表格中的数据建立在如图所示的sheet里，如第一周，第二周，第三周
5、建立好几个表格，举例对这个问题进行辅助说明，内容大概如下。
6、在一个sheet5中表格里，选择要进行统计的单元格输入“=”和函数，如此处则是=sum
7、然后点击“第一周”，工作标签和相应单元格。
8、选中第一周中的数据，如图所示
9、输入“，”后再点击“第二周”工作表和相应单元格。
10、对数据进行函数公式。对“第三周”，“第四周”工作表进行相同操作。
11、输入完成后加上")"点击回车即可算出4个周的总计结果，可以向下拉动这个汇总表在单元格中做相对引用，完成所有单元格的计算。
热心网友
时间：2022-06-22 02:25
因为无论如何你也要提取工作表名，下面给一个提取所有工作表名的程序
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
热心网友
时间：2022-06-22 02:25
如果是sheet1~sheet5五个工作表中的A1单元格数据相加，则在结果单元格输入“=SUM(Sheet1:Sheet5!A1)”即可。
