Excel技术问询：单元格值变更后跳转至目标单元格并执行超链接时出现VBA下标越界错误

我来帮你搞定这个需求！首先得搞清楚你遇到的Run-time error '9': Subscript out of range错误的根源：你J7单元格里的超链接是用公式生成的（比如=HYPERLINK(...)），这种链接不属于Excel对象模型里的Hyperlinks集合——这个集合只包含手动插入的原生超链接，所以直接调用ActiveCell.Hyperlinks(1)会因为找不到元素而出错。

下面是完全适配你现有设置（保留I7下拉+J7公式生成链接）的解决方案：

步骤1：添加工作表变更事件代码 #

右键点击你的目标工作表标签（比如"Sheet1"），选择「查看代码」，在弹出的VBA编辑器里粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当I7单元格的值发生变更时触发逻辑
    If Not Intersect(Target, Me.Range("I7")) Is Nothing Then
        Dim jumpCell As Range
        Set jumpCell = Me.Range("J7")
        
        Dim linkAddr As String
        ' 先尝试直接取单元格值（如果是原生超链接的显示文本）
        linkAddr = jumpCell.Value
        
        ' 重点处理HYPERLINK公式生成的链接：从公式中提取实际跳转地址
        If Left(jumpCell.Formula, 10) = "=HYPERLINK(" Then
            Dim formulaSegments As Variant
            ' 用双引号拆分公式，提取第一个引号包裹的地址部分
            formulaSegments = Split(jumpCell.Formula, """")
            If UBound(formulaSegments) >= 1 Then
                linkAddr = formulaSegments(1)
            End If
        End If
        
        ' 根据链接类型执行跳转
        If Left(linkAddr, 1) = "#" Then
            ' 内部单元格跳转：去掉#号后定位到目标单元格，带滚动效果
            Application.Goto Reference:=Me.Range(Mid(linkAddr, 2)), Scroll:=True
        Else
            ' 外部链接跳转
            ThisWorkbook.FollowHyperlink Address:=linkAddr
        End If
    End If
End Sub

代码逻辑说明 #

• 事件触发：Worksheet_Change会监听当前工作表的所有单元格变更，通过Intersect精准判断是否是I7发生了变化，避免不必要的执行。
• 链接提取：针对J7的两种可能情况（原生超链接/HYPERLINK公式），优先从公式中提取真实跳转地址——因为你是用公式动态生成链接，这部分是核心处理逻辑。
• 跳转实现：区分内部单元格链接（带#前缀）和外部链接，内部用Application.Goto实现平滑跳转（比Select体验更好），外部用FollowHyperlink打开链接。

为什么原来的代码会报错？ #

你之前写的ActiveCell.Hyperlinks(1)只对手动插入的超链接有效，而HYPERLINK函数生成的链接只是单元格的公式计算结果，并没有被Excel注册为Hyperlink对象，所以Hyperlinks集合是空的，访问索引1自然会出现下标越界错误。

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