VBA获取单击超链接的单元格的值

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim hyperlinkCell As Range
    Dim targetCell As Range
    
    ' 检查超链接是否指向当前工作表的单元格
    If Target.Range.Address = "" Then Exit Sub
    
    Set hyperlinkCell = Target.Range
    Set targetCell = ThisWorkbook.Worksheets(Target.Parent.Name).Range(Target.Address)
    
    ' 在此处处理所需的操作，例如将超链接单元格的值复制到其他单元格
    MsgBox "您单击的超链接单元格 " & hyperlinkCell.Address & " 的值为: " & targetCell.Value
End Sub