Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(0, 1).Select '向右
'Target.Offset(1,0).Select’向下
'Target.Offset(-1,0).Select’向上
'Target.Offset(,-1).Select’向左
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(0, 1).Select '向右
'Target.Offset(1,0).Select’向下
'Target.Offset(-1,0).Select’向上
'Target.Offset(,-1).Select’向左
End Sub