Excel VBA实现多单元格输入后跳转指定单元格问题求助

我来帮你搞定这个多单元格自定义跳转的问题！你原来的代码只能处理单个单元格的跳转逻辑，要适配无规律的多规则跳转，最灵活的方式是用规则映射表来管理所有跳转关系，这样后续要加新规则也不用改核心代码逻辑。

实现思路 #

1. 用字典存储「触发单元格地址」和「目标跳转单元格地址」的对应关系，想加多少规则都可以；
2. 禁用事件避免跳转操作触发循环；
3. 检查当前修改的单元格是否在规则列表里，是就跳转到指定目标；
4. 最后恢复事件，防止后续功能异常。

完整代码 #

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ' 禁用事件，防止跳转操作再次触发Change事件导致循环
    Application.EnableEvents = False
    
    ' 错误处理：确保无论是否出错都能恢复事件
    On Error GoTo Cleanup
    
    ' 创建字典存储跳转规则，键=触发单元格地址，值=目标单元格地址
    Dim jumpRules As Object
    Set jumpRules = CreateObject("Scripting.Dictionary")
    
    ' ===== 这里可以按需添加/修改跳转规则 =====
    jumpRules("F11") = "F13"
    jumpRules("F13") = "F16"
    jumpRules("F16") = "F17"
    ' 示例：如果需要A1输入完跳B5，就加一行：jumpRules("A1") = "B5"
    ' ======================================
    
    ' 获取当前修改单元格的地址（不带$符号，和字典键匹配）
    Dim currentCellAddr As String
    currentCellAddr = Target.Address(False, False)
    
    ' 如果当前单元格在规则里，就跳转到目标单元格
    If jumpRules.Exists(currentCellAddr) Then
        Range(jumpRules(currentCellAddr)).Select
    End If
    
Cleanup:
    ' 必须恢复事件，否则后续单元格修改不会触发Change事件
    Application.EnableEvents = True
    ' 如果有错误，抛出错误方便调试
    If Err.Number <> 0 Then Err.Raise Err.Number
End Sub

关键细节说明 #

• 字典规则维护：所有跳转规则都集中在jumpRules的赋值部分，新增/修改只需要在这里加一行，完全不用动核心逻辑，非常灵活；
• 禁用事件的必要性：因为Select操作会再次触发Worksheet_Change事件，如果不禁用会陷入无限循环，所以一定要在开头禁用，结尾恢复；
• 错误处理：On Error GoTo Cleanup确保即使代码出错（比如目标单元格不存在），事件也能恢复，避免后续Excel功能异常；
• 多单元格处理：如果需要支持多单元格批量修改（比如粘贴数据），可以在开头加一行If Target.Count > 1 Then GoTo Cleanup，这样批量操作时不会触发跳转，符合正常使用习惯。

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