能否在Excel或Excel-VBA中设置单元格输入2字符后自动跳转至下一个单元格？

当然可以实现！针对你这种把日期拆成日、月、年三列输入的场景，用Excel VBA写段简单的代码就能完美解决，下面一步步教你操作：

第一步：打开VBA编辑器 #

打开你的Excel表单，按下Alt + F11组合键就能快速调出VBA编辑器界面。

第二步：绑定工作表的变更事件 #

在左侧的工程资源管理器里，找到你要设置的目标工作表（比如Sheet1），双击它打开代码窗口。然后在窗口顶部的下拉菜单里，先选择「Worksheet」，再选择「Change」——这时候编辑器会自动生成Worksheet_Change事件的基础框架。

第三步：编写跳转逻辑代码 #

把下面的代码粘贴到框架里，根据你的实际列范围调整参数就行：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 限定生效范围为日、月、年列，这里假设是A、B、C列，可自行修改
    If Not Intersect(Target, Me.Range("A:C")) Is Nothing Then
        ' 确保是单个单元格修改，且输入内容为2个字符
        If Target.Cells.Count = 1 And Len(Target.Value) = 2 Then
            ' 判断是否是最后一列（年列），是的话跳转到下一行的第一列
            If Target.Column = 3 Then
                Target.Offset(1, -2).Select
            Else
                ' 否则跳转到同一行的下一列
                Target.Offset(0, 1).Select
            End If
        End If
    End If
End Sub

代码说明： #

• Worksheet_Change事件会在工作表中任何单元格内容改变时触发；
• Intersect(Target, Me.Range("A:C"))用来锁定生效的列范围，你可以把A:C改成你实际用的日、月、年列（比如D:F）；
• Len(Target.Value) = 2确保用户输入满2个字符后才触发跳转；
• 额外加了判断：如果是最后一列（年列）输入完成，会自动跳转到下一行的日列，方便连续输入多条日期。

可选优化：限制输入为数字 #

如果只想让数字输入触发跳转（毕竟日、月、年都是数字），可以给代码加个IsNumeric判断，修改后的代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A:C")) Is Nothing Then
        If Target.Cells.Count = 1 And Len(Target.Value) = 2 And IsNumeric(Target.Value) Then
            If Target.Column = 3 Then
                Target.Offset(1, -2).Select
            Else
                Target.Offset(0, 1).Select
            End If
        End If
    End If
End Sub

最后注意事项 #

• 保存文件时，一定要选择「Excel启用宏的工作簿（.xlsm）」格式，不然宏代码会丢失；
• 如果后续要修改逻辑，直接按Alt + F11回到VBA编辑器调整代码即可。

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