如何用VBA实现输入数字跳转至另一Excel工作表对应位置？

下面是直接可用的VBA代码及操作说明：

完整VBA代码 #

Sub JumpToTargetValue()
    Dim inputNum As Variant
    Dim targetSheet As Worksheet
    Dim foundCell As Range
    
    ' 弹出对话框获取用户输入的数字
    inputNum = InputBox("请输入要查找的数字：", "数字输入")
    
    ' 用户取消输入则直接退出宏
    If inputNum = "" Then Exit Sub
    
    ' 指定要查找的目标工作表，替换为你的实际工作表名称
    Set targetSheet = ThisWorkbook.Worksheets("工作表2")
    
    ' 在目标工作表中精确匹配查找输入的数字
    Set foundCell = targetSheet.Cells.Find(What:=inputNum, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 根据查找结果执行操作
    If Not foundCell Is Nothing Then
        targetSheet.Activate
        foundCell.Select
        MsgBox "已跳转至目标位置！", vbInformation
    Else
        MsgBox "未找到该数字对应的位置！", vbExclamation
    End If
End Sub

关键说明 #

• 精确匹配：代码里用LookAt:=xlWhole确保只匹配完全一致的数字，避免部分匹配（比如输入3.4不会匹配到3.45）
• 工作表名称：务必把代码里的"工作表2"改成你实际的目标工作表名称
• 取消处理：用户点击输入对话框的「取消」按钮时，宏会直接退出，避免报错

使用步骤 #

• 打开Excel文件，按Alt+F11打开VBA编辑器
• 右键左侧的工作簿名称，选择「插入」→「模块」
• 将上述代码粘贴到模块窗口中，修改工作表名称后保存
• 返回Excel界面，点击「开发工具」→「插入」→「按钮（表单控件）」，在工作表上绘制按钮，选择JumpToTargetValue宏
• 点击这个按钮就能触发功能，输入数字后即可跳转

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