Excel宏实现通过单元格存储的地址执行GOTO跳转的问题

我完全懂你的痛点——你想让宏根据Sheet2的K48里存的动态地址自动跳转到对应的单元格，之前用宏录制器加F5的方法根本行不通，因为GOTO对话框只认固定的绝对地址，不认变量对吧？而且你这个地址每月都会变，得靠Sheet2 K48来维护目标位置，比如这个单元格里存着"Balance Sheet!$B505"，就要自动跳转到Balance Sheet工作表的B505单元格。

别担心，用VBA写几行代码就能搞定，比录制宏灵活多了：

Sub GotoDynamicCell()
    ' 先获取Sheet2的K48单元格里存储的目标地址
    Dim targetAddress As String
    targetAddress = ThisWorkbook.Sheets("Sheet2").Range("K48").Value
    
    ' 检查地址是否为空，避免出错
    If targetAddress = "" Then
        MsgBox "Sheet2的K48单元格没有填写目标地址哦！", vbExclamation
        Exit Sub
    End If
    
    ' 执行跳转操作
    On Error Resume Next ' 防止地址格式错误导致宏崩溃
    Application.Goto Reference:=targetAddress, Scroll:=True
    If Err.Number <> 0 Then
        MsgBox "目标地址格式有误，请检查Sheet2的K48内容！", vbCritical
    End If
    On Error GoTo 0 ' 恢复错误处理
End Sub

我给你拆解下这段代码的作用：

• 首先定义一个变量targetAddress，用来存Sheet2 K48里的地址字符串；
• 加了个空值检查，如果K48是空的，就弹出提示，避免宏瞎跑；
• 用Application.Goto方法来跳转，这个方法可以直接接受字符串形式的地址，完美适配你这种动态地址的需求；
• 还加了错误处理，如果K48里的地址格式不对（比如工作表名写错了、单元格引用格式错了），会弹出提示，不会直接报错卡死。

接下来教你怎么用这个宏：

• 按下Alt+F11打开VBA编辑器；
• 在左侧的“工程资源管理器”里找到你的工作簿，右键点击“插入”→“模块”；
• 把上面的代码粘贴到新模块里；
• 关闭VBA编辑器，回到Excel界面，按下Alt+F8，选中GotoDynamicCell宏，点击“执行”就能跳转了，或者你也可以给这个宏加个工具栏按钮，点一下就跑。

还有几个小细节要注意：

• 确保Sheet2 K48里的地址格式正确，比如工作表名加单元格引用，比如Balance Sheet!$B505；如果你的工作表名里有空格或者特殊字符，记得用单引号把工作表名括起来，比如'Balance Sheet'!$B505，不然宏可能找不到对应的工作表；
• 如果你不想跳转时自动滚动到单元格顶部，可以把代码里的Scroll:=True改成Scroll:=False。

备注：内容来源于stack exchange，提问作者WayneInIndy