跨Excel工作簿跳转至指定工作表时触发Run-time error '9': Subscript out of range

这个「下标越界」错误，说白了就是宏找不到你要跳转的stage2 Calculation Charts工作簿，或者里面的指定工作表。结合你说的「跳回stage1正常、跳stage2报错」的场景，我帮你梳理几个最可能的原因和修复方案：

1. 工作簿没打开，或者文件名/扩展名匹配错了 #

• 先确认stage2 Calculation Charts是不是已经打开了——如果文件没打开，宏肯定找不到它，直接报错。
• 再检查宏里引用的工作簿名称是否完全一致：包括空格、大小写，还有扩展名！比如你的文件实际是stage2 Calculation Charts.xlsm，但宏里写的是Workbooks("stage2 Calculation Charts")，而Excel默认隐藏了扩展名的话，就会匹配失败。

修复代码示例（自动检查并打开文件）：

Sub JumpToStage2()
    Dim stage2WB As Workbook
    Dim targetSheet As Worksheet
    ' 替换成stage2文件的实际路径
    Dim filePath As String: filePath = "C:\你的文件夹路径\stage2 Calculation Charts.xlsm"

    ' 先检查文件是否已打开
    On Error Resume Next
    Set stage2WB = Workbooks("stage2 Calculation Charts.xlsm")
    On Error GoTo 0

    ' 如果没打开就自动打开
    If stage2WB Is Nothing Then
        Set stage2WB = Workbooks.Open(filePath)
    End If

    ' 跳转到指定工作表（替换成你要的工作表名称）
    Set targetSheet = stage2WB.Worksheets("目标工作表名")
    targetSheet.Activate
End Sub

2. 目标工作表名称拼写错误或不存在 #

就算工作簿打开了，如果宏里写的工作表名和实际表名不匹配（比如多了空格、大小写不对、特殊字符输错），也会触发这个错误。

• 先打开stage2 Calculation Charts，复制粘贴目标工作表的名称到宏里，避免手动输入出错。
• 临时测试可以用工作表索引代替名称（比如Worksheets(1)代表第一个工作表），如果这样能跳转成功，就说明是名称拼写的问题。

3. 宏里没明确指定工作簿 #

你的宏存在stage1里，跳回stage1时Excel默认找当前工作簿的表，所以没问题；但跳stage2时，如果代码没明确指定工作簿，Excel会默认找当前激活的工作簿（也就是你点击按钮时的stage1），自然找不到stage2的表。

错误代码示例：

Sub JumpToStage2()
    Worksheets("stage2的目标表").Activate ' 没指定工作簿，Excel默认找当前激活的stage1
End Sub

修复后代码：

Sub JumpToStage2()
    Workbooks("stage2 Calculation Charts.xlsm").Worksheets("stage2的目标表").Activate
End Sub

额外调试小技巧 #

给宏加个错误捕获，能直接告诉你到底是找不到工作簿还是工作表：

Sub JumpToStage2()
    On Error GoTo ErrorHandler
    
    ' 你的跳转代码
    Workbooks("stage2 Calculation Charts.xlsm").Worksheets("销售数据").Activate
    
    Exit Sub
ErrorHandler:
    MsgBox "出错啦：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbExclamation
End Sub

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