Lấy dòng cuối của Excel bằng VBA

Cách xác định vị trí dòng cuối cùng có dữ liệu (chữ hay con số) trong vba excel

Đây là ví dụ code vba lấy vị trí dòng cuối cùng

Sub Button1_Click()
 ' XAC DING DONG CUOI CUNG
    Dim dongCuoiCung As Long
    
    dongCuoiCung = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    MsgBox dongCuoiCung
    ' Các bạn đổi lại các giá trị để xem sự thay đổi như thế nào?
    ' Đỗi các giá trị dòng có chứa ActiveSheet
    ' xlPrevious  -> xlNext
    ' Dối dấu * thanh 1 gia tri gi do
    ' Row -> Column
    
End Sub

Sub Button2_Click()
  ' LAP TRINH VIEN 1
  Dim dongThem As Long
  dongThem = InputBox("Nhap vi tri dong them")
  giatri = InputBox("Nhap gia tri can them:")
  Range("C" & dongThem).Value = giatri
End Sub
Sub Button3_Click()
' LAP TRINH VIEN 2
  Dim dongThem As Long
  dongThem = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  giatri = InputBox("Nhap gia tri can them:")
  Range("C" & dongThem + 1).Value = giatri
End Sub

Các bạn chạy xem lập trình viên nào chuyên nghiệp hơn