如何将跨工作表单元格链接转为带预设文本的超链接？

方法1：宏表函数+HYPERLINK公式组合 #

若你的Excel文件可保存为启用宏的格式（.xlsm），可通过定义名称提取超链接地址，再结合HYPERLINK实现需求：

1. 点击顶部「公式」选项卡 → 「定义名称」
2. 在弹出窗口中：
   • 名称栏输入 GetLink
   • 引用位置输入 =GET.CELL(6,Page2!$C$1)
   • 点击「确定」
3. 切换到Page1的A1单元格，输入公式：

   =HYPERLINK(GetLink, "LINK")
   

方法2：VBA代码直接实现 #

如果不想依赖宏表函数，用VBA更直观：

1. 按 Alt+F11 打开VBA编辑器
2. 右键左侧工程窗口 → 「插入」→ 「模块」
3. 粘贴以下代码：

   Sub ExtractAndCreateLink()
       Dim linkAddr As String
       '提取Page2的C1单元格超链接地址
       linkAddr = ThisWorkbook.Worksheets("Page2").Range("C1").Hyperlinks(1).Address
       '在Page1的A1创建指定显示文本的超链接
       ThisWorkbook.Worksheets("Page1").Hyperlinks.Add _
           Anchor:=ThisWorkbook.Worksheets("Page1").Range("A1"), _
           Address:=linkAddr, _
           TextToDisplay:="LINK"
   End Sub
   

4. 按F5运行代码即可完成操作

你之前用HYPERLINK失败的原因 #

你直接使用HYPERLINK时，大概率误将Page2!C1的显示文本作为第一个参数（链接地址），而非提取单元格内的实际超链接地址，导致无法生成正确的跳转链接。

内容的提问来源于stack exchange，提问作者özgür kuş