Tự động xác định dòng cuối để nhảy theo cột xác định khi nhập liệu

[anktdn]

Nhờ các anh chị giúp . File mẫu

Nhờ anh chị giúp. File mẫu

 

[SA_DQ]

Bạn thừ với macro sau

Nó còn hạn chế là chưa xài được với fím {ESC}, mà chỉ là {ENTER} & {TAB}

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Columns("E:E")) Is Nothing And Target.Count = 1 Then
   Target.Offset(1, -3).Select
 ElseIf Not Intersect(Target, Columns("B:B")) Is Nothing And Target.Count = 1 Then
   Target.Offset(, 2).Select
 ElseIf Not Intersect(Target, Columns("D:D")) Is Nothing And Target.Count = 1 Then
   Target.Offset(, 1).Select
 End If
End Sub