输入数据后自动从D列跳转回A列的实现需求

要实现扫描条形码（或手动输入）到D列后，光标自动跳回A列的需求，你可以通过Excel的VBA工作表事件来完成，具体步骤如下：

操作步骤 #

1. 打开VBA编辑器：按下快捷键 Alt + F11 打开VBA编辑器，在左侧工程窗口中找到你需要设置的目标工作表（比如Sheet1），双击打开其代码窗口。

2. 粘贴以下VBA代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监听D列的单元格变更
    If Not Intersect(Target, Me.Columns("D")) Is Nothing Then
        ' 禁用事件触发，避免循环执行
        Application.EnableEvents = False
        
        ' 选项1：跳转到当前行的下一行A列（适合连续录入新数据）
        Me.Range("A" & Target.Row + 1).Select
        
        ' 选项2：固定跳转到A1单元格（适合每次从开头录入）
        ' Me.Range("A1").Select
        
        ' 重新启用事件
        Application.EnableEvents = True
    End If
End Sub

代码说明 #

• Worksheet_Change 是Excel工作表的内置事件，当任意单元格内容被修改时自动触发。
• Intersect(Target, Me.Columns("D")) 用于判断被修改的单元格是否位于D列，确保只在目标列操作时执行跳转逻辑。
• Application.EnableEvents = False 是关键：避免因Select操作再次触发Worksheet_Change事件，造成无限循环。
• 两种跳转逻辑可根据实际需求二选一：如果是连续录入新条目，选跳转到下一行A列；如果每次都需要从A1开始，启用固定跳转的代码行即可。

注意事项 #

• 保存工作簿时，需选择**启用宏的工作簿（.xlsm）**格式，否则宏代码会丢失。
• 如果需要在多个工作表上生效，可将代码移至ThisWorkbook的SheetChange事件中，并调整列判断逻辑。

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