Excel VBA需求：点击超链接动态更新对应行单元格值

我明白你要把原来硬编码的超链接触发逻辑改成动态适配任意行的需求，直接给你调整后的VBA代码，再拆解关键改动点：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim sourceWs As Worksheet
    Dim targetWs As Worksheet
    Dim triggerRow As Long
    
    ' 定义两个工作表对象，方便后续引用和维护
    Set sourceWs = ThisWorkbook.Sheets("First Sheet")
    Set targetWs = ThisWorkbook.Sheets("Pricing")
    
    ' 校验触发超链接的是否是目标工作表的F列单元格
    If Target.Parent.Parent.Name = sourceWs.Name Then
        If Target.Parent.Column = 6 Then ' 6对应Excel中的F列
            triggerRow = Target.Parent.Row ' 获取触发单元格的行号，实现动态匹配
            
            ' 将源表对应行A列的值写入目标表对应行C列
            targetWs.Range("C" & triggerRow).Value = sourceWs.Range("A" & triggerRow).Value
        End If
    End If
End Sub

关键改动说明： #

• 摒弃硬编码单元格地址：不再固定F6或C6，而是通过Target.Parent.Row提取触发超链接的单元格行号，实现任意行的动态适配
• 严谨的触发范围校验：先判断触发超链接的工作表是否为First Sheet，再校验是否在F列，避免其他超链接误触发逻辑
• 对象化工作表引用：用变量指代两个工作表，后续如果需要修改表名，只需在代码开头修改一次，大幅提升可维护性

可选优化（精准匹配超链接目标）： #

如果想确保只有指向Pricing工作表的超链接才触发同步，可在列号判断后添加超链接目标校验（需根据你实际的超链接目标格式调整）：

' 假设你的超链接目标是Pricing表对应行的单元格，比如A列
If Target.SubAddress = targetWs.Name & "!A" & triggerRow Then

这样就能实现：点击First Sheet中F列任意行指向Pricing表的超链接时，自动把该行A列的值同步到Pricing表对应行的C列。

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