VBA自动定位下一个非空单元格

如何实现每次输入数据后总是定位于下一行的第一个空单元格避免键盘方向键左右移动呢?

比较老实的办法是在常规里面设置方向,但是缺点是输入完成后始终朝某个方向前进,不会换行。

如何实现我们上面的需求?分享个代码:

  1. Private Sub Worksheet_Change(ByVal Target As Range)   
  2.   If Target.Count = 1 Then   
  3.     If Len(Target.Text) > 0 Then   
  4.       Cells(Target.Row + 1, Cells(Target.Row + 1, Columns.Count).End(xlToLeft).Column + 1).Select   
  5.     End If   
  6.   End If   
  7. End Sub

只要你输入完数据,自动定位到下面的单元格。试试吧~

分享到: