Question

如何实现EXCEL同一工作簿不同工作表的数据关联？

如在同一工作簿中有表一、表二、表三、表四，其中每张表中的A.B.C.D中各列的数据都是要求数据一样的。
1、当表一中ABCD列某行的数据修改时，表二、表三、表四中同时自动修改，可以实现么，就是当我修改或删除或添加表一某一行的ABCD中任意数据表三、四、五等的ABCD列数据自动修改表一表二表三表四ABCD4列全部要是一样的，当表一ABCD列任一数据修改或变化时其他表同样自动变化
2、如我修改表一的C5的数据，其他表的C5相应自动修改,如我删掉表一的第5行，其他表的第五行也自动删掉。

Answer 1

在日常工作中，经常使用Excel表格来收集数据，有时需要使用多个工作表来实现数据收集，这时就需要在Excel中实现数据关联。

1、首先打开建好的Excel表格，新建两个sheet表格。

2、第二个工作表需要运用到第一个表格的数据。这种情况下，可以把第一个表格的数据和第二个表格的数据进行关联，以保证随着第一个表格数据的变化，第二个表格也会进行及时更新。

3、然后选中Sheet2的B2选项，在单元格中输入“=”。

3、接着，切换到到Sheet1工作表，选中对应的数据单元格。

4、然后切换回Sheet2工作表，就会发现B2单元格已经关联了Sheet1的E2单元格，按“Enter”进行确定。

5、这样，就实现了Sheet1和Sheet2的数据关联。改变Sheet1的数据进行测试，发现Sheet2的数据也会随之变化，证明数据关联成功了。

Answer 2

1、首先，按组合键“ALT+F11”打开VBE编辑器，在工程窗口下的“Microsoft Excel”对象进行单击鼠标右键，再在弹出的框再进行如图所示的操作。

2、然后，在其中粘贴下面的代码:再进行保存。

Sub 工作簿间工作表合并

（）Option ExplicitSub hbgzb()

Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer</p> flag = False

For i = 1 To Sheets.Count
If Sheets(i).Name = "合并数据" Then flag = True
Next
If flag = False Then
Set sh = Worksheets.Add
sh.Name = "合并数据"
Sheets("合并数据").Move after:=Sheets(Sheets.Count)
End If
For i = 1 To Sheets.Count
If Sheets(i).Name <> "合并数据" Then
hrow = Sheets("合并数据").UsedRange.Row
hrowc = Sheets("合并数据").UsedRange.Rows.Count
If hrowc = 1 Then
Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow, 1).End(xlUp)
Else
Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow + hrowc - 1, 1).Offset(1, 0)
End If
End If
Next i
End Sub

3、然后，关闭该窗口，打开Excel软件，点击界面上方的“开发工具”选项卡。

4、然后，点击其下方选项中的“加载宏”。

5、然后，在弹出的框中选择“工作簿间工作表合并“，再点击其中的”执行“按钮。

6、然后，在弹出的窗口中选择要合并的工作簿，再点击”打开“即可。

7、这样，多个工作簿就合并成一个了。

Answer 3

例如：在表1  A1 位置 =表2 A1的位置+表3 A1位置   ，先在表1位置打上“=”，然后单击表二→A1，然后在函数计算公式的位置打上“+”，然后单击表3→A1，直接回车键就行了。。你改表二A1位置的数字或表3 A1位置的数字，表1 A1的数字会跟着改变的。。。其他计算方法大同小异，希望对你有所帮助

追问

谢谢您的回答！这样同样存在一个问题，当表一删除某一行的时候，表二就出现错误

Answer 4

使用EXCEL的工作组模式。

1、对于需要加入工作组的工作表进行选择，Ctrl+工作表标签。如图中选择Sheet4、Sheet5、Sheet6。

2、选择后会在工作簿的标题栏上，显示[工作组]，如下图：

3、在工作组模式下，在任何一个工作组中的工作表中的单元格中输入，其他工作表中就会同时自动输入。