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

Xác định vị trí dòng cuối cùng có dữ liệu trong vba excel

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:=xlByColumns, SearchDirection:=xlNext).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

Mục liên quan:

0935999617