问Excel VBA :用超链接文本填充目标单元格内容的超链接

EN

首先，您需要在标准模块中编写一小段代码来安装Sheet1中的超链接

Sub MakeLink()
    Sheets("Sheet1").Hyperlinks.Add Anchor:=Range("E1"), Address:="", SubAddress:="Sheet2!D13", TextToDisplay:="Stuff"
End Sub

然后，您需要在工作表代码区中使用一个事件宏来执行内容传输：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ActiveCell.Value = Sheets("Sheet1").Range(Target.Parent.Address).Value
End Sub

我认为最好的解决方案可能是使用VBA。如果你不确定如何做到这一点，记录在e中选择一个单元格的宏，然后转到D13并更新它的值，然后查看所记录的代码并使用这些代码片段来创建代码。在较高的级别上，您可能希望在单击列E中的任何单元格时触发一个宏，该单元格执行以下操作：

Dim e_value = <value of selected cell in column E> ThisWorkbook.Sheets("name of sheet 2").Range("D13") = e.value Application.Goto Reference:=Worksheets("Sheet2").Range("D13"), Scroll:=False

请注意，上面的代码包含伪代码，但它应该让您对如何继续进行有一个大致的了解。