这种重复输入后按固定路径跳转的需求，确实能帮你省不少手动操作的麻烦！你遇到的问题大概率是代码的条件判断逻辑没覆盖后续单元格，或者事件触发时机不对。我给你整理了一套可靠的实现方案：

正确的工作表模块代码 #

打开目标工作表的代码窗口（右键工作表标签→查看代码），替换成以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只处理单个单元格的修改，避免批量操作触发错误
    If Target.Cells.Count > 1 Then Exit Sub
    
    ' 根据修改的单元格地址，执行对应跳转
    Select Case Target.Address(False, False)
        Case "F2"
            ' 跳转到F9
            Me.Range("F9").Select
        Case "F9"
            ' 跳转到F15
            Me.Range("F15").Select
        Case "F15"
            ' 跳转到F21
            Me.Range("F21").Select
    End Select
End Sub

代码说明 #

• Worksheet_Change事件：当单元格内容被修改并确认（比如按回车、点击其他单元格）时触发，刚好匹配你输入完整数后跳转的需求。
• Target.Cells.Count判断：防止批量粘贴、删除等操作时代码出错，只处理单个单元格的修改。
• Select Case逻辑：清晰对应每个输入单元格的跳转目标，后续如果要增加更多跳转路径，直接加新的Case即可。

可选优化：验证输入为整数 #

如果你需要确保输入的是整数，可以在跳转前增加验证逻辑，避免无效输入：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    
    Select Case Target.Address(False, False)
        Case "F2"
            If IsNumeric(Target.Value) And Int(Target.Value) = Target.Value Then
                Me.Range("F9").Select
            Else
                MsgBox "请输入有效的整数！", vbExclamation
                Target.Select ' 回到原单元格重新输入
            End If
        Case "F9"
            If IsNumeric(Target.Value) And Int(Target.Value) = Target.Value Then
                Me.Range("F15").Select
            Else
                MsgBox "请输入有效的整数！", vbExclamation
                Target.Select
            End If
        Case "F15"
            If IsNumeric(Target.Value) And Int(Target.Value) = Target.Value Then
                Me.Range("F21").Select
            Else
                MsgBox "请输入有效的整数！", vbExclamation
                Target.Select
            End If
    End Select
End Sub

排查你原有代码的常见问题 #

你之前的代码只实现了F2→F9，可能是以下原因：

1. 只写了F2的判断逻辑，没有添加F9和F15的对应分支；
2. 错误使用了Worksheet_SelectionChange事件（这个事件是选中单元格就触发，会导致刚选中F9就跳转，根本没法输入）；
3. 没有处理批量操作的情况，导致代码在某些场景下触发异常中断。

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