答案1
使用以下代码:
' Add hyperlink to a cess on Sheet2
Sheets("Sheet2").Hyperlinks.Add _
' Hyperlink must follow to a single cell A1 on Sheet1
' To follow another object (multicell range, chart, etc.) specify it
Anchor:=Sheets("Sheet1").Range("A1"), _
' Address must be empty - it is local hyperlink
Address:="", _
' Specify destination address where hyperlink will be placed
SubAddress:= "Sheet2!A1", _
' Specify the text of a hyperlink
TextToDisplay:="HyperLink to A1 on Sheet2"