Excel VBA如何使用Range Offset实现单元格输入后按指定逻辑循环跳转

你可以使用工作表的Worksheet_Change事件实现需求，触发逻辑为单元格内容更新后自动执行跳转，代码逻辑匹配你要的A列→同行B列→下一行A列的循环跳转规则：

操作步骤 #

1. 按下Alt + F11打开VBA编辑器
2. 在左侧项目面板双击你要实现该功能的工作表
3. 将以下代码粘贴到右侧代码编辑窗口
4. 关闭VBA编辑器回到Excel即可生效

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 多选单元格修改时不触发
    If Target.CountLarge > 1 Then Exit Sub
    ' 可自行修改下方生效范围规则：当前设置为行号≥2的A、B两列生效
    If Target.Row < 2 Or (Target.Column <> 1 And Target.Column <> 2) Then Exit Sub
    
    ' 临时关闭事件防止跳转过程中误触发重复执行
    Application.EnableEvents = False
    On Error GoTo ResetEvents
    
    Select Case Target.Column
        Case 1 ' 修改A列单元格后，跳转同行B列
            Target.Offset(0, 1).Select
        Case 2 ' 修改B列单元格后，跳转下一行A列
            Target.Offset(1, -1).Select
    End Select

ResetEvents:
    ' 恢复事件触发，避免影响其他Excel功能
    Application.EnableEvents = True
End Sub

自定义调整说明 #

• 如需修改生效列：把代码中Target.Column <> 1 And Target.Column <> 2的数字替换为对应列的序号即可（列序号从A列=1开始递增）
• 如需限制最大生效行：在范围判断条件中添加And Target.Row < 最大行号即可
• 如需全工作簿生效：将代码迁移到ThisWorkbook对象的SheetChange事件中即可

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