主题：指定列输入

AfterEdit事件

If e.Col.name = "第三列" Then
    e.Table.Select(e.Row.Index, e.Table.cols("第五列").index-1)
End If
If e.Col.name = "第五列" Then
    If e.Table.rows.count > e.Row.Index+1 Then
        e.Table.Select(e.Row.Index+1, e.Table.cols("第三列").index-1)
    End If
End If