如何在HYPERLINK函数中引用动态单元格值实现自适应超链接？

公式法（推荐，无需VBA） #

你不需要单独用C列存储链接片段，直接在HYPERLINK函数内拼接行号即可解决问题：

=HYPERLINK("#D"&ROW($A$116), B37)

• 原理：ROW($A$116)会返回A116单元格的行号，当你在A116上方添加/删除行时，这个行号会自动更新；
• 拼接后的#Dxxx格式会被HYPERLINK识别为当前活动工作表的D列对应行单元格，满足你“始终指向活动工作表”的需求；
• 你之前的错误是将C37的引用用引号包裹（"&C37&"），若坚持用C列存储链接前缀，只需直接引用单元格内容即可：=HYPERLINK(C37, B37)（注意C列公式不要加CHAR(34)，因为HYPERLINK的第一个参数不需要额外引号）。

VBA法（适合复杂场景） #

如果公式法无法满足你的特殊需求，可通过VBA实现更灵活的动态超链接：

1. 按Alt+F11打开VBA编辑器，双击目标工作表（左侧工程窗口中）；
2. 粘贴以下代码（可根据你的实际单元格范围调整）：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    ' 定义超链接所在的单元格范围（示例为B列从B37开始的非空单元格）
    Set rng = Me.Range("B37:B" & Me.Cells(Me.Rows.Count, "B").End(xlUp).Row)
    
    ' 当行被增删时触发更新
    If Not Intersect(Target, rng.EntireRow) Is Nothing Then
        Dim cell As Range
        For Each cell In rng
            ' 计算目标单元格的行号（示例固定指向第116行，可改为偏移逻辑如cell.Row + 79）
            Dim targetRow As Long
            targetRow = 116
            ' 删除旧超链接并添加新的动态超链接
            cell.Hyperlinks.Delete
            cell.Hyperlinks.Add Anchor:=cell, Address:="", SubAddress:=Me.Name & "!D" & targetRow, TextToDisplay:=cell.Value
        Next cell
    End If
End Sub

• 原理：工作表的Change事件会在增删行时触发，自动更新指定范围的超链接，Me.Name确保始终指向当前工作表，targetRow可根据需求改为动态计算逻辑。

内容的提问来源于stack exchange，提问作者Ulki