请教高手！让单元格中的内容与工作表的标签名称相同的问题。

Question

举例：工作簿有 4个工作表，第一个标签为目录，第二个标签为“ A单位”，第三个标签为“B单位”，第三个标签为“C单位”，想在目录工作表的A1单元格内显示“A单位”，A2显示“B单位”，A3显示“C单位”，如果三个工作表标签名称改变了，目录工作表的A1、A2、A3单元格内的内容也随之改变，可以做到吗？

Answer 1

选取目录工作A单位，点击右键、选取超链接、本文档中的位置、选取标签“ A单位”，以此类推完成所有，
但工作表单名称改变、目录工作表的A1、A2、A3单元格内的内容不会改变追问

我用的是超链接，就是想在工作表标签“A单位”的名称变为“D单位”时，目录里的A1单元格不用修改，也自动变成“D单位”。

追答

要实现此功能，难度较大，必须结合VB，用命令的方式处理，否则便无法实现

Answer 2

这个需要用VBA代码
先打开目录工作表，在它的下方标签名上点鼠标右键，选“查看代码”，在弹出的VBA窗口中粘贴下面代码，回到excel窗口就可以使用了。
Private Sub Worksheet_Activate()
[a1] = Sheet2.Name
[a2] = Sheet3.Name
[a3] = Sheet4.Name
End Sub追问

不行啊老师，标签名称改了，目录单元格名称是改了，可是超链接引用无效了。

追答

如果想让超链接也更新，就用下面代码：
Private Sub Worksheet_Activate()
Dim t As String
t = Sheet2.Name
[a1] = t
ActiveSheet.Hyperlinks.Add Anchor:=[a1], Address:="", SubAddress:=t & "!A1", TextToDisplay:=t
t = Sheet3.Name
[a2] = t
ActiveSheet.Hyperlinks.Add Anchor:=[a2], Address:="", SubAddress:=t & "!A1", TextToDisplay:=t
t = Sheet4.Name
[a3] = t
ActiveSheet.Hyperlinks.Add Anchor:=[a3], Address:="", SubAddress:=t & "!A1", TextToDisplay:=t
End Sub

本回答被提问者采纳

Answer 3

不是不可以，但你这样似乎操作不对，怎么一个单元格等于一个表呢，应该是对应表中的某个单元格吧，然后对应的表标签跟着改变吧